sjs/config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed up other-window-in-any-frame

Browse source
This commit is contained in:
Sami Samhuri 2010-05-14 00:05:28 -07:00
parent 9e1d11c572
commit 3b97e035c0
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
emacs
View file

@ -372,14 +372,14 @@ switch to that frame first using `select-frame-set-input-focus'.
If N is non-nil switch to the nth next window."
(interactive "p")
(let ((window (next-window (selected-window) nil 'visible)))
(when (not (member window (window-list)))
(dolist (frame (delq (selected-frame) (frame-list)))
(when (member window (window-list frame))
(select-frame-set-input-focus frame))))
(select-window window))
(unless (= 1 arg)
(other-window-in-any-frame (- arg 1))))
(while (> arg 0)
(let ((window (next-window (selected-window) nil 'visible)))
(when (not (member window (window-list)))
(dolist (frame (delq (selected-frame) (frame-list)))
(when (member window (window-list frame))
(select-frame-set-input-focus frame))))
(select-window window))
(decf arg)))
;; Reload the .emacs file with a minimum of effort,
;; first saving histories with Persistent