comparison lisp/files.el @ 909:4c6cdb66c74c

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 03 Aug 1992 02:02:37 +0000
parents 94eb4344341b
children eb8a7ea2798e
comparison
equal deleted inserted replaced
908:94eb4344341b 909:4c6cdb66c74c
1081 (save-buffer))) 1081 (save-buffer)))
1082 (buffer-list) 1082 (buffer-list)
1083 '("buffer" "buffers" "save") 1083 '("buffer" "buffers" "save")
1084 (list (list ?\C-r (lambda (buf) 1084 (list (list ?\C-r (lambda (buf)
1085 (view-buffer buf) 1085 (view-buffer buf)
1086 (setq view-exit-action 'exit-recursive-edit) 1086 (setq view-exit-action
1087 '(lambda (ignore)
1088 (exit-recursive-edit)))
1087 (recursive-edit) 1089 (recursive-edit)
1088 ;; Return nil to ask about BUF again. 1090 ;; Return nil to ask about BUF again.
1089 nil) 1091 nil)
1090 "display the current buffer")) 1092 "display the current buffer"))
1091 )) 1093 ))