Tidy file-matching regexps and remove some ineffective backslashes

* lisp/emacs-lisp/package.el (package--delete-directory):
* lisp/net/tramp-cmds.el (tramp-recompile-elpa):
Escape dot; replace $ with \'.
* lisp/help.el (help-for-help):
* lisp/transient.el (transient-font-lock-keywords):
Remove useless backslashes.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index e13391775195e15988227063c9d5aa71e68ca40a..b68ebfbd88788772c3caf1585fc4d97a6bc7951f 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2267,7 +2267,7 @@ Clean-up the corresponding .eln files if Emacs is native
 compiled."
   (when (featurep 'native-compile)
     (cl-loop
-     for file in (directory-files-recursively dir ".el\\'")
+     for file in (directory-files-recursively dir "\\.el\\'")
      do (comp-clean-up-stale-eln (comp-el-to-eln-filename file))))
   (delete-directory dir t))
 

diff --git a/lisp/help.el b/lisp/help.el
index e70041aea4bf61cf74a2bfdc99b04824714e150d..babaf4adc7559474018de3e95eb5fc89ef725f7a 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -233,7 +233,7 @@ Do not call this in the scope of `with-help-window'."
 (make-help-screen help-for-help
   (purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?")
   (concat
-   "\(Type "
+   "(Type "
    (help--key-description-fontified (kbd "<PageDown>"))
    " or "
    (help--key-description-fontified (kbd "<PageUp>"))

diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index a3cf6f3211a7de0df690f87d5c97323a83751a11..1572c2f3e3c63c5fb0be1364615a7b8294d6a347 100644 (file)
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -496,7 +496,7 @@ This is needed if there are compatibility problems."
       ((dir (tramp-compat-funcall
             'package-desc-dir
             (car (alist-get 'tramp (bound-and-true-p package-alist))))))
-    (dolist (elc (directory-files dir 'full "\\.elc$"))
+    (dolist (elc (directory-files dir 'full "\\.elc\\'"))
       (delete-file elc))
     (with-current-buffer (get-buffer-create byte-compile-log-buffer)
       (let ((inhibit-read-only t))

diff --git a/lisp/transient.el b/lisp/transient.el
index 6e7b5ea876a506a50b7b3320cbf13dec73b6847e..2ce7b7c30e121f990acfe4877381adbebc40b129 100644 (file)
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3569,7 +3569,7 @@ we stop there."
                                   "transient-define-argument"
                                   "transient-define-suffix")
                             t)
-                "\\_>[ \t'\(]*"
+                "\\_>[ \t'(]*"
                 "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
        (1 'font-lock-keyword-face)
        (2 'font-lock-function-name-face nil t)))))