# HG changeset patch
# User Adrian Robert <Adrian.B.Robert@gmail.com>
# Date 1233509572 0
# Node ID 57277ecc1e6ef5bc9a063a42e0a463130481ab2e
# Parent  90b1877630e763ab0ddb88889ffa6c396ba8cbf2
* term/ns-win.el (ns-save-preferences): Save ns-confirm-quit option.

diff -r 90b1877630e7 -r 57277ecc1e6e lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Feb 01 16:32:26 2009 +0000
+++ b/lisp/ChangeLog	Sun Feb 01 17:32:52 2009 +0000
@@ -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 -r 90b1877630e7 -r 57277ecc1e6e lisp/term/ns-win.el
--- a/lisp/term/ns-win.el	Sun Feb 01 16:32:26 2009 +0000
+++ b/lisp/term/ns-win.el	Sun Feb 01 17:32:52 2009 +0000
@@ -990,6 +990,7 @@
 (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 @@
 		   (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)