mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(hi-lock-file-patterns-policy): Make it a defcustom, and give it the

Browse source 
risky-local-variable property.
This commit is contained in:
Glenn Morris 2007-04-22 01:49:46 +00:00
parent bd95c2c0f6
commit 176eb1f17f
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/hi-lock.el
View file

@ -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."