[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 474241f356 2/2: Remedy ineffective backslashes and fix regexps
From: |
Mattias EngdegΓ₯rd |
Subject: |
master 474241f356 2/2: Remedy ineffective backslashes and fix regexps |
Date: |
Wed, 11 May 2022 04:35:00 -0400 (EDT) |
branch: master
commit 474241f356c638bfd8d4eecb7138e3af76a8c036
Author: Mattias EngdegΓ₯rd <mattiase@acm.org>
Commit: Mattias EngdegΓ₯rd <mattiase@acm.org>
Remedy ineffective backslashes and fix regexps
* lisp/info.el (Info-read-node-name-2): Double backslash for intended
escaping effect.
* lisp/term.el (term-send-function-key): Remove redundant `+`.
* lisp/leim/quail/indian.el:
* lisp/simple.el (scratch-buffer, get-scratch-buffer-create):
Remove ineffective backslashes.
---
lisp/info.el | 2 +-
lisp/leim/quail/indian.el | 18 +++++++++---------
lisp/simple.el | 4 ++--
lisp/term.el | 2 +-
4 files changed, 13 insertions(+), 13 deletions(-)
diff --git a/lisp/info.el b/lisp/info.el
index 514cf7b3f4..e51f0b9537 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1834,7 +1834,7 @@ list of valid filename suffixes for Info files. See
;; include it (without the suffix).
(when (and (string-match suffix file)
;; But exclude subfiles of split Info files.
- (not (string-match "\.info-[0-9]+" file))
+ (not (string-match "\\.info-[0-9]+" file))
;; And exclude backup files.
(not (string-match "~\\'" file)))
(push (substring file 0 (match-beginning 0))
diff --git a/lisp/leim/quail/indian.el b/lisp/leim/quail/indian.el
index 3bc03558c3..6c58fdd40b 100644
--- a/lisp/leim/quail/indian.el
+++ b/lisp/leim/quail/indian.el
@@ -730,10 +730,10 @@ Full key sequences are listed below:")
("`*" ?π)
("9" ?π―)
("`9" ?9)
- ("`\(" ?π)
+ ("`(" ?π)
("0" ?π¦)
("`0" ?0)
- ("`\)" ?π)
+ ("`)" ?π)
("`-" ?π)
("`_" ?π)
("`=" ?π)
@@ -780,8 +780,8 @@ Full key sequences are listed below:")
("P" ?π¨)
("`p" ?π³)
("`P" ?π±)
- ("`\[" ?π΄)
- ("`\{" ?π²)
+ ("`[" ?π΄)
+ ("`{" ?π²)
("a" ?πΈ)
("A" ?π)
("`a" ?π
)
@@ -863,7 +863,7 @@ Full key sequences are listed below:")
("`9" ?9)
("0" ?ΰ₯¦)
("`0" ?0)
-("`\)" ?π»)
+("`)" ?π»)
("`\\" ?π)
("`|" ?π)
("`" ?π)
@@ -965,7 +965,7 @@ Full key sequences are listed below:")
("`9" ?9)
("0" ?π)
("`0" ?0)
-("`\)" ?π)
+("`)" ?π)
("`\\" ?ΰ₯€)
("`|" ?ΰ₯₯)
("`" ?π)
@@ -1071,7 +1071,7 @@ Full key sequences are listed below:")
("`9" ?9)
("0" ?π)
("`0" ?0)
-("`\)" ?π)
+("`)" ?π)
("`\\" ?π
)
("`|" ?π)
("`" ?π)
@@ -1188,9 +1188,9 @@ Full key sequences are listed below:")
("`8" ?π)
("`*" ?π)
("`9" ?π)
-("`\(" ?π)
+("`(" ?π)
("`0" ?π)
-("`\)" ?π)
+("`)" ?π)
("`\\" ?π)
("`|" ?π)
("`" ?π)
diff --git a/lisp/simple.el b/lisp/simple.el
index edcc226bfa..89fb0ea97e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10214,7 +10214,7 @@ the number of seconds east of Greenwich.")
)
(defun get-scratch-buffer-create ()
- "Return the \*scratch\* buffer, creating a new one if needed."
+ "Return the *scratch* buffer, creating a new one if needed."
(or (get-buffer "*scratch*")
(let ((scratch (get-buffer-create "*scratch*")))
;; Don't touch the buffer contents or mode unless we know that
@@ -10227,7 +10227,7 @@ the number of seconds east of Greenwich.")
scratch)))
(defun scratch-buffer ()
- "Switch to the \*scratch\* buffer.
+ "Switch to the *scratch* buffer.
If the buffer doesn't exist, create it first."
(interactive)
(pop-to-buffer-same-window (get-scratch-buffer-create)))
diff --git a/lisp/term.el b/lisp/term.el
index 640478b59a..54e19a3ea9 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1430,7 +1430,7 @@ Entry to this mode runs the hooks on `term-mode-hook'."
(when (and (= (length key) 1)
(symbolp (elt key 0)))
(let ((name (symbol-name (elt key 0))))
- (when (string-match "\\`f\\([0-9]++\\)\\'" name)
+ (when (string-match "\\`f\\([0-9]+\\)\\'" name)
(let* ((num (string-to-number (match-string 1 name)))
(ansi
(cond