mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* files.el (file-name-non-special): Wrap the call of

Browse Source 
`insert-file-contents' by `unwind-protect', in order to set the
buffer's file name anyway.

Fixes: debbugs:18891
This commit is contained in:
Michael Albinus 2014-11-07 15:42:51 +01:00
parent cd4776ba26
commit fd16108130
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2014-11-07 Michael Albinus <michael.albinus@gmx.de>
* files.el (file-name-non-special): Wrap the call of
`insert-file-contents' by `unwind-protect', in order to set the
buffer's file name anyway. (Bug#18891)
2014-11-07 Daiki Ueno <ueno@gnu.org>
* epg.el (epg--list-keys-1): Ignore fields after the 15th field

2
lisp/files.el
View File

@ -6664,7 +6664,7 @@ only these files will be asked to be saved."
(`add (concat "/:" (apply operation arguments)))
(`insert-file-contents
(let ((visit (nth 1 arguments)))
(prog1
(unwind-protect
(apply operation arguments)
(when (and visit buffer-file-name)
(setq buffer-file-name (concat "/:" buffer-file-name))))))