禁用,或设置为始终不:“选项已更改 - 保存它们?(y或n)”

时间:2013-04-15 16:09:35

标签: emacs emacs24 aquamacs

请如何禁止此提示退出:“选项已更改 - 保存?(y或n)”

或者,如果没有进一步的键盘输入退出,我希望这个特定问题的答案总是“不”。

我的Aquamacs 2.4的init.el文件正在创建选项的更改,我不想通过对问题说“是”来创建customizations.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)

1 个答案:

答案 0 :(得分:0)

有关我没有Aquamacs的警告,我可以看到堆栈跟踪中的答案似乎是什么。

看看:
C-h v aquamacs-save-options-on-quit RET