From: Glenn Morris <rgm@gnu.org>
Date: Sun, 22 Apr 2007 01:49:46 +0000 (+0000)
Subject: (hi-lock-file-patterns-policy): Make it a defcustom, and give it the
X-Git-Tag: emacs-pretest-22.0.99~102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=176eb1f17f51d9d2cb8f751895b0bf8391cb5857;p=emacs.git

(hi-lock-file-patterns-policy): Make it a defcustom, and give it the
risky-local-variable property.
---

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