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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c86e665a8ebdded86bc9d8f55f623c6ce0a0a7b7..40d280d9bca0d1a9eb6718fae5d7b8663f1dd546 100644 (file)
--- 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 bb37ecbb705766d65280212f4c755fa11fda4aed..430f4df72da9fe65c3eb37ee7dafdaa8bf36764c 100644 (file)
--- 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)