Checkdoc fixes in subr.el
* lisp/subr.el (ctl-x-4-map, ctl-x-map) (touch-screen-events-received): Checkdoc fixes.
This commit is contained in:
parent
4643672078
commit
109b592d77
1 changed files with 6 additions and 5 deletions
11
lisp/subr.el
11
lisp/subr.el
|
@ -1507,7 +1507,7 @@ The normal global definition of the character ESC indirects to this keymap.")
|
|||
(make-obsolete 'ESC-prefix 'esc-map "28.1")
|
||||
|
||||
(defvar ctl-x-4-map (make-sparse-keymap)
|
||||
"Keymap for subcommands of C-x 4.")
|
||||
"Keymap for subcommands of \\`C-x 4'.")
|
||||
(defalias 'ctl-x-4-prefix ctl-x-4-map)
|
||||
|
||||
(defvar ctl-x-5-map (make-sparse-keymap)
|
||||
|
@ -1530,8 +1530,9 @@ The normal global definition of the character ESC indirects to this keymap.")
|
|||
(define-key map "<" #'scroll-left)
|
||||
(define-key map ">" #'scroll-right)
|
||||
map)
|
||||
"Default keymap for C-x commands.
|
||||
The normal global definition of the character C-x indirects to this keymap.")
|
||||
"Default keymap for \\`C-x' commands.
|
||||
The normal global definition of the character \\`C-x' indirects to this
|
||||
keymap.")
|
||||
(fset 'Control-X-prefix ctl-x-map)
|
||||
(make-obsolete 'Control-X-prefix 'ctl-x-map "28.1")
|
||||
|
||||
|
@ -3372,8 +3373,8 @@ only unbound fallback disabled is downcasing of the last event."
|
|||
|
||||
(defvar touch-screen-events-received nil
|
||||
"Whether a touch screen event has ever been translated.
|
||||
The value of this variable governs whether
|
||||
`read--potential-mouse-event' calls read-key or read-event.")
|
||||
The value of this variable governs whether `read--potential-mouse-event'
|
||||
calls `read-key' or `read-event'.")
|
||||
|
||||
;; FIXME: Once there's a safe way to transition away from read-event,
|
||||
;; callers to this function should be updated to that way and this
|
||||
|
|
Loading…
Add table
Reference in a new issue