Mercurial > emacs

comparison lisp/follow.el @ 90951:3619e7770f2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 793-802) - Update from CVS - Remove RCS keywords - Merge from emacs--rel--22 * emacs--rel--22 (patch 42-50) - Update from CVS - Merge from gnus--rel--5.10 - Gnus ChangeLog tweaks * gnus--rel--5.10 (patch 229-232) - Merge from emacs--devo--0, emacs--rel--22 - ChangeLog tweak - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-223
author Miles Bader <miles@gnu.org>
date Sat, 16 Jun 2007 22:32:13 +0000
parents 95d0cdf160ea 0a0d00f78651
children a66921565bcb
comparison
equal deleted inserted replaced
90950:8568c29985a3 90951:3619e7770f2e
910 910
911 (defun follow-all-followers (&optional testwin) 911 (defun follow-all-followers (&optional testwin)
912 "Return all windows displaying the same buffer as the TESTWIN. 912 "Return all windows displaying the same buffer as the TESTWIN.
913 The list contains only windows displayed in the same frame as TESTWIN. 913 The list contains only windows displayed in the same frame as TESTWIN.
914 If TESTWIN is nil the selected window is used." 914 If TESTWIN is nil the selected window is used."
915 (or (and testwin (window-live-p testwin)) 915 (or (window-live-p testwin)
916 (setq testwin (selected-window))) 916 (setq testwin (selected-window)))
917 (let* ((top (frame-first-window (window-frame testwin))) 917 (let* ((top (frame-first-window (window-frame testwin)))
918 (win top) 918 (win top)
919 (done nil) 919 (done nil)
920 (windows '()) 920 (windows '())
1966 (if moving (goto-char (process-mark proc))))))) 1966 (if moving (goto-char (process-mark proc)))))))
1967 1967
1968 ;; If we're in follow mode, do our stuff. Select a new window and 1968 ;; If we're in follow mode, do our stuff. Select a new window and
1969 ;; redisplay. (Actually, it is redundant to check `buf', but I 1969 ;; redisplay. (Actually, it is redundant to check `buf', but I
1970 ;; feel it's more correct.) 1970 ;; feel it's more correct.)
1971 (if (and buf win (window-live-p win)) 1971 (if (and buf (window-live-p win))
1972 (progn 1972 (progn
1973 (set-buffer buf) 1973 (set-buffer buf)
1974 (if (and (boundp 'follow-mode) follow-mode) 1974 (if (and (boundp 'follow-mode) follow-mode)
1975 (progn 1975 (progn
1976 (select-window win) 1976 (select-window win)