Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.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 0d2f883870bc
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
62 ;; configuration is done, and only then if the value of 62 ;; configuration is done, and only then if the value of
63 ;; this-command is found in the COMMANDS list. 63 ;; this-command is found in the COMMANDS list.
64 (vm-save-buffer-excursion 64 (vm-save-buffer-excursion
65 (let ((w (and buffer (vm-get-buffer-window buffer)))) 65 (let ((w (and buffer (vm-get-buffer-window buffer))))
66 (and buffer (set-buffer buffer)) 66 (and buffer (set-buffer buffer))
67 ; (and w display (vm-raise-frame (vm-window-frame w))) 67 (and w display (vm-raise-frame (vm-window-frame w)))
68 (and w display (vm-window-frame w))
69 (and w display (not (eq (vm-selected-frame) (vm-window-frame w))) 68 (and w display (not (eq (vm-selected-frame) (vm-window-frame w)))
70 (vm-select-frame (vm-window-frame w))) 69 (vm-select-frame (vm-window-frame w)))
71 (cond ((and buffer display) 70 (cond ((and buffer display)
72 (if (and vm-display-buffer-hook 71 (if (and vm-display-buffer-hook
73 (null (vm-get-visible-buffer-window buffer))) 72 (null (vm-get-visible-buffer-window buffer)))