Variable: save-some-buffers-action-alist

save-some-buffers-action-alist is a variable defined in files.el.gz.

Value

((18
  #[257
    "\204
�\302
!\210\211\202�\303
\304\"\210\305 \210\306\207"
    [enable-recursive-minibuffers other-window-scroll-buffer
				  display-buffer view-buffer
				  #[257 "\300 \207"
					[exit-recursive-edit] 2
					("files.elc" . 199623)]
				  recursive-edit nil]
    4 ("files.elc" . 199607)]
  "view this buffer")
 (6
  #[257 "
!\210\302\211\207"
	[save-some-buffers--switch-window-callback quit-flag t] 3
	("files.elc" . 199607)]
  "view this buffer and quit")
 (100
  #[257
    "\302
!\204
�\303\304!\210\202.�\305\306!\210\307\302!\310\311$\204%�\312
!\210\202.�\313
\314\"\210\315 \266\310\207"
    [enable-recursive-minibuffers other-window-scroll-buffer
				  buffer-file-name message
				  "Not applicable: no file" require
				  diff diff-no-select nil noasync
				  display-buffer view-buffer
				  #[257 "\300 \207"
					[exit-recursive-edit] 2
					("files.elc" . 199623)]
				  recursive-edit]
    6 ("files.elc" . 199607)]
  "view changes in this buffer"))

Documentation

ACTION-ALIST argument used in call to map-y-or-n-p.

Source Code

;; Defined in /usr/src/emacs/lisp/files.el.gz
(defvar save-some-buffers-action-alist
  `((?\C-r
     ,(lambda (buf)
        (if (not enable-recursive-minibuffers)
            (progn (display-buffer buf)
                   (setq other-window-scroll-buffer buf))
          (view-buffer buf (lambda (_) (exit-recursive-edit)))
          (recursive-edit))
        ;; Return nil to ask about BUF again.
        nil)
     ,(purecopy "view this buffer"))
    (?\C-f
     ,(lambda (buf)
        (funcall save-some-buffers--switch-window-callback buf)
        (setq quit-flag t))
     ,(purecopy "view this buffer and quit"))
    (?d ,(lambda (buf)
           (if (null (buffer-file-name buf))
               (message "Not applicable: no file")
             (require 'diff)            ;for diff-no-select.
             (let ((diffbuf (diff-no-select (buffer-file-name buf) buf
                                            nil 'noasync)))
               (if (not enable-recursive-minibuffers)
                   (progn (display-buffer diffbuf)
                          (setq other-window-scroll-buffer diffbuf))
                 (view-buffer diffbuf (lambda (_) (exit-recursive-edit)))
                 (recursive-edit))))
           ;; Return nil to ask about BUF again.
           nil)
	,(purecopy "view changes in this buffer")))
  "ACTION-ALIST argument used in call to `map-y-or-n-p'.")