diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-02-20 11:25:25 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-02-20 11:25:25 +0100 |
| commit | 9f0852474810311fd2b26fa3756ab6d816016389 (patch) | |
| tree | 00c152dce0936521b6fadaee9e76bebb115eea38 | |
| parent | 1d10885763287f03a5fb348ba27715e049bb48f8 (diff) | |
| download | emacs-9f0852474810311fd2b26fa3756ab6d816016389.tar.gz | |
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.
| -rw-r--r-- | lisp/progmodes/cc-defs.el | 2 | ||||
| -rw-r--r-- | 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) "! ") |