[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/04/07 03:19:50

Modified files:
        lisp           : ChangeLog 
        lisp/term      : ns-win.el 

Log message:
        (ns-pop-up-frames): Make it a defcustom.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15556&r2=1.15557
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.40&r2=1.41

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15556
retrieving revision 1.15557
diff -u -b -r1.15556 -r1.15557
--- ChangeLog   7 Apr 2009 03:01:08 -0000       1.15556
+++ ChangeLog   7 Apr 2009 03:19:44 -0000       1.15557
@@ -1,5 +1,7 @@
 2009-04-07  Glenn Morris  <address@hidden>
 
+       * term/ns-win.el (ns-pop-up-frames): Make it a defcustom.
+
        * mail/rmail.el (rmail-expunge-and-save): Let rmail-expunge show the
        message.
        (rmail-quit): Mark summary unmodified.

Index: term/ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- term/ns-win.el      29 Mar 2009 00:00:30 -0000      1.40
+++ term/ns-win.el      7 Apr 2009 03:19:49 -0000       1.41
@@ -955,10 +955,15 @@
     (message ns-output-file)
     (if ns-output-file (write-file ns-output-file))))
 
-(defvar ns-pop-up-frames 'fresh
-  "*Non-nil means open files upon request from the Workspace in a new frame.
+(defcustom ns-pop-up-frames 'fresh
+  "Non-nil means open files upon request from the Workspace in a new frame.
 If t, always do so.  Any other non-nil value means open a new frame
-unless the current buffer is a scratch buffer.")
+unless the current buffer is a scratch buffer."
+  :type '(choice (const :tag "Never" nil)
+                 (const :tag "Always" t)
+                 (other :tag "Except for scratch buffer" fresh))
+  :version "23.1"
+  :group 'ns)
 
 (declare-function ns-hide-emacs "nsfns.m" (on))