* term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option.

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)