mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1992-08-03 01:04:04 +00:00
parent c540863c29
commit df01170b28
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/files.el
View file

@ -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)"))))