# HG changeset patch # User Karl Heuer # Date 837131568 0 # Node ID d6260a2af4567430259f842618d1e7b668dfada2 # Parent b055a4ec9351ecfea07692718aaaec320201efef (dabbrev-case-fold-search, dabbrev-case-replace): Set risky-local-variable property, since these get eval'ed. diff -r b055a4ec9351 -r d6260a2af456 lisp/dabbrev.el --- a/lisp/dabbrev.el Fri Jul 12 00:26:02 1996 +0000 +++ b/lisp/dabbrev.el Fri Jul 12 00:32:48 1996 +0000 @@ -121,6 +121,7 @@ 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 @@ 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.