Mercurial > emacs

changeset 79880:2be6cb49457d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add comment before kill-buffer-if-not-modified.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 19 Jan 2008 14:04:35 +0000
parents 457037a18993
children 9e4a405ed866
files lisp/view.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/view.el	Sat Jan 19 12:50:35 2008 +0000
+++ b/lisp/view.el	Sat Jan 19 14:04:35 2008 +0000
@@ -238,6 +238,10 @@
 
 ;;; Commands that enter or exit view mode.
 
+;; This is used when view mode is exited, to make sure we don't try to
+;; kill a buffer modified by the user.  A buffer in view mode can
+;; become modified if the user types C-x C-q, edits the buffer, then
+;; types C-x C-q again to return to view mode.
 (defun kill-buffer-if-not-modified (buf)
   "Like `kill-buffer', but does nothing if the buffer is modified."
   (let ((buf (or (bufferp buf) (get-buffer buf))))