aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Kangas2019-11-06 00:49:02 +0100
committerStefan Kangas2019-11-06 00:49:19 +0100
commitc91c145d61cb53cb9f88686cbde4aaf6d9c42794 (patch)
treec9e7dd4103fa32a96c8480aa7bb929a6885ebc61 /lisp
parenta8dbb7cc865f227a39708df3fe8d24e6f52b6e28 (diff)
downloademacs-c91c145d61cb53cb9f88686cbde4aaf6d9c42794.tar.gz
emacs-c91c145d61cb53cb9f88686cbde4aaf6d9c42794.zip
Rename *-multiframe-window to *-window-any-frame
Suggested by Drew Adams. * lisp/frame.el (next-multiframe-window): Define as obsolete alias for... (next-window-any-frame): ...new function name. (previous-multiframe-window): Define as obsolete alias for... (previous-window-any-frame): ...new function name. (Bug#12436) * lisp/term/ns-win.el (global-map): Use new command name. * doc/emacs/windows.texi (Other Window): Document it. * etc/NEWS: Announce it.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/frame.el7
-rw-r--r--lisp/term/ns-win.el2
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 92fe57fbe63..1a15a4c9f26 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -673,7 +673,7 @@ Create one if necessary. Note that the minibuffer frame, if separate,
673is not considered (see `next-frame')." 673is not considered (see `next-frame')."
674 (if (equal (next-frame) (selected-frame)) (make-frame) (next-frame))) 674 (if (equal (next-frame) (selected-frame)) (make-frame) (next-frame)))
675 675
676(defun next-multiframe-window () 676(defun next-window-any-frame ()
677 "Select the next window, regardless of which frame it is on." 677 "Select the next window, regardless of which frame it is on."
678 (interactive) 678 (interactive)
679 (select-window (next-window (selected-window) 679 (select-window (next-window (selected-window)
@@ -681,7 +681,7 @@ is not considered (see `next-frame')."
681 0)) 681 0))
682 (select-frame-set-input-focus (selected-frame))) 682 (select-frame-set-input-focus (selected-frame)))
683 683
684(defun previous-multiframe-window () 684(defun previous-window-any-frame ()
685 "Select the previous window, regardless of which frame it is on." 685 "Select the previous window, regardless of which frame it is on."
686 (interactive) 686 (interactive)
687 (select-window (previous-window (selected-window) 687 (select-window (previous-window (selected-window)
@@ -689,6 +689,9 @@ is not considered (see `next-frame')."
689 0)) 689 0))
690 (select-frame-set-input-focus (selected-frame))) 690 (select-frame-set-input-focus (selected-frame)))
691 691
692(defalias 'next-multiframe-window 'next-window-any-frame)
693(defalias 'previous-multiframe-window 'previous-window-any-frame)
694
692(defun window-system-for-display (display) 695(defun window-system-for-display (display)
693 "Return the window system for DISPLAY. 696 "Return the window system for DISPLAY.
694Return nil if we don't know how to interpret DISPLAY." 697Return nil if we don't know how to interpret DISPLAY."
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 83b845b1a5a..1841e679ac8 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -102,7 +102,7 @@ The properties returned may include `top', `left', `height', and `width'."
102 102
103;; Here are some Nextstep-like bindings for command key sequences. 103;; Here are some Nextstep-like bindings for command key sequences.
104(define-key global-map [?\s-,] 'customize) 104(define-key global-map [?\s-,] 'customize)
105(define-key global-map [?\s-'] 'next-multiframe-window) 105(define-key global-map [?\s-'] 'next-window-any-frame)
106(define-key global-map [?\s-`] 'other-frame) 106(define-key global-map [?\s-`] 'other-frame)
107(define-key global-map [?\s-~] 'ns-prev-frame) 107(define-key global-map [?\s-~] 'ns-prev-frame)
108(define-key global-map [?\s--] 'center-line) 108(define-key global-map [?\s--] 'center-line)