From 3320b84592bdd8cdc8e24678b2448e6c8f39ffd2 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 18 Jul 2024 09:47:19 +0200 Subject: [PATCH] Checkdoc fixes in subr.el * lisp/subr.el (ctl-x-4-map, ctl-x-map) (touch-screen-events-received): Checkdoc fixes. (cherry picked from commit 109b592d77b41b474a6d61e5a73de66b99d54ce6) --- lisp/subr.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 68812c61e9e..1d21c012d49 100644 --- a/lisp/subr.el +++ b/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") @@ -3384,8 +3385,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 -- 2.39.5