summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Robert <Adrian.B.Robert@gmail.com>2009-02-01 17:32:52 +0000
committerAdrian Robert <Adrian.B.Robert@gmail.com>2009-02-01 17:32:52 +0000
commit516907a2b9c749baa962fd456dee84875331ee58 (patch)
tree30966b21a83c7d66b5c4e681c6e6ca0ede35bfb0
parent8ad093db016b77a82e7cf7a78e52e812b82442ff (diff)
downloademacs-516907a2b9c749baa962fd456dee84875331ee58.tar.gz
* term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/term/ns-win.el3
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c86e665a8eb..40d280d9bca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-01 Adrian Robert <Adrian.B.Robert@gmail.com>
+
+ * term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option.
+
2009-02-01 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.1.15.
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index bb37ecbb705..430f4df72da 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)