Fix search error in woman.el
* lisp/woman.el (woman-if-body): Avoid signaling an error if "el }" is not found. (Bug#68852)
This commit is contained in:
parent
4adb4b2ac5
commit
d0766c0999
1 changed files with 2 additions and 1 deletions
|
@ -2566,7 +2566,8 @@ If DELETE is non-nil then delete from point."
|
|||
;; "\\(\\\\{\\)\\|\\(\n[.']\\)?[ \t]*\\\\}[ \t]*"
|
||||
;; Interpret bogus `el \}' as `el \{',
|
||||
;; especially for Tcl/Tk man pages:
|
||||
"\\(\\\\{\\|el[ \t]*\\\\}\\)\\|\\(\n[.']\\)?[ \t]*\\\\}[ \t]*")
|
||||
"\\(\\\\{\\|el[ \t]*\\\\}\\)\\|\\(\n[.']\\)?[ \t]*\\\\}[ \t]*"
|
||||
nil t)
|
||||
(match-beginning 1))
|
||||
(re-search-forward "\\\\}"))
|
||||
(delete-region (if delete from (match-beginning 0)) (point))
|
||||
|
|
Loading…
Add table
Reference in a new issue