Mercurial > emacs
changeset 77384:4c5740f0be2c
(hi-lock-file-patterns-policy): Make it a defcustom, and give it the
risky-local-variable property.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 22 Apr 2007 01:49:46 +0000 |
| parents | e905e4598d5f |
| children | 4eb43d6c4573 |
| files | lisp/hi-lock.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hi-lock.el Sun Apr 22 01:26:45 2007 +0000 +++ b/lisp/hi-lock.el Sun Apr 22 01:49:46 2007 +0000 @@ -124,12 +124,20 @@ :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."