diff options
| author | Eli Zaretskii | 2011-03-05 10:48:52 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2011-03-05 10:48:52 +0200 |
| commit | 3ae59fff628e08b6e167ebdc4fd62e77048cec32 (patch) | |
| tree | b38023d861d65e0f0694330a2e56982df1fddc90 | |
| parent | 944bc731019aa19d77bba01d9fd48113c9f7c594 (diff) | |
| download | emacs-3ae59fff628e08b6e167ebdc4fd62e77048cec32.tar.gz emacs-3ae59fff628e08b6e167ebdc4fd62e77048cec32.zip | |
Fix bug #8177 with re-visiting image files.
files.el (find-file-noselect): Don't ask about re-visiting
non-literally if the file is already visited in image-mode.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/files.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aeb7c8edff4..047d8bb5dcc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-03-05 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * files.el (find-file-noselect): Don't ask about re-visiting | ||
| 4 | non-literally if the file is already visited in image-mode. | ||
| 5 | (Bug#8177) | ||
| 6 | |||
| 1 | 2011-03-05 Glenn Morris <rgm@gnu.org> | 7 | 2011-03-05 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * eshell/esh-mode.el (eshell-kill-buffer-function): New function. | 9 | * eshell/esh-mode.el (eshell-kill-buffer-function): New function. |
diff --git a/lisp/files.el b/lisp/files.el index a8f937233de..52ccbbf86dd 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1894,8 +1894,8 @@ the various files." | |||
| 1894 | (not nonexistent) | 1894 | (not nonexistent) |
| 1895 | ;; It is confusing to ask whether to visit | 1895 | ;; It is confusing to ask whether to visit |
| 1896 | ;; non-literally if they have the file in | 1896 | ;; non-literally if they have the file in |
| 1897 | ;; hexl-mode. | 1897 | ;; hexl-mode or image-mode. |
| 1898 | (not (eq major-mode 'hexl-mode))) | 1898 | (not (memq major-mode '(hexl-mode image-mode)))) |
| 1899 | (if (buffer-modified-p) | 1899 | (if (buffer-modified-p) |
| 1900 | (if (y-or-n-p | 1900 | (if (y-or-n-p |
| 1901 | (format | 1901 | (format |