From 7ca949b7ef9f1efbeaccd459f8ef49cd971b8e8c Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 4 Sep 2021 09:11:37 +0200
Subject: [PATCH] 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).
---
lisp/hi-lock.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 37b88b318de..4c924e9d52a 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -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
--
2.39.5