From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 4 Sep 2021 07:11:37 +0000 (+0200)
Subject: Tweak hi-lock-mode doc string
X-Git-Tag: emacs-28.0.90~1189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ca949b7ef9f1efbeaccd459f8ef49cd971b8e8c;p=emacs.git

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

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