mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-09 05:01:02 -08:00
Tweak hi-lock-mode doc string
* lisp/hi-lock.el (hi-lock-mode): Tweak the doc string so that running hi-lock-mode in a *Help* buffer showing this help text won't issue an error (bug#20977).
This commit is contained in:
parent
c6b1f8daa7
commit
7ca949b7ef
1 changed files with 3 additions and 3 deletions
|
|
@ -344,9 +344,9 @@ which can be called interactively, are:
|
|||
When hi-lock is started and if the mode is not excluded or patterns
|
||||
rejected, the beginning of the buffer is searched for lines of the
|
||||
form:
|
||||
Hi-lock: FOO
|
||||
Hi-lock: (FOO ...)
|
||||
|
||||
where FOO is a list of patterns. The patterns must start before
|
||||
where (FOO ...) is a list of patterns. The patterns must start before
|
||||
position \(number of characters into buffer)
|
||||
`hi-lock-file-patterns-range'. Patterns will be read until
|
||||
Hi-lock: end is found. A mode is excluded if it's in the list
|
||||
|
|
@ -818,7 +818,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search."
|
|||
(not (looking-at "\\s-*end")))
|
||||
(condition-case nil
|
||||
(setq all-patterns (append (read (current-buffer)) all-patterns))
|
||||
(error (message "Invalid pattern list expression at %d"
|
||||
(error (message "Invalid pattern list expression at line %d"
|
||||
(line-number-at-pos)))))))
|
||||
(when (and all-patterns
|
||||
hi-lock-mode
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue