Mercurial > emacs

diff lisp/files.el @ 891:f7de428cb8bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Tue, 28 Jul 1992 23:26:57 +0000
parents bad1b9af86a1
children 94eb4344341b
line wrap: on
line diff
--- a/lisp/files.el	Tue Jul 28 19:38:08 1992 +0000
+++ b/lisp/files.el	Tue Jul 28 23:26:57 1992 +0000
@@ -1057,7 +1057,7 @@
 Optional second argument EXITING means ask about certain non-file buffers
  as well as about file buffers."
   (interactive "P")
-  (save-excursion
+  (save-window-excursion
     (if (zerop (map-y-or-n-p
 		(function
 		 (lambda (buffer)
@@ -1080,7 +1080,13 @@
 		   (set-buffer buffer)
 		   (save-buffer)))
 		(buffer-list)
-		'("buffer" "buffers" "save")))
+		'("buffer" "buffers" "save")
+		(list (list ?v (lambda (buf)
+				 (display-buffer buf)
+				 ;; Return nil to ask about BUF again.
+				 nil)
+			    "display the current buffer"))
+		))
 	(message "(No files need saving)"))))
 
 (defun not-modified (&optional arg)