procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix broken regexps

Browse source 
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.
This commit is contained in:
Mattias Engdegård 2020-02-20 11:25:25 +01:00
parent 1d10885763
commit 9f08524748
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/cc-defs.el
View file

@ -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)

2
lisp/progmodes/simula.el
View file

@ -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) "! ")