diff options
| author | Lars Ingebrigtsen | 2022-06-14 15:24:19 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-14 15:24:19 +0200 |
| commit | 9225599ca73ce52f219f7e7c33676c5e740ae9a8 (patch) | |
| tree | d813e8901ccf363f989967c012525ee6ff23b297 | |
| parent | 03124c42019401022e58ca9ebfa9b41735957ffb (diff) | |
| download | emacs-9225599ca73ce52f219f7e7c33676c5e740ae9a8.tar.gz emacs-9225599ca73ce52f219f7e7c33676c5e740ae9a8.zip | |
Make flymake-proc--delete-temp-directory slightly safer
* lisp/progmodes/flymake-proc.el
(flymake-proc--delete-temp-directory): Temp dir name may be
abbreviatated, so expand it first (bug#46203).
| -rw-r--r-- | lisp/progmodes/flymake-proc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el index eebfa70e348..4ab16831bc1 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el | |||
| @@ -903,7 +903,7 @@ can also be executed interactively independently of | |||
| 903 | 903 | ||
| 904 | (defun flymake-proc--delete-temp-directory (dir-name) | 904 | (defun flymake-proc--delete-temp-directory (dir-name) |
| 905 | "Attempt to delete temp dir DIR-NAME, do not fail on error." | 905 | "Attempt to delete temp dir DIR-NAME, do not fail on error." |
| 906 | (let* ((temp-dir temporary-file-directory) | 906 | (let* ((temp-dir (file-truename temporary-file-directory)) |
| 907 | (suffix (substring dir-name (1+ (length (directory-file-name temp-dir)))))) | 907 | (suffix (substring dir-name (1+ (length (directory-file-name temp-dir)))))) |
| 908 | 908 | ||
| 909 | (while (> (length suffix) 0) | 909 | (while (> (length suffix) 0) |