From 176eb1f17f51d9d2cb8f751895b0bf8391cb5857 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 22 Apr 2007 01:49:46 +0000 Subject: [PATCH] (hi-lock-file-patterns-policy): Make it a defcustom, and give it the risky-local-variable property. --- lisp/hi-lock.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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." -- 2.39.5