From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 17 Dec 2018 10:56:05 +0000 (+0100)
Subject: Fix Bug#33524
X-Git-Tag: emacs-27.0.90~3980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09a6cc4778d4b90a0bb8da646425d04d8f8a6ec9;p=emacs.git

Fix Bug#33524

* lisp/progmodes/flymake-proc.el
(flymake-proc-create-temp-with-folder-structure):
Unquote file-name.  (Bug#33524)
---

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
   (unless (stringp file-name)
     (error "Invalid file-name"))
 
-  (let* ((dir       (file-name-directory file-name))
+  (let* ((dir       (file-name-directory (file-name-unquote file-name)))
          ;; Not sure what this slash-pos is all about, but I guess it's just
          ;; trying to remove the leading / of absolute file names.
 	 (slash-pos (string-match "/" dir))