diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2016-12-08 18:33:26 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2016-12-08 18:33:26 +0100 |
| commit | c685e4c92909b2ae0140953417e0d856eb34ba33 (patch) | |
| tree | 162df2f589c8bb4eef3225c547f94c5126d384ad /lisp/files.el | |
| parent | b67fdee18b07d55c44f3513d3d8a15d3b34ab4b6 (diff) | |
| download | emacs-c685e4c92909b2ae0140953417e0d856eb34ba33.tar.gz emacs-c685e4c92909b2ae0140953417e0d856eb34ba33.tar.bz2 emacs-c685e4c92909b2ae0140953417e0d856eb34ba33.zip | |
; Fix last patch
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index ba6004686e7..6f6e8687f52 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6923,7 +6923,7 @@ only these files will be asked to be saved." (save-match-data (while (consp file-arg-indices) (let ((pair (nthcdr (car file-arg-indices) arguments))) - (and (car pair) (setcar pair (file-name-unquote 2)))) + (and (car pair) (setcar pair (file-name-unquote (car pair))))) (setq file-arg-indices (cdr file-arg-indices)))) (pcase method (`identity (car arguments)) @@ -6935,7 +6935,7 @@ only these files will be asked to be saved." (when (and visit buffer-file-name) (setq buffer-file-name (file-name-quote buffer-file-name)))))) (`unquote-then-quote - (let ((buffer-file-name (substring buffer-file-name 2))) + (let ((buffer-file-name (file-name-unquote buffer-file-name))) (apply operation arguments))) (_ (apply operation arguments))))) |