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

[emacs] new function other-window-in-any-frame, bound to M- (cmd- on OS X)

Browse source
This commit is contained in:
Sami Samhuri 2010-05-13 23:47:41 -07:00
parent 09259ec849
commit 9e1d11c572
1 changed files with 23 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
emacs
View file

@ -308,7 +308,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; can't seem to un-hijack cmd-`, so make it do something useful
(global-set-key "\M-`" 'other-window)
(global-set-key "\M-`" 'other-window-in-any-frame)
;; custom key bindings under a common prefix
(global-unset-key "\C-z")
@ -343,9 +343,15 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; utilities customizations
;; utilities & customizations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(fset 'comment-line
(lambda (&optional arg)
"Comment or uncomment the current line using `comment-dwim'."
(interactive "p")
(kmacro-call-macro (quote ([1 67108896 14 134217787 16] 0 "%d")) arg)))
(defun duplicate-line (&optional arg)
"Duplicate the current line."
(interactive "p")
@ -358,12 +364,22 @@
(newline)
(insert txt)))))
(fset 'comment-line
(lambda (&optional arg)
"Comment or uncomment the current line using `comment-dwim'."
(interactive "p")
(kmacro-call-macro (quote ([1 67108896 14 134217787 16] 0 "%d")) arg)))
;; switch to the next window, in any visible frame
(defun other-window-in-any-frame (&optional arg)
"Switch to the next window using `next-window', with ALL-FRAMES
set to 'visible. If the next window is on a different frame
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))))
;; Reload the .emacs file with a minimum of effort,
;; first saving histories with Persistent