diff options
Diffstat (limited to 'lisp/windmove.el')
| -rw-r--r-- | lisp/windmove.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/windmove.el b/lisp/windmove.el index 5c7bc91192a..00e76df0a01 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -1,13 +1,13 @@ ;;; windmove.el --- directional window-selection routines -*- lexical-binding:t -*- -;; + ;; Copyright (C) 1998-2022 Free Software Foundation, Inc. -;; -;; Author: Hovav Shacham (hovav@cs.stanford.edu) + +;; Author: Hovav Shacham <hovav@cs.stanford.edu> ;; Created: 17 October 1998 ;; Keywords: window, movement, convenience -;; + ;; This file is part of GNU Emacs. -;; + ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or @@ -20,8 +20,6 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. -;; -;; -------------------------------------------------------------------- ;;; Commentary: ;; @@ -445,9 +443,10 @@ unless `windmove-create-window' is non-nil and a new window is created." ;; I don't think these bindings will work on non-X terminals; you ;; probably want to use different bindings in that case. -(defvar windmove-mode-map (make-sparse-keymap) - "Map used by `windmove-install-defaults'.") +(defvar-keymap windmove-mode-map + :doc "Map used by `windmove-install-defaults'.") +;;;###autoload (define-minor-mode windmove-mode "Global minor mode for default windmove commands." :keymap windmove-mode-map @@ -643,7 +642,7 @@ Default value of MODIFIERS is `shift-meta'." (defun windmove-delete-in-direction (dir &optional arg) "Delete the window at direction DIR. If prefix ARG is `\\[universal-argument]', also kill the buffer in that window. -With `M-0' prefix, delete the selected window and +With \\`M-0' prefix, delete the selected window and select the window at direction DIR. When `windmove-wrap-around' is non-nil, takes the window from the opposite side of the frame." @@ -700,7 +699,7 @@ where PREFIX is a prefix key and MODIFIERS is either a list of modifiers or a single modifier. If PREFIX is `none', no prefix is used. If MODIFIERS is `none', the keybindings are directly bound to the arrow keys. -Default value of PREFIX is `C-x' and MODIFIERS is `shift'." +Default value of PREFIX is \\`C-x' and MODIFIERS is `shift'." (interactive) (unless prefix (setq prefix '(?\C-x))) (when (eq prefix 'none) (setq prefix nil)) |