diff options
author | Dmitry Antipov <dmantipov@yandex.ru> | 2013-08-05 14:35:55 +0400 |
---|---|---|
committer | Dmitry Antipov <dmantipov@yandex.ru> | 2013-08-05 14:35:55 +0400 |
commit | 12b4c0ea03a8c7905254be1cefa234bc8d8a8a88 (patch) | |
tree | a80fd7a077d1cca4b01e757b4dc7641dfe41efb8 /lisp/follow.el | |
parent | e412eb97cc4e1f9edb1118163f09a77ab9925704 (diff) | |
download | emacs-12b4c0ea03a8c7905254be1cefa234bc8d8a8a88.tar.gz |
Do not call to `selected-frame' where it is assumed by default.
Affected functions are `raise-frame', `redraw-frame',
`frame-first-window', `frame-terminal' and `delete-frame'.
* lisp/calendar/appt.el (appt-disp-window):
* lisp/epg.el (epg-wait-for-completion):
* lisp/follow.el (follow-delete-other-windows-and-split)
(follow-avoid-tail-recenter):
* lisp/international/mule.el (set-terminal-coding-system):
* lisp/mail/rmail.el (rmail-mail-return):
* lisp/net/newst-plainview.el (newsticker--buffer-set-uptodate):
* lisp/progmodes/f90.el (f90-add-imenu-menu):
* lisp/progmodes/idlw-toolbar.el (idlwave-toolbar-toggle):
* lisp/server.el (server-switch-buffer):
* lisp/simple.el (delete-completion-window):
* lisp/talk.el (talk):
* lisp/term/xterm.el (terminal-init-xterm-modify-other-keys)
(xterm-turn-on-modify-other-keys, xterm-remove-modify-other-keys):
* lisp/vc/ediff-util.el (ediff-status-info, ediff-show-diff-output):
* lisp/vc/ediff.el (ediff-documentation): Related users changed.
* lisp/frame.el (selected-terminal): Remove the leftover.
Diffstat (limited to 'lisp/follow.el')
-rw-r--r-- | lisp/follow.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/follow.el b/lisp/follow.el index ef26788c0b1..53b32e57031 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -572,7 +572,7 @@ selected if the original window is the first one in the frame." (interactive "P") (let ((other (or (and (null arg) (not (eq (selected-window) - (frame-first-window (selected-frame))))) + (frame-first-window)))) (and arg (< (prefix-numeric-value arg) 0)))) (start (window-start))) @@ -1083,7 +1083,7 @@ should be a member of WINDOWS, starts at position START." This is done by reading and rewriting the start position of non-first windows in Follow mode." (let* ((orig-buffer (current-buffer)) - (top (frame-first-window (selected-frame))) + (top (frame-first-window)) (win top) who) ; list of (buffer . frame) ;; If the only window in the frame is a minibuffer |