Mercurial > hg > xemacs-beta

comparison lisp/prim/frame.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents ac2d302a0011
children 0293115a14e9
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
1020 ;; only the pre-display-buffer-function should ever do this. 1020 ;; only the pre-display-buffer-function should ever do this.
1021 (error "display-buffer switched frames on its own!!")) 1021 (error "display-buffer switched frames on its own!!"))
1022 (setq minibuffer-scroll-window window) 1022 (setq minibuffer-scroll-window window)
1023 (set-window-start window 1) ; obeys narrowing 1023 (set-window-start window 1) ; obeys narrowing
1024 (set-window-point window 1) 1024 (set-window-point window 1)
1025 (shrink-window-if-larger-than-buffer window)
1025 nil))) 1026 nil)))
1026 1027
1027 (setq pre-display-buffer-function 'get-frame-for-buffer) 1028 (setq pre-display-buffer-function 'get-frame-for-buffer)
1028 (setq temp-buffer-show-function 'show-temp-buffer-in-current-frame) 1029 (setq temp-buffer-show-function 'show-temp-buffer-in-current-frame)
1029 1030