Fix all unescaped character literals

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index f8de084f776d7a3ce117090374e5ccfa06d9c382..a4709c3b4b56d8fbe8a7e7951ea4e09902cece88 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -656,9 +656,9 @@ that variable's documentation."
     (setq timeclock-mode-string
           (propertize
            (format " %c%s%c "
-                   (if last-in ?< ?[)
+                   (if last-in ?< ?\[)
                   (timeclock-seconds-to-string remainder nil t)
-                  (if last-in ?> ?]))
+                  (if last-in ?> ?\]))
            'help-echo "timeclock: time remaining"))))
 
 (put 'timeclock-mode-string 'risky-local-variable t)

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 831b9c1ac2878990189401f89918d2cf800f522c..a697aa7d03200d582b3c325338fc7db12716de29 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -90,7 +90,7 @@
 
 (defconst viper-movement-commands '(?b ?B ?e ?E ?f ?F ?G ?h ?j ?k ?l
                                     ?H ?M ?L ?n ?t ?T ?w ?W ?$ ?%
-                                    ?^ ?( ?) ?- ?+ ?| ?{ ?} ?[ ?] ?' ?`
+                                    ?^ ?\( ?\) ?- ?+ ?| ?{ ?} ?\[ ?\] ?' ?`
                                     ?\; ?, ?0 ?? ?/ ?\  ?\C-m
                                     space return
                                     delete backspace

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index abc8d7d6bcd4b5352bb325559610021ba2d56188..01cdd8bef9e729c058849be05a81ed6e34d17a29 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -102,7 +102,7 @@ HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.")
     (?\e$B!'\e(B ?:) (?\e$B!(\e(B ?\;) (?\e$B!)\e(B ??) (?\e$B!*\e(B ?!) (?\e$B!+\e(B nil ?\e(I^\e(B) (?\e$B!,\e(B nil ?\e(I_\e(B)
     (?\e$B!-\e(B ?') (?\e$B!.\e(B ?`) (?\e$B!0\e(B ?^) (?\e$B!2\e(B ?_) (?\e$B!<\e(B ?- ?\e(I0\e(B) (?\e$B!=\e(B ?-) (?\e$B!>\e(B ?-)
     (?\e$B!?\e(B ?/) (?\e$B!@\e(B ?\\) (?\e$B!A\e(B ?~)  (?\e$B!C\e(B ?|) (?\e$B!F\e(B ?`) (?\e$B!G\e(B ?') (?\e$B!H\e(B ?\") (?\e$B!I\e(B ?\")
-    (?\\e$B!J\e(B ?\() (?\\e$B!K\e(B ?\)) (?\\e$B!N\e(B ?[) (?\\e$B!O\e(B ?]) (?\\e$B!P\e(B ?{) (?\\e$B!Q\e(B ?})
+    (?\\e$B!J\e(B ?\() (?\\e$B!K\e(B ?\)) (?\\e$B!N\e(B ?\[) (?\\e$B!O\e(B ?\]) (?\\e$B!P\e(B ?{) (?\\e$B!Q\e(B ?})
     (?\e$B!R\e(B ?<) (?\e$B!S\e(B ?>) (?\\e$B!V\e(B nil ?\\e(I"\e(B) (?\\e$B!W\e(B nil ?\\e(I#\e(B)
     (?\e$B!\\e(B ?+) (?\e$B!]\e(B ?-) (?\e$B!a\e(B ?=) (?\e$B!c\e(B ?<) (?\e$B!d\e(B ?>)
     (?\e$B!l\e(B ?') (?\e$B!m\e(B ?\") (?\e$B!o\e(B ?\\) (?\e$B!p\e(B ?$) (?\e$B!s\e(B ?%) (?\e$B!t\e(B ?#) (?\e$B!u\e(B ?&) (?\e$B!v\e(B ?*)

diff --git a/lisp/leim/quail/cyrillic.el b/lisp/leim/quail/cyrillic.el
index af9f66c47f4a5f2678fe91765f8f9bd956b255ec..600193ddc180bd9fb643dfc2ee768229569b705b 100644 (file)
--- a/lisp/leim/quail/cyrillic.el
+++ b/lisp/leim/quail/cyrillic.el
@@ -235,8 +235,8 @@
  ("^" ?:)
  ("&" ??)
  ("*" ?*)
- ("(" ?()
- (")" ?))
+ ("(" ?\()
+ (")" ?\))
  ("_" ?_)
  ("+" ?+)
  ("~" ?Ё)
@@ -789,8 +789,8 @@ Sorry, but `ghe with upturn' is not included in ISO 8859-5."
  ("^" ?:)
  ("&" ??)
  ("*" ?*)
- ("(" ?()
- (")" ?))
+ ("(" ?\()
+ (")" ?\))
  ("_" ?_)
  ("+" ?+)
  ("~" ?')

diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index 7ff35645bddfeab9b65997086abed76b44ac1bce..b0fdfce8e8709db2b5799f67004b37f45de70448 100644 (file)
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1517,8 +1517,8 @@ construct the base name."
     (setq string (mh-replace-string "-lbrace" " "))
     (setq string (mh-replace-string "-rbrace" " "))
     (setq string (mh-replace-string "-search" " "))
-    (subst-char-in-region (point-min) (point-max) ?( ?  t)
-    (subst-char-in-region (point-min) (point-max) ?) ?  t)
+    (subst-char-in-region (point-min) (point-max) ?\( ?  t)
+    (subst-char-in-region (point-min) (point-max) ?\) ?  t)
     (subst-char-in-region (point-min) (point-max) ?- ?  t)
     (goto-char (point-min))
     (while (and (not (eobp)) (memq (char-after) '(?  ?\t ?\n ?\r ?_)))

diff --git a/lisp/nxml/xsd-regexp.el b/lisp/nxml/xsd-regexp.el
index 6acb1ff9d41434637e08c2320287e8f279411be0..d56960c9fa928855af7999ade339d2ce45277ee7 100644 (file)
--- a/lisp/nxml/xsd-regexp.el
+++ b/lisp/nxml/xsd-regexp.el
@@ -621,7 +621,7 @@ whose value is a range-list."
 (defun xsdre-parse-escape ()
   (let ((ch (car xsdre-current-regexp)))
     (xsdre-advance)
-    (cond ((memq ch '(?\\ ?| ?. ?- ?^ ?* ?+ ?( ?) ?{ ?} ?[ ?])) ch)
+    (cond ((memq ch '(?\\ ?| ?. ?- ?^ ?* ?+ ?\( ?\) ?{ ?} ?\[ ?\])) ch)
          ((eq ch ?r) ?\r)
          ((eq ch ?n) ?\n)
          ((eq ch ?t) ?\t)

diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index a6c21bce87c68301c61a82d810eb22bf289910eb..6a7fdc59c22b07fd0bcfc00ea12b622f80f3802e 100644 (file)
--- a/lisp/obsolete/complete.el
+++ b/lisp/obsolete/complete.el
@@ -570,7 +570,7 @@ GOTO-END is non-nil, however, it instead replaces up to END."
                                (substring regex (1+ p)))
                  p (+ p (length PC-ndelims-regex) (length PC-delim-regex)))
          (let ((bump (if (memq (aref regex p)
-                               '(?$ ?^ ?\. ?* ?+ ?? ?[ ?] ?\\))
+                               '(?$ ?^ ?\. ?* ?+ ?? ?\[ ?\] ?\\))
                          -1 0)))
            (setq regex (concat (substring regex 0 (+ p bump))
                                PC-ndelims-regex

diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index 5b611aa2d04a4d716c1eb64deb3ca3744c49d36c..a7a98d0ca55ec743a6fc077d26d8abfef3387842 100644 (file)
--- a/lisp/obsolete/vi.el
+++ b/lisp/obsolete/vi.el
@@ -1444,10 +1444,10 @@ Currently, CHAR could be [,{,(,\",',`,<,*, etc."
   (vi-set-last-change-command 'vi-quote-words arg char)
   (if (not (looking-at "\\<")) (forward-word -1))
   (insert char)
-  (cond ((char-equal char ?[) (setq char ?]))
+  (cond ((char-equal char ?\[) (setq char ?\]))
        ((char-equal char ?{) (setq char ?}))
        ((char-equal char ?<) (setq char ?>))
-       ((char-equal char ?() (setq char ?)))
+       ((char-equal char ?\() (setq char ?\)))
        ((char-equal char ?`) (setq char ?')))
   (vi-end-of-word arg)
   (forward-char 1)

diff --git a/lisp/org/ob-ref.el b/lisp/org/ob-ref.el
index 58cc2d96a6415511fd941e6644b96def7e7983a4..1d26403035fc70d4032357c01fb6e675ab7767e6 100644 (file)
--- a/lisp/org/ob-ref.el
+++ b/lisp/org/ob-ref.el
@@ -133,7 +133,7 @@ the variable."
        ;; if ref is indexed grab the indices -- beware nested indices
        (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
                   (let ((str (substring ref 0 (match-beginning 0))))
-                    (= (org-count ?( str) (org-count ?) str))))
+                    (= (org-count ?\( str) (org-count ?\) str))))
          (setq index (match-string 1 ref))
          (setq ref (substring ref 0 (match-beginning 0))))
        ;; assign any arguments to pass to source block

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 10cca6a4a0acabea48b8bf0f61fef343c881a599..ab3ff3aa2080a6650c17597fff3033ae0f7ab2e0 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1664,7 +1664,7 @@ ARG is the prefix the user entered with \\[universal-argument]."
                                   ada-mode-map
                                   (char-to-string key)
                                   'ada-adjust-case-interactive)))
-         '( ?` ?_ ?# ?% ?& ?* ?( ?) ?- ?= ?+
+         '( ?` ?_ ?# ?% ?& ?* ?\( ?\) ?- ?= ?+
                ?| ?\; ?: ?' ?\" ?< ?, ?. ?> ?/ ?\n 32 ?\r )))
 
 (defun ada-loose-case-word (&optional _arg)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 23ea91fe95b69c072bd9a0f613d86175772e21d0..c0f1aaf39d4654dd44d17f18f44ed488c5d26ca7 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2173,8 +2173,8 @@ See `cperl-electric-parens'."
          (insert (make-string
                   (prefix-numeric-value arg)
                   (cdr (assoc last-command-event '((?{ .?})
-                                                  (?[ . ?])
-                                                  (?( . ?))
+                                                  (?\[ . ?\])
+                                                  (?\( . ?\))
                                                   (?< . ?>))))))
          (forward-char (- (prefix-numeric-value arg))))
       (self-insert-command (prefix-numeric-value arg)))))

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 7ab1442c6481f2e176f6bb8dad25b8dcb1648c9a..8cb912706fd77af166827a8c3781755a2a918fc0 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3118,10 +3118,10 @@ Link exprs of the form:
       (setq span-start (char-after (- span-start 1)))
       (setq span-end (char-after span-end))
       (cond
-       ((= span-start ?)) t)
-      ((= span-start ?]) t)
-     ((= span-end ?() t)
-      ((= span-end ?[) t)
+       ((= span-start ?\)) t)
+      ((= span-start ?\]) t)
+     ((= span-end ?\() t)
+      ((= span-end ?\[) t)
        (t nil)))
      (t nil))))
 

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 1282f08b073036cc5ed5c68a0b4d1b97d81f2489..e7497e8e4fd914fc676ef6cb4f80a362e550595c 100644 (file)
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -4172,8 +4172,8 @@ Otherwise, just expand the file name."
          ([(control ?t)]   ?t   idlwave-shell-toggle-toolbar)
          ([(control up)]   up   idlwave-shell-stack-up)
          ([(control down)] down idlwave-shell-stack-down)
-         ([(        ?[)]   ?[   idlwave-shell-goto-previous-bp t t)
-         ([(        ?])]   ?]   idlwave-shell-goto-next-bp t t)
+         ([(        ?\[)]  ?\[  idlwave-shell-goto-previous-bp t t)
+         ([(        ?\])]  ?\]  idlwave-shell-goto-next-bp t t)
          ([(control ?f)]   ?f   idlwave-shell-window)))
        (mod (and (listp idlwave-shell-debug-modifiers)
                 idlwave-shell-debug-modifiers))

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index a0bbf55a8f46ce9a60ef508bec621e1c60344f58..db965c5a58cc3d41f5ebd861d61dce5bf9191540 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -599,8 +599,8 @@ This is buffer-local in every such buffer.")
     map)
   "Keymap used in Shell-Script mode.")
 
-(defvar sh-skeleton-pair-default-alist '((?( _ ?)) (?\))
-                                     (?[ ?\s _ ?\s ?]) (?\])
+(defvar sh-skeleton-pair-default-alist '((?\( _ ?\)) (?\))
+                                     (?\[ ?\s _ ?\s ?\]) (?\])
                                      (?{ _ ?}) (?\}))
   "Value to use for `skeleton-pair-default-alist' in Shell-Script mode.")
 

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 2c7ce036650fa714d12cc87fcb423e01b38d0939..902a5aace0897ab1cee6a773015bd4b510567fdc 100644 (file)
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1524,7 +1524,7 @@ The first line is assumed to look like \"#!.../program ...\"."
 (defun tcl-quote (string)
   "Quote STRING according to Tcl rules."
   (mapconcat (lambda (char)
-              (if (memq char '(?[ ?] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
+              (if (memq char '(?\[ ?\] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
                   (concat "\\" (char-to-string char))
                 (char-to-string char)))
             string ""))

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 9f3bad1c1a26d8d141ae412afcbd93424cb247be..4860ea2599870a7ae6fb76751fb89e325e199b9f 100644 (file)
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -14003,7 +14003,7 @@ See also `verilog-header' for an alternative format."
 (define-skeleton verilog-sk-task
   "Insert a task definition."
   ()
-  > "task " '(verilog-sk-prompt-name) & ?; \n
+  > "task " '(verilog-sk-prompt-name) & ?\; \n
   > _ \n
   > "begin" \n
   > \n
@@ -14013,7 +14013,7 @@ See also `verilog-header' for an alternative format."
 (define-skeleton verilog-sk-function
   "Insert a function definition."
   ()
-  > "function [" '(verilog-sk-prompt-width) | -1 '(verilog-sk-prompt-name) ?; \n
+  > "function [" '(verilog-sk-prompt-width) | -1 '(verilog-sk-prompt-name) ?\; \n
   > _ \n
   > "begin" \n
   > \n
@@ -14208,13 +14208,13 @@ and the case items."
   '(setq input "state")
   > "// State registers for " str | -23 \n
   '(setq verilog-sk-state str)
-  > "reg [" '(verilog-sk-prompt-width) | -1 verilog-sk-state ", next_" verilog-sk-state ?; \n
+  > "reg [" '(verilog-sk-prompt-width) | -1 verilog-sk-state ", next_" verilog-sk-state ?\; \n
   '(setq input nil)
   > \n
   > "// State FF for " verilog-sk-state \n
   > "always @ ( " (read-string "clock:" "posedge clk") " or " (verilog-sk-prompt-reset) " ) begin" \n
   > "if ( " verilog-sk-reset " ) " verilog-sk-state " = 0; else" \n
-  > verilog-sk-state " = next_" verilog-sk-state ?; \n
+  > verilog-sk-state " = next_" verilog-sk-state ?\; \n
   > (- verilog-indent-level-behavioral) "end" (progn (electric-verilog-terminate-line) nil)
   > \n
   > "// Next State Logic for " verilog-sk-state \n

diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 92de90c6d9baf4af9fd0e77a8a39e69c37e039e5..dbfa87e207d5a071f000f056d437e267640511ef 100644 (file)
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -487,8 +487,8 @@ Each alist element, which looks like (ELEMENT ...), is passed to
 
 Elements might be (?\\=` ?\\=` _ \"\\='\\='\"), (?\\( ?  _ \" )\") or (?{ \\n > _ \\n ?} >).")
 
-(defvar skeleton-pair-default-alist '((?( _ ?)) (?\))
-                                     (?[ _ ?]) (?\])
+(defvar skeleton-pair-default-alist '((?\( _ ?\)) (?\))
+                                     (?\[ _ ?\]) (?\])
                                      (?{ _ ?}) (?\})
                                      (?< _ ?>) (?\>)
                                      (?« _ ?») (?\»)

diff --git a/lisp/woman.el b/lisp/woman.el
index 720fe66be866de121bdeca19741f17ea3a828eab..aa856c39577fb99687f0ce9d602802a4f643e10f 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -4420,7 +4420,7 @@ Needs doing properly!"
       ;; A field is contained between a pair of field delimiter
       ;; characters and consists of sub-strings separated by padding
       ;; indicator characters:
-      (setq delim (string delim ?[ ?^ delim ?] ?* delim))
+      (setq delim (string delim ?\[ ?^ delim ?\] ?* delim))
       (save-excursion
        (while (re-search-forward delim end t)
          (goto-char (match-beginning 0))