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

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