Mercurial > emacs

comparison lisp/window.el @ 106341:073d80030060

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window-to-use): Define for compiler.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Dec 2009 03:15:01 +0000
parents f4a3f47777f7
children 355b68db8800
comparison
equal deleted inserted replaced
106340:854ad9afde88 106341:073d80030060
1 ;;; window.el --- GNU Emacs window commands aside from those written in C 1 ;;; window.el --- GNU Emacs window commands aside from those written in C
2 2
3 ;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001, 2002, 3 ;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001, 2002,
4 ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2003, 2004, 2005, 2006, 2007, 2008, 2009
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Keywords: internal 8 ;; Keywords: internal
8 9
9 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
1032 ;; is visible. 1033 ;; is visible.
1033 (and (minibuffer-window-active-p (selected-window)) 1034 (and (minibuffer-window-active-p (selected-window))
1034 (eq frame (window-frame (minibuffer-selected-window))))) 1035 (eq frame (window-frame (minibuffer-selected-window)))))
1035 (raise-frame frame)) 1036 (raise-frame frame))
1036 window)) 1037 window))
1038
1039 (defvar window-to-use) ; dynamically bound in display-buffer
1037 1040
1038 (defun window--display-buffer-2 (buffer window &optional dedicated) 1041 (defun window--display-buffer-2 (buffer window &optional dedicated)
1039 "Display BUFFER in WINDOW and make its frame visible. 1042 "Display BUFFER in WINDOW and make its frame visible.
1040 Set `window-dedicated-p' to DEDICATED if non-nil. 1043 Set `window-dedicated-p' to DEDICATED if non-nil.
1041 Return WINDOW." 1044 Return WINDOW."