diff options
| author | Eli Zaretskii | 2008-02-02 16:07:47 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2008-02-02 16:07:47 +0000 |
| commit | 5e4f40ee64ed5bfcc116f03206c9b32bc0513969 (patch) | |
| tree | fd286b29906f89fe6866d4c0eaaf23e1080d9551 | |
| parent | 2ee27f27757302bf773ec17b6b6aae00ce751b41 (diff) | |
| download | emacs-5e4f40ee64ed5bfcc116f03206c9b32bc0513969.tar.gz emacs-5e4f40ee64ed5bfcc116f03206c9b32bc0513969.zip | |
(kill-buffer-if-not-modified): Add an autoload cookie.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/view.el | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 729418fa56c..8027adfce38 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2008-02-02 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * view.el (kill-buffer-if-not-modified): Add an autoload cookie. | ||
| 4 | |||
| 1 | 2008-02-02 Glenn Morris <rgm@gnu.org> | 5 | 2008-02-02 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * international/latin1-disp.el (latin1-display): | 7 | * international/latin1-disp.el (latin1-display): |
diff --git a/lisp/view.el b/lisp/view.el index c7a8d3d54c9..f2fdbbe0c59 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -247,6 +247,7 @@ This is local in each buffer, once it is used.") | |||
| 247 | ;; kill a buffer modified by the user. A buffer in view mode can | 247 | ;; kill a buffer modified by the user. A buffer in view mode can |
| 248 | ;; become modified if the user types C-x C-q, edits the buffer, then | 248 | ;; become modified if the user types C-x C-q, edits the buffer, then |
| 249 | ;; types C-x C-q again to return to view mode. | 249 | ;; types C-x C-q again to return to view mode. |
| 250 | ;;;###autoload | ||
| 250 | (defun kill-buffer-if-not-modified (buf) | 251 | (defun kill-buffer-if-not-modified (buf) |
| 251 | "Like `kill-buffer', but does nothing if the buffer is modified." | 252 | "Like `kill-buffer', but does nothing if the buffer is modified." |
| 252 | (let ((buf (get-buffer buf))) | 253 | (let ((buf (get-buffer buf))) |