Mercurial > hg > xemacs-beta

comparison lisp/prim/frame.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 131b0175ea99
children c7528f8e288d
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
1029 ;; only the pre-display-buffer-function should ever do this. 1029 ;; only the pre-display-buffer-function should ever do this.
1030 (error "display-buffer switched frames on its own!!")) 1030 (error "display-buffer switched frames on its own!!"))
1031 (setq minibuffer-scroll-window window) 1031 (setq minibuffer-scroll-window window)
1032 (set-window-start window 1) ; obeys narrowing 1032 (set-window-start window 1) ; obeys narrowing
1033 (set-window-point window 1) 1033 (set-window-point window 1)
1034 (shrink-window-if-larger-than-buffer window)
1034 nil))) 1035 nil)))
1035 1036
1036 (setq pre-display-buffer-function 'get-frame-for-buffer) 1037 (setq pre-display-buffer-function 'get-frame-for-buffer)
1037 (setq temp-buffer-show-function 'show-temp-buffer-in-current-frame) 1038 (setq temp-buffer-show-function 'show-temp-buffer-in-current-frame)
1038 1039