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)

diff --git a/lisp/subr.el b/lisp/subr.el
index 68812c61e9e4093e0c18a2a3616e7c2c9aa68779..1d21c012d49ae6959f212121cf90da2a2b6754f4 100644 (file)
--- 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