[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/hi-lock.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/hi-lock.el,v |
Date: |
Sun, 22 Apr 2007 01:49:46 +0000 |
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."