From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Philipp Newsgroups: gmane.emacs.devel Subject: Re: [PATCH] Fix all unescaped character literals Date: Sun, 07 May 2017 11:37:46 +0000 Message-ID: References: <20170506171731.96296-1-phst@google.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a11442bc6ce5320054eed8d98 X-Trace: blaine.gmane.org 1494157115 14699 195.159.176.226 (7 May 2017 11:38:35 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 7 May 2017 11:38:35 +0000 (UTC) Cc: Philipp Stephani To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun May 07 13:38:31 2017 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1d7KWC-0003iE-Qp for ged-emacs-devel@m.gmane.org; Sun, 07 May 2017 13:38:29 +0200 Original-Received: from localhost ([::1]:54559 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7KWI-00015J-CO for ged-emacs-devel@m.gmane.org; Sun, 07 May 2017 07:38:34 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:54370) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7KVm-0000nu-4Q for emacs-devel@gnu.org; Sun, 07 May 2017 07:38:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7KVi-00052X-PS for emacs-devel@gnu.org; Sun, 07 May 2017 07:38:02 -0400 Original-Received: from mail-wm0-x230.google.com ([2a00:1450:400c:c09::230]:36668) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d7KVi-00052T-BV for emacs-devel@gnu.org; Sun, 07 May 2017 07:37:58 -0400 Original-Received: by mail-wm0-x230.google.com with SMTP id u65so56941835wmu.1 for ; Sun, 07 May 2017 04:37:58 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=z0MwlZYCgNvVaCRK08YWwMhPLf0sCmFfCO94rqIqnq0=; b=BRP16rXEi1+1yKQcVWbxKOjJujicEwNpINrhDKBiI8z3Ca4zaO1JJswqD/57klixmi 5K43ivm6/dxsCYq0iZjW6dSUkSpgti/bq53RlQ9QYKp182X1xm6jJPdW2xsTE0PR0lCe p+PS/HKY05Id18YXM0i0NXDZvjlahz/gJpa4QXC+o3ml8mUer/h2Vx7SRMtOY3WoZE+u tK6UC1r8Ad0X40eHHe/2QWQ5xbtJZPyO3Nw/xRv0JhqoOi2bcTzSNP9Yr3cmKnQQX5nd BGz3oEdsqV2HJ8ltanIHUxt+Ri3KeiIsl3kPP88omLpzzqBZsQEFpXcl7lhEJZkHmvKL RS3g== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=z0MwlZYCgNvVaCRK08YWwMhPLf0sCmFfCO94rqIqnq0=; b=PhZzGQecUl4x226pyOvtRpmZYwy0E88SkIGYmCxLl+C0UAIP3sofCQd3JAT0NryMYX e3bD6YuYNwaM9MLLlN64LuSqB5miM5HG1lLrRcczjp1fjmj/ExS3ovvCmBzslH+6Ihgx 3XKuYENbFDDzkzskbIC7866kfeCaBbEB3gFM967+0YK6tX61vp/4rX91O9S4fBO+mdsd kegVnGfPafdcf3eWIuIuE0laTv3tj0Czie3x7aymasI7EQIB9lv6VvV3qfTcbaIp4eDM Sa0AyWjg/96QvSXnkkhk0jI+VYggBh5xkHoLCQx+V7exxQzIvmN9na+JF5WnRWAg3wnC VSPQ== X-Gm-Message-State: AODbwcDmFPjSmOvZfRQJOYQe1gts9HEErXMrZHEgI0e/HJo1LpbU4mV2 p0YcSZjFu3ZLN2tSl7GrRKbLNoCvGbAj X-Received: by 10.28.14.17 with SMTP id 17mr1777064wmo.95.1494157076875; Sun, 07 May 2017 04:37:56 -0700 (PDT) In-Reply-To: <20170506171731.96296-1-phst@google.com> X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:400c:c09::230 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:214661 Archived-At: --001a11442bc6ce5320054eed8d98 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Philipp Stephani schrieb am Sa., 6. Mai 2017 um 19:17 Uhr: > --- > lisp/calendar/timeclock.el | 4 ++-- > lisp/emulation/viper-cmd.el | 2 +- > lisp/language/japan-util.el | 2 +- > lisp/leim/quail/cyrillic.el | 8 ++++---- > lisp/mh-e/mh-search.el | 4 ++-- > lisp/nxml/xsd-regexp.el | 2 +- > lisp/obsolete/complete.el | 2 +- > lisp/obsolete/vi.el | 4 ++-- > lisp/org/ob-ref.el | 2 +- > lisp/progmodes/ada-mode.el | 2 +- > lisp/progmodes/cperl-mode.el | 4 ++-- > lisp/progmodes/gud.el | 8 ++++---- > lisp/progmodes/idlw-shell.el | 4 ++-- > lisp/progmodes/sh-script.el | 4 ++-- > lisp/progmodes/tcl.el | 2 +- > lisp/progmodes/verilog-mode.el | 8 ++++---- > lisp/skeleton.el | 4 ++-- > lisp/woman.el | 2 +- > 18 files changed, 34 insertions(+), 34 deletions(-) > > diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el > index f8de084f77..a4709c3b4b 100644 > --- a/lisp/calendar/timeclock.el > +++ b/lisp/calendar/timeclock.el > @@ -656,9 +656,9 @@ timeclock-update-mode-line > (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 831b9c1ac2..a697aa7d03 100644 > --- a/lisp/emulation/viper-cmd.el > +++ b/lisp/emulation/viper-cmd.el > @@ -90,7 +90,7 @@ viper-charpair-commands > > (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 abc8d7d6bc..01cdd8bef9 100644 > --- a/lisp/language/japan-util.el > +++ b/lisp/language/japan-util.el > @@ -102,7 +102,7 @@ japanese-symbol-table > (? $B!' (B ?:) (? $B!( (B ?\;) (? $B!) (B ??) (? $B!* (B ?!) (? $B!+ > (B nil ? (I^ (B) (? $B!, (B nil ? (I_ (B) > (? $B!- (B ?') (? $B!. (B ?`) (? $B!0 (B ?^) (? $B!2 (B ?_) (? $B!< > (B ?- ? (I0 (B) (? $B!=3D (B ?-) (? $B!> (B ?-) > (? $B!? (B ?/) (? $B!@ (B ?\\) (? $B!A (B ?~) (? $B!C (B ?|) (? $B!= F > (B ?`) (? $B!G (B ?') (? $B!H (B ?\") (? $B!I (B ?\") > - (?\ $B!J (B ?\() (?\ $B!K (B ?\)) (?\ $B!N (B ?[) (?\ $B!O (B ?]) (?= \ > $B!P (B ?{) (?\ $B!Q (B ?}) > + (?\ $B!J (B ?\() (?\ $B!K (B ?\)) (?\ $B!N (B ?\[) (?\ $B!O (B ?\]) > (?\ $B!P (B ?{) (?\ $B!Q (B ?}) > (? $B!R (B ?<) (? $B!S (B ?>) (?\ $B!V (B nil ?\ (I" (B) (?\ $B!W (B > nil ?\ (I# (B) > (? $B!\ (B ?+) (? $B!] (B ?-) (? $B!a (B ?=3D) (? $B!c (B ?<) (? $B!= d > (B ?>) > (? $B!l (B ?') (? $B!m (B ?\") (? $B!o (B ?\\) (? $B!p (B ?$) (? $B!= s > (B ?%) (? $B!t (B ?#) (? $B!u (B ?&) (? $B!v (B ?*) > diff --git a/lisp/leim/quail/cyrillic.el b/lisp/leim/quail/cyrillic.el > index af9f66c47f..600193ddc1 100644 > --- a/lisp/leim/quail/cyrillic.el > +++ b/lisp/leim/quail/cyrillic.el > @@ -235,8 +235,8 @@ > ("^" ?:) > ("&" ??) > ("*" ?*) > - ("(" ?() > - (")" ?)) > + ("(" ?\() > + (")" ?\)) > ("_" ?_) > ("+" ?+) > ("~" ?=D0=81) > @@ -789,8 +789,8 @@ > ("^" ?:) > ("&" ??) > ("*" ?*) > - ("(" ?() > - (")" ?)) > + ("(" ?\() > + (")" ?\)) > ("_" ?_) > ("+" ?+) > ("~" ?') > diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el > index 099f922a5e..0c2969f5ea 100644 > --- a/lisp/mh-e/mh-search.el > +++ b/lisp/mh-e/mh-search.el > @@ -1517,8 +1517,8 @@ mh-index-generate-pretty-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 6acb1ff9d4..d56960c9fa 100644 > --- a/lisp/nxml/xsd-regexp.el > +++ b/lisp/nxml/xsd-regexp.el > @@ -621,7 +621,7 @@ xsdre-single-escape > (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 a6c21bce87..6a7fdc59c2 100644 > --- a/lisp/obsolete/complete.el > +++ b/lisp/obsolete/complete.el > @@ -570,7 +570,7 @@ PC-do-completion > (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 5b611aa2d0..a7a98d0ca5 100644 > --- a/lisp/obsolete/vi.el > +++ b/lisp/obsolete/vi.el > @@ -1444,10 +1444,10 @@ vi-quote-words > (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 58cc2d96a6..1d26403035 100644 > --- a/lisp/org/ob-ref.el > +++ b/lisp/org/ob-ref.el > @@ -133,7 +133,7 @@ org-babel-ref-resolve > ;; if ref is indexed grab the indices -- beware nested indices > (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref) > (let ((str (substring ref 0 (match-beginning 0)))) > - (=3D (org-count ?( str) (org-count ?) str)))) > + (=3D (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 10cca6a4a0..ab3ff3aa20 100644 > --- a/lisp/progmodes/ada-mode.el > +++ b/lisp/progmodes/ada-mode.el > @@ -1664,7 +1664,7 @@ ada-activate-keys-for-case > ada-mode-map > (char-to-string key) > 'ada-adjust-case-interactive))) > - '( ?` ?_ ?# ?% ?& ?* ?( ?) ?- ?=3D ?+ > + '( ?` ?_ ?# ?% ?& ?* ?\( ?\) ?- ?=3D ?+ > ?| ?\; ?: ?' ?\" ?< ?, ?. ?> ?/ ?\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 23ea91fe95..c0f1aaf39d 100644 > --- a/lisp/progmodes/cperl-mode.el > +++ b/lisp/progmodes/cperl-mode.el > @@ -2173,8 +2173,8 @@ cperl-electric-paren > (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 7ab1442c64..8cb912706f 100644 > --- a/lisp/progmodes/gud.el > +++ b/lisp/progmodes/gud.el > @@ -3118,10 +3118,10 @@ gud-expr-compound > (setq span-start (char-after (- span-start 1))) > (setq span-end (char-after span-end)) > (cond > - ((=3D span-start ?)) t) > - ((=3D span-start ?]) t) > - ((=3D span-end ?() t) > - ((=3D span-end ?[) t) > + ((=3D span-start ?\)) t) > + ((=3D span-start ?\]) t) > + ((=3D span-end ?\() t) > + ((=3D span-end ?\[) t) > (t nil))) > (t nil)))) > > diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el > index 1282f08b07..e7497e8e4f 100644 > --- a/lisp/progmodes/idlw-shell.el > +++ b/lisp/progmodes/idlw-shell.el > @@ -4172,8 +4172,8 @@ idlwave-shell-mouse-nop > ([(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 a0bbf55a8f..db965c5a58 100644 > --- a/lisp/progmodes/sh-script.el > +++ b/lisp/progmodes/sh-script.el > @@ -599,8 +599,8 @@ sh-mode-map > 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 2c7ce03665..902a5aace0 100644 > --- a/lisp/progmodes/tcl.el > +++ b/lisp/progmodes/tcl.el > @@ -1524,7 +1524,7 @@ tcl-popup-menu > (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 9f3bad1c1a..4860ea2599 100644 > --- a/lisp/progmodes/verilog-mode.el > +++ b/lisp/progmodes/verilog-mode.el > @@ -14003,7 +14003,7 @@ verilog-sk-primitive > (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 @@ verilog-sk-task > (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 @@ verilog-sk-state-machine > '(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 " =3D 0; else" \n > - > verilog-sk-state " =3D next_" verilog-sk-state ?; \n > + > verilog-sk-state " =3D 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 92de90c6d9..dbfa87e207 100644 > --- a/lisp/skeleton.el > +++ b/lisp/skeleton.el > @@ -487,8 +487,8 @@ skeleton-pair-alist > > Elements might be (?\\=3D` ?\\=3D` _ \"\\=3D'\\=3D'\"), (?\\( ? _ \" )\= ") or (?{ > \\n > _ \\n ?} >).") > > -(defvar skeleton-pair-default-alist '((?( _ ?)) (?\)) > - (?[ _ ?]) (?\]) > +(defvar skeleton-pair-default-alist '((?\( _ ?\)) (?\)) > + (?\[ _ ?\]) (?\]) > (?{ _ ?}) (?\}) > (?< _ ?>) (?\>) > (?=C2=AB _ ?=C2=BB) (?\=C2=BB) > diff --git a/lisp/woman.el b/lisp/woman.el > index 720fe66be8..aa856c3957 100644 > --- a/lisp/woman.el > +++ b/lisp/woman.el > @@ -4420,7 +4420,7 @@ woman2-fc > ;; 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)) > -- > 2.12.2 > > Because this patch is trivial, I've installed it as 3c4c8ca06e. --001a11442bc6ce5320054eed8d98 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable


Philip= p Stephani <phil07c1@gmail.com= > schrieb am Sa., 6. Mai 2017 um 19:17=C2=A0Uhr:
---
=C2=A0lisp/calendar/timeclock.el=C2=A0 =C2=A0 =C2=A0| 4 ++--
=C2=A0lisp/emulation/viper-cmd.el=C2=A0 =C2=A0 | 2 +-
=C2=A0lisp/language/japan-util.el=C2=A0 =C2=A0 | 2 +-
=C2=A0lisp/leim/quail/cyrillic.el=C2=A0 =C2=A0 | 8 ++++----
=C2=A0lisp/mh-e/mh-search.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0| 4 ++--
=C2=A0lisp/nxml/xsd-regexp.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 | 2 +-
=C2=A0lisp/obsolete/complete.el=C2=A0 =C2=A0 =C2=A0 | 2 +-
=C2=A0lisp/obsolete/vi.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 | 4 ++--=
=C2=A0lisp/org/ob-ref.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0| 2= +-
=C2=A0lisp/progmodes/ada-mode.el=C2=A0 =C2=A0 =C2=A0| 2 +-
=C2=A0lisp/progmodes/cperl-mode.el=C2=A0 =C2=A0| 4 ++--
=C2=A0lisp/progmodes/gud.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 | 8 ++++----<= br> =C2=A0lisp/progmodes/idlw-shell.el=C2=A0 =C2=A0| 4 ++--
=C2=A0lisp/progmodes/sh-script.el=C2=A0 =C2=A0 | 4 ++--
=C2=A0lisp/progmodes/tcl.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 | 2 +-
=C2=A0lisp/progmodes/verilog-mode.el | 8 ++++----
=C2=A0lisp/skeleton.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0| 4 ++--
=C2=A0lisp/woman.el=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 | 2 +-
=C2=A018 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index f8de084f77..a4709c3b4b 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -656,9 +656,9 @@ timeclock-update-mode-line
=C2=A0 =C2=A0 =C2=A0(setq timeclock-mode-string
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(propertize
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (format " %c%s%c "
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(if l= ast-in ?< ?[)
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(if l= ast-in ?< ?\[)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(timec= lock-seconds-to-string remainder nil t)
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if last-in= ?> ?]))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if last-in= ?> ?\]))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 'help-echo "timeclock: t= ime remaining"))))

=C2=A0(put 'timeclock-mode-string 'risky-local-variable t)
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 831b9c1ac2..a697aa7d03 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -90,7 +90,7 @@ viper-charpair-commands

=C2=A0(defconst viper-movement-commands '(?b ?B ?e ?E ?f ?F ?G ?h ?j ?k= ?l
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0?H ?M ?L ?n ?t ?= T ?w ?W ?$ ?%
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ?^ ?( ?) ?- ?+ ?| ?{ ?= } ?[ ?] ?' ?`
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ?^ ?\( ?\) ?- ?+ ?| ?{= ?} ?\[ ?\] ?' ?`
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0?\; ?, ?0 ?? ?/ = ?\=C2=A0 ?\C-m
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0space return
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0delete backspace=
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index abc8d7d6bc..01cdd8bef9 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -102,7 +102,7 @@ japanese-symbol-table
=C2=A0 =C2=A0 =C2=A0(? $B!' (B ?:) (? $B!( (B ?\;) (? $B!) (B ??) (? $B= !* (B ?!) (? $B!+ (B nil ? (I^ (B) (? $B!, (B nil ? (I_ (B)
=C2=A0 =C2=A0 =C2=A0(? $B!- (B ?') (? $B!. (B ?`) (? $B!0 (B ?^) (? $B!= 2 (B ?_) (? $B!< (B ?- ? (I0 (B) (? $B!=3D (B ?-) (? $B!> (B ?-)
=C2=A0 =C2=A0 =C2=A0(? $B!? (B ?/) (? $B!@ (B ?\\) (? $B!A (B ?~)=C2=A0 (? = $B!C (B ?|) (? $B!F (B ?`) (? $B!G (B ?') (? $B!H (B ?\") (? $B!I = (B ?\")
-=C2=A0 =C2=A0 (?\ $B!J (B ?\() (?\ $B!K (B ?\)) (?\ $B!N (B ?[) (?\ $B!O (= B ?]) (?\ $B!P (B ?{) (?\ $B!Q (B ?})
+=C2=A0 =C2=A0 (?\ $B!J (B ?\() (?\ $B!K (B ?\)) (?\ $B!N (B ?\[) (?\ $B!O = (B ?\]) (?\ $B!P (B ?{) (?\ $B!Q (B ?})
=C2=A0 =C2=A0 =C2=A0(? $B!R (B ?<) (? $B!S (B ?>) (?\ $B!V (B nil ?\ = (I" (B) (?\ $B!W (B nil ?\ (I# (B)
=C2=A0 =C2=A0 =C2=A0(? $B!\ (B ?+) (? $B!] (B ?-) (? $B!a (B ?=3D) (? $B!c = (B ?<) (? $B!d (B ?>)
=C2=A0 =C2=A0 =C2=A0(? $B!l (B ?') (? $B!m (B ?\") (? $B!o (B ?\\)= (? $B!p (B ?$) (? $B!s (B ?%) (? $B!t (B ?#) (? $B!u (B ?&) (? $B!v (B= ?*)
diff --git a/lisp/leim/quail/cyrillic.el b/lisp/leim/quail/cyrillic.el
index af9f66c47f..600193ddc1 100644
--- a/lisp/leim/quail/cyrillic.el
+++ b/lisp/leim/quail/cyrillic.el
@@ -235,8 +235,8 @@
=C2=A0 ("^" ?:)
=C2=A0 ("&" ??)
=C2=A0 ("*" ?*)
- ("(" ?()
- (")" ?))
+ ("(" ?\()
+ (")" ?\))
=C2=A0 ("_" ?_)
=C2=A0 ("+" ?+)
=C2=A0 ("~" ?=D0=81)
@@ -789,8 +789,8 @@
=C2=A0 ("^" ?:)
=C2=A0 ("&" ??)
=C2=A0 ("*" ?*)
- ("(" ?()
- (")" ?))
+ ("(" ?\()
+ (")" ?\))
=C2=A0 ("_" ?_)
=C2=A0 ("+" ?+)
=C2=A0 ("~" ?')
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index 099f922a5e..0c2969f5ea 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1517,8 +1517,8 @@ mh-index-generate-pretty-name
=C2=A0 =C2=A0 =C2=A0(setq string (mh-replace-string "-lbrace" &qu= ot; "))
=C2=A0 =C2=A0 =C2=A0(setq string (mh-replace-string "-rbrace" &qu= ot; "))
=C2=A0 =C2=A0 =C2=A0(setq string (mh-replace-string "-search" &qu= ot; "))
-=C2=A0 =C2=A0 (subst-char-in-region (point-min) (point-max) ?( ?=C2=A0 t)<= br> -=C2=A0 =C2=A0 (subst-char-in-region (point-min) (point-max) ?) ?=C2=A0 t)<= br> +=C2=A0 =C2=A0 (subst-char-in-region (point-min) (point-max) ?\( ?=C2=A0 t)=
+=C2=A0 =C2=A0 (subst-char-in-region (point-min) (point-max) ?\) ?=C2=A0 t)=
=C2=A0 =C2=A0 =C2=A0(subst-char-in-region (point-min) (point-max) ?- ?=C2= =A0 t)
=C2=A0 =C2=A0 =C2=A0(goto-char (point-min))
=C2=A0 =C2=A0 =C2=A0(while (and (not (eobp)) (memq (char-after) '(?=C2= =A0 ?\t ?\n ?\r ?_)))
diff --git a/lisp/nxml/xsd-regexp.el b/lisp/nxml/xsd-regexp.el
index 6acb1ff9d4..d56960c9fa 100644
--- a/lisp/nxml/xsd-regexp.el
+++ b/lisp/nxml/xsd-regexp.el
@@ -621,7 +621,7 @@ xsdre-single-escape
=C2=A0(defun xsdre-parse-escape ()
=C2=A0 =C2=A0(let ((ch (car xsdre-current-regexp)))
=C2=A0 =C2=A0 =C2=A0(xsdre-advance)
-=C2=A0 =C2=A0 (cond ((memq ch '(?\\ ?| ?. ?- ?^ ?* ?+ ?( ?) ?{ ?} ?[ ?= ])) ch)
+=C2=A0 =C2=A0 (cond ((memq ch '(?\\ ?| ?. ?- ?^ ?* ?+ ?\( ?\) ?{ ?} ?\= [ ?\])) ch)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ((eq ch ?r) ?\r)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ((eq ch ?n) ?\n)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ((eq ch ?t) ?\t)
diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el
index a6c21bce87..6a7fdc59c2 100644
--- a/lisp/obsolete/complete.el
+++ b/lisp/obsolete/complete.el
@@ -570,7 +570,7 @@ PC-do-completion
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (substring regex (1+ p)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 p (+ p (leng= th PC-ndelims-regex) (length PC-delim-regex)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((bump (if (memq (aref regex p)
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0'(?$ ?^ ?\. ?* ?+ ?? ?[ ?] ?\\))<= br> +=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0'(?$ ?^ ?\. ?* ?+ ?? ?\[ ?\] ?\\)= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 -1 0)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq regex (concat (substring re= gex 0 (+ p bump))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 PC-ndelims-regex
diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index 5b611aa2d0..a7a98d0ca5 100644
--- a/lisp/obsolete/vi.el
+++ b/lisp/obsolete/vi.el
@@ -1444,10 +1444,10 @@ vi-quote-words
=C2=A0 =C2=A0(vi-set-last-change-command 'vi-quote-words arg char)
=C2=A0 =C2=A0(if (not (looking-at "\\<")) (forward-word -1)) =C2=A0 =C2=A0(insert char)
-=C2=A0 (cond ((char-equal char ?[) (setq char ?]))
+=C2=A0 (cond ((char-equal char ?\[) (setq char ?\]))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ((char-equal char ?{) (setq char ?}))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ((char-equal char ?<) (setq char ?>))
-=C2=A0 =C2=A0 =C2=A0 =C2=A0((char-equal char ?() (setq char ?)))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0((char-equal char ?\() (setq char ?\)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ((char-equal char ?`) (setq char ?')))
=C2=A0 =C2=A0(vi-end-of-word arg)
=C2=A0 =C2=A0(forward-char 1)
diff --git a/lisp/org/ob-ref.el b/lisp/org/ob-ref.el
index 58cc2d96a6..1d26403035 100644
--- a/lisp/org/ob-ref.el
+++ b/lisp/org/ob-ref.el
@@ -133,7 +133,7 @@ org-babel-ref-resolve
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ;; if ref is indexed grab the indices -- beware= nested indices
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (when (and (string-match "\\[\\([^\\[]+\\)= \\]$" ref)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(let (= (str (substring ref 0 (match-beginning 0))))
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (=3D= (org-count ?( str) (org-count ?) str))))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (=3D= (org-count ?\( str) (org-count ?\) str))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq index (match-string 1 ref))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (setq ref (substring ref 0 (match-beginn= ing 0))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ;; assign any arguments to pass to source block=
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 10cca6a4a0..ab3ff3aa20 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -1664,7 +1664,7 @@ ada-activate-keys-for-case
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0ada-mode-map
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(char-to-string key) =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0'ada-adjust-case-in= teractive)))
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0'( ?` ?_ ?# ?% ?& ?* ?( ?) ?- ?= =3D ?+
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0'( ?` ?_ ?# ?% ?& ?* ?\( ?\) ?- = ?=3D ?+
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ?| ?\; ?: ?' ?\= " ?< ?, ?. ?> ?/ ?\n 32 ?\r )))

=C2=A0(defun ada-loose-case-word (&optional _arg)
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 23ea91fe95..c0f1aaf39d 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -2173,8 +2173,8 @@ cperl-electric-paren
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (insert (make-string
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(prefi= x-numeric-value arg)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(cdr (= assoc last-command-event '((?{ .?})
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?[ . ?])
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?( . ?))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?\[ . ?\])
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?\( . ?\))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(?< . ?>))))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (forward-char (- (prefix-numeric-value a= rg))))
=C2=A0 =C2=A0 =C2=A0 =C2=A0(self-insert-command (prefix-numeric-value arg))= )))
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 7ab1442c64..8cb912706f 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3118,10 +3118,10 @@ gud-expr-compound
=C2=A0 =C2=A0 =C2=A0 =C2=A0(setq span-start (char-after (- span-start 1)))<= br> =C2=A0 =C2=A0 =C2=A0 =C2=A0(setq span-end (char-after span-end))
=C2=A0 =C2=A0 =C2=A0 =C2=A0(cond
-=C2=A0 =C2=A0 =C2=A0 =C2=A0((=3D span-start ?)) t)
-=C2=A0 =C2=A0 =C2=A0 ((=3D span-start ?]) t)
-=C2=A0 =C2=A0 =C2=A0((=3D span-end ?() t)
-=C2=A0 =C2=A0 =C2=A0 ((=3D span-end ?[) t)
+=C2=A0 =C2=A0 =C2=A0 =C2=A0((=3D span-start ?\)) t)
+=C2=A0 =C2=A0 =C2=A0 ((=3D span-start ?\]) t)
+=C2=A0 =C2=A0 =C2=A0((=3D span-end ?\() t)
+=C2=A0 =C2=A0 =C2=A0 ((=3D span-end ?\[) t)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (t nil)))
=C2=A0 =C2=A0 =C2=A0 (t nil))))

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 1282f08b07..e7497e8e4f 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -4172,8 +4172,8 @@ idlwave-shell-mouse-nop
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ([(control ?t)]=C2=A0 =C2=A0?t=C2=A0 =C2= =A0idlwave-shell-toggle-toolbar)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ([(control up)]=C2=A0 =C2=A0up=C2=A0 =C2= =A0idlwave-shell-stack-up)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ([(control down)] down idlwave-shell-sta= ck-down)
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0([(=C2=A0 =C2=A0 =C2=A0 =C2=A0 ?[)]=C2= =A0 =C2=A0?[=C2=A0 =C2=A0idlwave-shell-goto-previous-bp t t)
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0([(=C2=A0 =C2=A0 =C2=A0 =C2=A0 ?])]=C2= =A0 =C2=A0?]=C2=A0 =C2=A0idlwave-shell-goto-next-bp t t)
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0([(=C2=A0 =C2=A0 =C2=A0 =C2=A0 ?\[)]=C2= =A0 ?\[=C2=A0 idlwave-shell-goto-previous-bp t t)
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0([(=C2=A0 =C2=A0 =C2=A0 =C2=A0 ?\])]=C2= =A0 ?\]=C2=A0 idlwave-shell-goto-next-bp t t)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ([(control ?f)]=C2=A0 =C2=A0?f=C2=A0 =C2= =A0idlwave-shell-window)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (mod (and (listp idlwave-shell-debug-modifiers)=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0idlwave-shell= -debug-modifiers))
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index a0bbf55a8f..db965c5a58 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -599,8 +599,8 @@ sh-mode-map
=C2=A0 =C2=A0 =C2=A0map)
=C2=A0 =C2=A0"Keymap used in Shell-Script mode.")

-(defvar sh-skeleton-pair-default-alist '((?( _ ?)) (?\))
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(?[ ?\s _ ?\s ?]= ) (?\])
+(defvar sh-skeleton-pair-default-alist '((?\( _ ?\)) (?\))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(?\[ ?\s _ ?\s ?= \]) (?\])
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?{ _ ?}) (?\})= )
=C2=A0 =C2=A0"Value to use for `skeleton-pair-default-alist' in Sh= ell-Script mode.")

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index 2c7ce03665..902a5aace0 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -1524,7 +1524,7 @@ tcl-popup-menu
=C2=A0(defun tcl-quote (string)
=C2=A0 =C2=A0"Quote STRING according to Tcl rules."
=C2=A0 =C2=A0(mapconcat (lambda (char)
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (memq char '(?[ ?= ] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (memq char '(?\[ = ?\] ?{ ?} ?\\ ?\" ?$ ?\s ?\;))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(conca= t "\\" (char-to-string char))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(char-to-stri= ng char)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0string ""))
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.e= l
index 9f3bad1c1a..4860ea2599 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -14003,7 +14003,7 @@ verilog-sk-primitive
=C2=A0(define-skeleton verilog-sk-task
=C2=A0 =C2=A0"Insert a task definition."
=C2=A0 =C2=A0()
-=C2=A0 > "task " '(verilog-sk-prompt-name) & ?; \n +=C2=A0 > "task " '(verilog-sk-prompt-name) & ?\; \n =C2=A0 =C2=A0> _ \n
=C2=A0 =C2=A0> "begin" \n
=C2=A0 =C2=A0> \n
@@ -14013,7 +14013,7 @@ verilog-sk-task
=C2=A0(define-skeleton verilog-sk-function
=C2=A0 =C2=A0"Insert a function definition."
=C2=A0 =C2=A0()
-=C2=A0 > "function [" '(verilog-sk-prompt-width) | -1 = 9;(verilog-sk-prompt-name) ?; \n
+=C2=A0 > "function [" '(verilog-sk-prompt-width) | -1 = 9;(verilog-sk-prompt-name) ?\; \n
=C2=A0 =C2=A0> _ \n
=C2=A0 =C2=A0> "begin" \n
=C2=A0 =C2=A0> \n
@@ -14208,13 +14208,13 @@ verilog-sk-state-machine
=C2=A0 =C2=A0'(setq input "state")
=C2=A0 =C2=A0> "// State registers for " str | -23 \n
=C2=A0 =C2=A0'(setq verilog-sk-state str)
-=C2=A0 > "reg [" '(verilog-sk-prompt-width) | -1 verilog-= sk-state ", next_" verilog-sk-state ?; \n
+=C2=A0 > "reg [" '(verilog-sk-prompt-width) | -1 verilog-= sk-state ", next_" verilog-sk-state ?\; \n
=C2=A0 =C2=A0'(setq input nil)
=C2=A0 =C2=A0> \n
=C2=A0 =C2=A0> "// State FF for " verilog-sk-state \n
=C2=A0 =C2=A0> "always @ ( " (read-string "clock:" &= quot;posedge clk") " or " (verilog-sk-prompt-reset) " )= begin" \n
=C2=A0 =C2=A0> "if ( " verilog-sk-reset " ) " verilo= g-sk-state " =3D 0; else" \n
-=C2=A0 > verilog-sk-state " =3D next_" verilog-sk-state ?; \n=
+=C2=A0 > verilog-sk-state " =3D next_" verilog-sk-state ?\; \= n
=C2=A0 =C2=A0> (- verilog-indent-level-behavioral) "end" (prog= n (electric-verilog-terminate-line) nil)
=C2=A0 =C2=A0> \n
=C2=A0 =C2=A0> "// Next State Logic for " verilog-sk-state \n<= br> diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 92de90c6d9..dbfa87e207 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -487,8 +487,8 @@ skeleton-pair-alist

=C2=A0Elements might be (?\\=3D` ?\\=3D` _ \"\\=3D'\\=3D'\&quo= t;), (?\\( ?=C2=A0 _ \" )\") or (?{ \\n > _ \\n ?} >)."= ;)

-(defvar skeleton-pair-default-alist '((?( _ ?)) (?\))
-=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(?[ _ ?]) (?\])<= br> +(defvar skeleton-pair-default-alist '((?\( _ ?\)) (?\))
+=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(?\[ _ ?\]) (?\]= )
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?{ _ ?}) (?\})=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?< _ ?>)= (?\>)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (?=C2=AB _ ?=C2= =BB) (?\=C2=BB)
diff --git a/lisp/woman.el b/lisp/woman.el
index 720fe66be8..aa856c3957 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -4420,7 +4420,7 @@ woman2-fc
=C2=A0 =C2=A0 =C2=A0 =C2=A0;; A field is contained between a pair of field = delimiter
=C2=A0 =C2=A0 =C2=A0 =C2=A0;; characters and consists of sub-strings separa= ted by padding
=C2=A0 =C2=A0 =C2=A0 =C2=A0;; indicator characters:
-=C2=A0 =C2=A0 =C2=A0 (setq delim (string delim ?[ ?^ delim ?] ?* delim)) +=C2=A0 =C2=A0 =C2=A0 (setq delim (string delim ?\[ ?^ delim ?\] ?* delim))=
=C2=A0 =C2=A0 =C2=A0 =C2=A0(save-excursion
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (while (re-search-forward delim end t)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (goto-char (match-beginning 0))
--
2.12.2


Because this patch is trivial, I'v= e installed it as 3c4c8ca06e.=C2=A0
--001a11442bc6ce5320054eed8d98--