mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

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

Browse Source 
"CHANGED outside Customize;".
This commit is contained in:
Martin Rudalics 2008-09-03 09:17:23 +00:00
parent dab49a2070
commit 25831d661d
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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.

10
lisp/frame.el
View File

@ -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))