Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.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 376386a54a3c
children 859a2309aef8
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
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)))