diff options
| author | Richard M. Stallman <[email protected]> | 1992-08-03 01:04:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1992-08-03 01:04:04 +0000 |
| commit | df01170b2817a8131751a2c549eca43dc43d4210 (patch) | |
| tree | ec454e93523e150bf22949a93a32c7dd7a105af0 /lisp | |
| parent | c540863c2914bb9b5bfd69c1f7cb981486338c4c (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 22eb11f973..25b0bac389 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1081,10 +1081,12 @@ Optional second argument EXITING means ask about certain non-file buffers (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)")))) |