diff options
| author | Michael Albinus | 2018-12-17 11:56:05 +0100 |
|---|---|---|
| committer | Michael Albinus | 2018-12-17 11:56:05 +0100 |
| commit | 09a6cc4778d4b90a0bb8da646425d04d8f8a6ec9 (patch) | |
| tree | 284d7eb09de3ef9ea118c60834662ec8138b7662 | |
| parent | 3e9ecaec3b17e63a3832213f10cb5299f4883172 (diff) | |
| download | emacs-09a6cc4778d4b90a0bb8da646425d04d8f8a6ec9.tar.gz emacs-09a6cc4778d4b90a0bb8da646425d04d8f8a6ec9.zip | |
Fix Bug#33524
* lisp/progmodes/flymake-proc.el
(flymake-proc-create-temp-with-folder-structure):
Unquote file-name. (Bug#33524)
| -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 8600be9b97c..e969c5d9920 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el | |||
| @@ -874,7 +874,7 @@ can also be executed interactively independently of | |||
| 874 | (unless (stringp file-name) | 874 | (unless (stringp file-name) |
| 875 | (error "Invalid file-name")) | 875 | (error "Invalid file-name")) |
| 876 | 876 | ||
| 877 | (let* ((dir (file-name-directory file-name)) | 877 | (let* ((dir (file-name-directory (file-name-unquote file-name))) |
| 878 | ;; Not sure what this slash-pos is all about, but I guess it's just | 878 | ;; Not sure what this slash-pos is all about, but I guess it's just |
| 879 | ;; trying to remove the leading / of absolute file names. | 879 | ;; trying to remove the leading / of absolute file names. |
| 880 | (slash-pos (string-match "/" dir)) | 880 | (slash-pos (string-match "/" dir)) |