diff options
| author | Erik Naggum | 1995-10-08 19:59:42 +0000 |
|---|---|---|
| committer | Erik Naggum | 1995-10-08 19:59:42 +0000 |
| commit | 641889d6e9884fda13b4c32e27a5ecf785f2f80f (patch) | |
| tree | 77cb5cd8d0b94969c69cf53a7704ea1ef5f4cd9a | |
| parent | 14f67fa6a5b630ede1927cd94710e2a1ba6d21d5 (diff) | |
| download | emacs-641889d6e9884fda13b4c32e27a5ecf785f2f80f.tar.gz emacs-641889d6e9884fda13b4c32e27a5ecf785f2f80f.zip | |
(view-exit): Delete view-overlay only if it exists.
| -rw-r--r-- | lisp/view.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/view.el b/lisp/view.el index 6734c05a8a8..5e3069efb46 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -264,7 +264,7 @@ If you viewed an existing buffer, that buffer returns to its previous mode. | |||
| 264 | If you viewed a file that was not present in Emacs, its buffer is killed." | 264 | If you viewed a file that was not present in Emacs, its buffer is killed." |
| 265 | (interactive) | 265 | (interactive) |
| 266 | (setq view-mode nil) | 266 | (setq view-mode nil) |
| 267 | (delete-overlay view-overlay) | 267 | (and view-overlay (delete-overlay view-overlay)) |
| 268 | (force-mode-line-update) | 268 | (force-mode-line-update) |
| 269 | (cond (view-mode-auto-exit | 269 | (cond (view-mode-auto-exit |
| 270 | (setq buffer-read-only view-old-buffer-read-only) | 270 | (setq buffer-read-only view-old-buffer-read-only) |