Mercurial > emacs
changeset 102875:fae9460dc1e1
(ns-pop-up-frames): Make it a defcustom.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 07 Apr 2009 03:19:44 +0000 |
| parents | 5c62d70b7ef3 |
| children | e38631d95db3 |
| files | lisp/ChangeLog lisp/term/ns-win.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 07 03:01:08 2009 +0000 +++ b/lisp/ChangeLog Tue Apr 07 03:19:44 2009 +0000 @@ -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.
--- a/lisp/term/ns-win.el Tue Apr 07 03:01:08 2009 +0000 +++ b/lisp/term/ns-win.el Tue Apr 07 03:19:44 2009 +0000 @@ -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))