Mercurial > emacs

changeset 908:94eb4344341b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 03 Aug 1992 01:04:04 +0000
parents 48ca3bf4b5f8
children 4c6cdb66c74c
files lisp/files.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Aug 02 03:36:38 1992 +0000
+++ b/lisp/files.el	Mon Aug 03 01:04:04 1992 +0000
@@ -1081,10 +1081,12 @@
 		   (save-buffer)))
 		(buffer-list)
 		'("buffer" "buffers" "save")
-		(list (list ?v (lambda (buf)
-				 (display-buffer buf)
-				 ;; Return nil to ask about BUF again.
-				 nil)
+		(list (list ?\C-r (lambda (buf)
+				    (view-buffer buf)
+				    (setq view-exit-action 'exit-recursive-edit)
+				    (recursive-edit)
+				    ;; Return nil to ask about BUF again.
+				    nil)
 			    "display the current buffer"))
 		))
 	(message "(No files need saving)"))))