From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 12 Jul 1996 00:32:48 +0000 (+0000)
Subject: (dabbrev-case-fold-search, dabbrev-case-replace): Set
X-Git-Tag: emacs-19.34~210
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d47e7e5246700bfdd46918c8a1f2a2c265ecdc9;p=emacs.git

(dabbrev-case-fold-search, dabbrev-case-replace): Set
risky-local-variable property, since these get eval'ed.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 5de6097500d..ee3f1f55f29 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -121,6 +121,7 @@ The value of this variable is an expression; it is evaluated
 and the resulting value determines the decision.
 For example: setting this to `case-fold-search' means evaluate that
 variable to see whether its value is nil.")
+(put 'dabbrev-case-fold-search 'risky-local-variable t)
 
 (defvar dabbrev-upcase-means-case-search nil
   "*The significance of an uppercase character in an abbreviation.
@@ -141,6 +142,7 @@ variable to see if its value is t or nil.
 
 This variable has an effect only when the value of
 `dabbrev-case-fold-search' evaluates to t.")
+(put 'dabbrev-case-replace 'risky-local-variable t)
 
 (defvar dabbrev-abbrev-char-regexp nil
   "*Regexp to recognize a character in an abbreviation or expansion.