From 9f0852474810311fd2b26fa3756ab6d816016389 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 20 Feb 2020 11:25:25 +0100 Subject: Fix broken regexps Incorrect escaping prevented these from working as intended. Found by relint. * lisp/progmodes/cc-defs.el (c-search-backward-char-property): Add missing backslash. * lisp/progmodes/simula.el (simula-mode): Remove one backslash too many. --- lisp/progmodes/cc-defs.el | 2 +- lisp/progmodes/simula.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 5ca64a0a752..12be09d9b45 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -1278,7 +1278,7 @@ point is then left undefined." place ,property nil ,(or limit '(point-min))))) (when (> place ,(or limit '(point-min))) (goto-char place) - (search-backward-regexp "\\(n\\|.\\)") ; to set the match-data. + (search-backward-regexp "\\(\n\\|.\\)") ; to set the match-data. (point)))) (defun c-clear-char-property-with-value-function (from to property value) diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 5d5f180a5cf..be3edfdc6e4 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -367,7 +367,7 @@ Turning on SIMULA mode calls the value of the variable simula-mode-hook with no arguments, if that value is non-nil." (set (make-local-variable 'comment-column) 40) ;; (set (make-local-variable 'end-comment-column) 75) - (set (make-local-variable 'paragraph-start) "[ \t]*$\\|\\f") + (set (make-local-variable 'paragraph-start) "[ \t]*$\\|\f") (set (make-local-variable 'paragraph-separate) paragraph-start) (set (make-local-variable 'indent-line-function) 'simula-indent-line) (set (make-local-variable 'comment-start) "! ") -- cgit v1.2.1