[Emacs-diffs] Changes to emacs/lisp/hi-lock.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/04/22 01:49:46

Index: hi-lock.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/hi-lock.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- hi-lock.el  20 Apr 2007 19:24:19 -0000      1.42
+++ hi-lock.el  22 Apr 2007 01:49:46 -0000      1.43
@@ -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."