Variable: save-some-buffers-action-alist

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

Value

((134217854
  #[257 "r\211q\210\300\301!)\302\207" [set-buffer-modified-p nil t] 4
	("files.elc" . 202248)]
  "skip this buffer and mark it unmodified")
 (18
  #[257
    "\204
�\302
!\210\211\202�\303
!\210\304\305\306\"\210\307 \210\305\207"
    [enable-recursive-minibuffers other-window-scroll-buffer
				  display-buffer switch-to-buffer
				  view-mode-enter nil
				  #[257 "\300 \207"
					[exit-recursive-edit] 2
					("files.elc" . 145030)]
				  recursive-edit]
    4 ("files.elc" . 202248)]
  "view this buffer")
 (6
  #[257 "
!\210\302\211\207"
	[save-some-buffers--switch-window-callback quit-flag t] 3
	("files.elc" . 202248)]
  "view this buffer and quit")
 (100
  #[257
    "\302
!\204
�\303\304!\210\2022�\305\306!\210\307\302!\310\311$\204%�\312
!\210\2022�\313
!\210\314\310\315\"\210\316 \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 switch-to-buffer
				  view-mode-enter
				  #[257 "\300 \207"
					[exit-recursive-edit] 2
					("files.elc" . 145030)]
				  recursive-edit]
    6 ("files.elc" . 202248)]
  "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
  `((?\M-~ ,(lambda (buf)
              (with-current-buffer buf
                (set-buffer-modified-p nil))
              ;; Return t so we don't ask about BUF again.
              t)
           "skip this buffer and mark it unmodified")
    (?\C-r
     ,(lambda (buf)
        (if (not enable-recursive-minibuffers)
            (progn (display-buffer buf)
                   (setq other-window-scroll-buffer buf))
          ;; Like 'view-buffer' but ignore 'special' mode-class
          ;; because 'q' should call 'exit-action' in any case:
          (switch-to-buffer buf)
          (view-mode-enter nil (lambda (_) (exit-recursive-edit)))
          (recursive-edit))
        ;; Return nil to ask about BUF again.
        nil)
     "view this buffer")
    (?\C-f
     ,(lambda (buf)
        (funcall save-some-buffers--switch-window-callback buf)
        (setq quit-flag t))
     "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))
                 ;; Like 'view-buffer' but ignore 'special' mode-class
                 ;; because 'q' should call 'exit-action' in any case:
                 (switch-to-buffer diffbuf)
                 (view-mode-enter nil (lambda (_) (exit-recursive-edit)))
                 (recursive-edit))))
           ;; Return nil to ask about BUF again.
           nil)
        "view changes in this buffer"))
  "ACTION-ALIST argument used in call to `map-y-or-n-p'.")