diff options
| author | Adrian Robert <[email protected]> | 2009-02-01 17:32:52 +0000 |
|---|---|---|
| committer | Adrian Robert <[email protected]> | 2009-02-01 17:32:52 +0000 |
| commit | 516907a2b9c749baa962fd456dee84875331ee58 (patch) | |
| tree | 30966b21a83c7d66b5c4e681c6e6ca0ede35bfb0 | |
| parent | 8ad093db016b77a82e7cf7a78e52e812b82442ff (diff) | |
* term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/term/ns-win.el | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c86e665a8e..40d280d9bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-02-01 Adrian Robert <[email protected]> + + * term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option. + 2009-02-01 Michael Albinus <[email protected]> Sync with Tramp 2.1.15. diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index bb37ecbb70..430f4df72d 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -990,6 +990,7 @@ Lines are highlighted according to `ns-input-line'." (defvar ns-antialias-text) (defvar ns-use-qd-smoothing) (defvar ns-use-system-highlight-color) +(defvar ns-confirm-quit) (declare-function ns-set-resource "nsfns.m" (owner name value)) (declare-function ns-font-name "nsfns.m" (name)) @@ -1013,6 +1014,8 @@ Lines are highlighted according to `ns-input-line'." (if ns-use-qd-smoothing "YES" "NO")) (ns-set-resource nil "UseSystemHighlightColor" (if ns-use-system-highlight-color "YES" "NO")) + (ns-set-resource nil "ConfirmQuit" + (if ns-confirm-quit "YES" "NO")) ;; Default frame parameters (let ((p (frame-parameters)) v) |