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