diff options
| -rw-r--r-- | lisp/hi-lock.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 0dd5f6ef2e2..78654a171b0 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -124,12 +124,20 @@ calls." :type '(repeat symbol) :group 'hi-lock) -(defvar hi-lock-file-patterns-policy 'never +(defcustom hi-lock-file-patterns-policy 'never "Specify when hi-lock should use patterns found in file. If 'ask, prompt when patterns found in buffer; if bound to a function, use patterns when function returns t (function is called with patterns as first argument); if nil or 'never or anything else, don't use file -patterns.") +patterns." + :type '(choice (const :tag "Do not use file patterns" never) + (const :tag "Ask about file patterns" ask) + (function :tag "Function to check file patterns")) + :group 'hi-lock + :version "22.1") + +;; It can have a function value. +(put 'hi-lock-file-patterns-policy 'risky-local-variable t) (defgroup hi-lock-faces nil "Faces for hi-lock." |