(pop-up-frame-function): Move here from window.el to avoid

"CHANGED outside Customize;".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75ef6fc72f23202fc28f4fae871685d3c415eeab..5f518b6fd089bfe5e1a534f82cf3d2eb0346877c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-03  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (pop-up-frame-function): Move ...
+       * frame.el (pop-up-frame-function): ... here, to avoid
+       "CHANGED outside Customize;".
+
 2008-09-03  Glenn Morris  <rgm@gnu.org>
 
        * buff-menu.el (buffer-menu-mode-hook): Add obsolete alias.

diff --git a/lisp/frame.el b/lisp/frame.el
index ff644c67b2a591df1e3b45e5600f9dcdea1c6a96..5454ac8f58cdb3660a43780296146deac4e89d06 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -99,10 +99,12 @@ for pop-up frames."
                       (sexp :tag "Value")))
   :group 'frames)
 
-(setq pop-up-frame-function
-      ;; Using `function' here caused some sort of problem.
-      '(lambda ()
-        (make-frame pop-up-frame-alist)))
+(defcustom pop-up-frame-function
+  (lambda () (make-frame pop-up-frame-alist))
+  "Function to call to handle automatic new frame creation.
+It is called with no arguments and should return a newly created frame."
+  :type '(choice (const nil) (function :tag "function"))
+  :group 'frames)
 
 (defcustom special-display-frame-alist
   '((height . 14) (width . 80) (unsplittable . t))