# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1220433410 0
# Node ID 55bef47f5e9fc2184997b2eddf742363f8aeefc6
# Parent  4d6b73f7d0134e78339bbbd2f8981fc831e503ba
(pop-up-frame-function): Move here from window.el to avoid
"CHANGED outside Customize;".

diff -r 4d6b73f7d013 -r 55bef47f5e9f lisp/frame.el
--- a/lisp/frame.el	Wed Sep 03 09:15:44 2008 +0000
+++ b/lisp/frame.el	Wed Sep 03 09:16:50 2008 +0000
@@ -99,10 +99,12 @@
 		       (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))