comparison lisp/frame.el @ 83250:89ac10c67e45

Merged from [e-mail]--gnu-2005 (patch 12-13, 79-90) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-79 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-80 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-81 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-82 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-83 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-84 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-85 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-86 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-87 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-88 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-89 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-90 Update from CVS: man/calc.texi: Add macro for LaTeX for info output. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-12 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-13 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-290

83249:267c2ab562ab

		(window (display-buffer buffer)))
	   ;; Only do it if this is a new window:
	   ;; (set-window-dedicated-p window t)
	   window))
       ;; If no window yet, make one in a new frame.
       (let ((frame 
	      (with-current-buffer buffer
		(make-frame (append args special-display-frame-alist)))))
	 (set-window-buffer (frame-selected-window frame) buffer)
	 (set-window-dedicated-p (frame-selected-window frame) t)
	 (frame-selected-window frame))))))

(defvar after-setting-font-hook nil
  "Functions to run after a frame's font has been changed.")

;; Alias, kept temporarily.
(defalias 'new-frame 'make-frame)
(make-obsolete 'new-frame 'make-frame "21.4")

(defun make-frame (&optional parameters)
  "Return a newly created frame displaying the current buffer.
Optional argument PARAMETERS is an alist of parameters for the new frame.
Each element of PARAMETERS should have the form (NAME . VALUE), for example:

(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15

;; miscellaneous obsolescence declarations
(defvaralias 'delete-frame-hook 'delete-frame-functions)
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4")


;; Highlighting trailing whitespace.

(make-variable-buffer-local 'show-trailing-whitespace)

83250:89ac10c67e45

		(window (display-buffer buffer)))
	   ;; Only do it if this is a new window:
	   ;; (set-window-dedicated-p window t)
	   window))
       ;; If no window yet, make one in a new frame.
       (let ((frame
	      (with-current-buffer buffer
		(make-frame (append args special-display-frame-alist)))))
	 (set-window-buffer (frame-selected-window frame) buffer)
	 (set-window-dedicated-p (frame-selected-window frame) t)
	 (frame-selected-window frame))))))

(defvar after-setting-font-hook nil
  "Functions to run after a frame's font has been changed.")

;; Alias, kept temporarily.
(defalias 'new-frame 'make-frame)
(make-obsolete 'new-frame 'make-frame "22.1")

(defun make-frame (&optional parameters)
  "Return a newly created frame displaying the current buffer.
Optional argument PARAMETERS is an alist of parameters for the new frame.
Each element of PARAMETERS should have the form (NAME . VALUE), for example:

(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15

;; miscellaneous obsolescence declarations
(defvaralias 'delete-frame-hook 'delete-frame-functions)
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "22.1")


;; Highlighting trailing whitespace.

(make-variable-buffer-local 'show-trailing-whitespace)