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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13f68c6d6c84476070b695d2724f9ef5013f6aab..c318b8744a95be9b1af441c856af3bfce71e6781 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-04-07  Glenn Morris  <rgm@gnu.org>
 
+       * 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.

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 1cc97aed78f115691573dfd73f3c74dfd7e8439d..9a560b81ed0ab762571a309a11de9a091fd063ae 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -955,10 +955,15 @@ Lines are highlighted according to `ns-input-line'."
     (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))