From 25831d661db4ff1d03310e879e30aae9c24d209f Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 3 Sep 2008 09:17:23 +0000 Subject: [PATCH] (pop-up-frame-function): Move here from window.el to avoid "CHANGED outside Customize;". --- lisp/ChangeLog | 6 ++++++ lisp/frame.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75ef6fc72f2..5f518b6fd08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-09-03 Martin Rudalics + + * window.el (pop-up-frame-function): Move ... + * frame.el (pop-up-frame-function): ... here, to avoid + "CHANGED outside Customize;". + 2008-09-03 Glenn Morris * buff-menu.el (buffer-menu-mode-hook): Add obsolete alias. diff --git a/lisp/frame.el b/lisp/frame.el index ff644c67b2a..5454ac8f58c 100644 --- 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)) -- 2.39.5