Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Prefer defvar-keymap in cus-edit.el

Browse source 
* lisp/cus-edit.el (custom-mode-map, custom-mode-link-map): Prefer
defvar-keymap.
This commit is contained in:
Stefan Kangas 2022-10-31 16:42:26 +01:00
parent b250f89e63
commit 3b555dc91d
1 changed files with 27 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
lisp/cus-edit.el
View file

@ -1,7 +1,7 @@
;;; cus-edit.el --- tools for customizing Emacs and Lisp packages -*- lexical-binding:t -*-
;;
;; Copyright (C) 1996-1997, 1999-2022 Free Software Foundation, Inc.
;;
;; Copyright (C) 1996-2022 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: emacs-devel@gnu.org
;; Keywords: help, faces
@ -23,7 +23,7 @@
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; This file implements the code to create and edit customize buffers.
;;
;; See `custom.el'.
@ -428,32 +428,30 @@ Use group `text' for this instead. This group is deprecated."
;;; Custom mode keymaps
(defvar custom-mode-map
(let ((map (make-keymap)))
(set-keymap-parent map widget-keymap)
(define-key map [remap self-insert-command] 'Custom-no-edit)
(define-key map "\^m" 'Custom-newline)
(define-key map " " 'scroll-up-command)
(define-key map [?\S-\ ] 'scroll-down-command)
(define-key map "\177" 'scroll-down-command)
(define-key map "\C-c\C-c" 'Custom-set)
(define-key map "\C-x\C-s" 'Custom-save)
(define-key map "q" 'Custom-buffer-done)
(define-key map "u" 'Custom-goto-parent)
(define-key map "n" 'widget-forward)
(define-key map "p" 'widget-backward)
(define-key map "H" 'custom-toggle-hide-all-widgets)
map)
"Keymap for `Custom-mode'.")
(defvar-keymap custom-mode-map
:doc "Keymap for `Custom-mode'."
:full t
:parent widget-keymap
"<remap> <self-insert-command>" #'Custom-no-edit
"RET" #'Custom-newline
"SPC" #'scroll-up-command
"S-SPC" #'scroll-down-command
"DEL" #'scroll-down-command
"C-c C-c" #'Custom-set
"C-x C-s" #'Custom-save
"q" #'Custom-buffer-done
"u" #'Custom-goto-parent
"n" #'widget-forward
"p" #'widget-backward
"H" #'custom-toggle-hide-all-widgets)
(defvar custom-mode-link-map
(let ((map (make-keymap)))
(set-keymap-parent map custom-mode-map)
(define-key map [down-mouse-2] nil)
(define-key map [down-mouse-1] 'mouse-drag-region)
(define-key map [mouse-2] 'widget-move-and-invoke)
map)
"Local keymap for links in `Custom-mode'.")
(defvar-keymap custom-mode-link-map
:doc "Local keymap for links in `Custom-mode'."
:full t
:parent custom-mode-map
"<down-mouse-2>" nil
"<down-mouse-1>" #'mouse-drag-region
"<mouse-2>" #'widget-move-and-invoke)
(defvar custom-field-keymap
(let ((map (copy-keymap widget-field-keymap)))