From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 13 May 2023 15:03:20 +0000 (+0200)
Subject: Fix regexp bugs
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7dcc0d55c641d3a16ed64528e726fb297726cbf;p=emacs.git

Fix regexp bugs

* lisp/progmodes/idlwave.el (idlwave-make-tags):
* lisp/obsolete/mantemp.el (mantemp-insert-cxx-syntax):
Repair obviously over-escaped control characters.
---

diff --git a/lisp/obsolete/mantemp.el b/lisp/obsolete/mantemp.el
index 5349ec32cab..9fd6c91cc4e 100644
--- a/lisp/obsolete/mantemp.el
+++ b/lisp/obsolete/mantemp.el
@@ -152,7 +152,7 @@ the lines."
     (while (re-search-forward "^.+" nil t)
       (progn
 	(beginning-of-line)
-	(if (looking-at "struct[\\t ]+\\|class[\\t ]+")
+	(if (looking-at "struct[\t ]+\\|class[\t ]+")
 	    (insert "template ")
 	  (insert "template class "))))
     (goto-char (point-min))
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 0b5ed93068a..cafd7b95da7 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -3891,7 +3891,7 @@ you specify /."
 	    (while (and item)
 	      ;;
 	      ;; Call etags
-	      (if (not (string-match "^[ \\t]*$" item))
+	      (if (not (string-match "^[ \t]*$" item))
 		  (progn
 		    (message "%s" (concat "Tagging " item "..."))
 		    (setq errbuf (get-buffer-create "*idltags-error*"))