# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1177206586 0
# Node ID 4c5740f0be2c1096ce1b280525dc52534333f75a
# Parent  e905e4598d5f461d5747d110535e9c4446d98f97
(hi-lock-file-patterns-policy): Make it a defcustom, and give it the
risky-local-variable property.

diff -r e905e4598d5f -r 4c5740f0be2c lisp/hi-lock.el
--- 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."