Отключить или установить всегда «нет»: «Настройки изменены - сохранить их? (Y или n)»

Question

Как, пожалуйста, могу ли я отключить это приглашение от выхода: «Параметры изменены - сохранить их? (y или n) "

В качестве альтернативы, я бы хотел, чтобы ответ на этот конкретный вопрос всегда был« нет »без ввода дополнительной клавиатуры, необходимой для выхода.

Мой файл init.el для Aquamacs 2.4 создает изменения в настройках, и я не хочу создавать customization.el, говоря «да» на вопрос.

Спасибо.

Вот код из customizations.el, который сгенерирован, если я отвечу на приглашение при нажатии «да» при выходе.

(custom-set-variables 
'(aquamacs-additional-fontsets nil t) 
'(aquamacs-customization-version-id 215 t) 
'(aquamacs-tool-bar-user-customization nil t) 
'(default-frame-alist (quote ((background-mode . light) (border-color . "black") (mouse-color . "black") (background-color . "white") (foreground-color . "black") (menu-bar-lines . 1) (cursor-type . box) (vertical-scroll-bars . right) (internal-border-width . 0) (left-fringe . 1) (right-fringe) (fringe) (cursor-color . "red") (tool-bar-lines . 0)))) 
'(global-flyspell-mode t) 
'(global-hl-line-mode t) 
'(global-linum-mode t) 
'(global-show-newlines-mode t) 
'(ns-tool-bar-display-mode (quote both) t) 
'(ns-tool-bar-size-mode (quote regular) t) 
'(size-indication-mode t) 
'(visual-line-mode nil t)) 

(custom-set-faces 
'(emacs-lisp-mode-default ((t (:inherit autoface-default :height 180 :family "Courier"))) t) 
'(latex-mode-default ((t (:inherit default height 180 :family "Courier")))) 
'(plain-tex-mode-default ((t (:inherit default :height 180 :family "Courier"))) t) 
'(text-mode-default ((t (:inherit autoface-default :stipple nil :strike-through nil :underline nil :slant normal :weight normal :height 180 :width normal :family "Courier")))) 
'(whitespace ((((class color) (background light)) (:background "white" :foreground "red" :weight ultra-bold :width ultra-expanded)))) 
'(whitespace-space ((((class color) (background light)) (:foreground "red"))))) 

---

Вот сообщение отладки, который виден на выходе:

Debugger entered--Lisp error: (quit) 
    old-y-or-n-p("Options have changed - save them? ") 
    (if (and long (not aquamacs-quick-yes-or-no-prompt)) (old-yes-or-no-p text) (old-y-or-n-p text)) 
    (let ((text ...)) (if (and long ...) (old-yes-or-no-p text) (old-y-or-n-p text))) 
    (progn (and (fboundp ...) smart-frame-positioning-mode (smart-move-minibuffer-inside-screen f)) (let (...) (if ... ... ...))) 
    (if (or (and last-nonmenu-event ...) (not use-dialog-box) (not window-system)) (progn (and ... smart-frame-positioning-mode ...) (let ... ...)) (let (...) (if ... ...) ret)) 
    (let ((f ...)) (make-frame-visible f) (raise-frame f) (if (or ... ... ...) (progn ... ...) (let ... ... ret))) 
    aquamacs-ask-for-confirmation("Options have changed - save them? \nYour customizations will be lost if you don't save them." nil "Save" "Don't Save") 
    (progn (aquamacs-ask-for-confirmation "Options have changed - save them? \nYour customizations will be lost if you don't save them." nil "Save" "Don't Save")) 
    (if (eq aquamacs-save-options-on-quit (quote ask)) (progn (aquamacs-ask-for-confirmation "Options have changed - save them? \nYour customizations will be lost if you don't save them." nil "Save" "Don't Save")) aquamacs-save-options-on-quit) 
    (and (or aquamacs-faces-changed (filter-list changed ...)) (if (eq aquamacs-save-options-on-quit ...) (progn ...) aquamacs-save-options-on-quit)) 
    (if (and (or aquamacs-faces-changed ...) (if ... ... aquamacs-save-options-on-quit)) (aquamacs-menu-bar-options-save)) 
    (let* ((changed ...)) (if (and ... ...) (aquamacs-menu-bar-options-save))) 
    (condition-case nil (let* (...) (if ... ...)) (error nil)) 
    aquamacs-ask-to-save-options() 
    run-hook-with-args-until-failure(aquamacs-ask-to-save-options) 
    (and (or (not ...) (let ... ... ...)) (run-hook-with-args-until-failure (quote kill-emacs-query-functions)) (or (null confirm-kill-emacs) (funcall confirm-kill-emacs "Really exit Aquamacs? ")) (kill-emacs)) 
    (progn (setq timer-idle-list) (save-some-buffers arg t) (and (or ... ...) (run-hook-with-args-until-failure ...) (or ... ...) (kill-emacs))) 
    (unwind-protect (progn (setq timer-idle-list) (save-some-buffers arg t) (and ... ... ... ...)) (setq timer-idle-list saved-timer-idle-list)) 
    (let ((saved-timer-idle-list timer-idle-list)) (unwind-protect (progn ... ... ...) (setq timer-idle-list saved-timer-idle-list))) 
    aquamacs-save-buffers-kill-emacs(nil) 
    call-interactively(aquamacs-save-buffers-kill-emacs nil nil) 

Answer 1

Ну с той оговоркой, что у меня нет Aquamacs, я могу увидеть, что, как представляется, ответ на трассировка стека.

Посмотрите:
C-чvaquamacs-save-options-on-quitRET