diff options
| author | Richard M. Stallman | 2003-05-18 15:07:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-05-18 15:07:11 +0000 |
| commit | c34066b7636062189bec4e45768d733f43356e00 (patch) | |
| tree | 913b99a734ca3bb070a37de217fd02713c78192f | |
| parent | 62ea1306280ecf6712c87c865adbf4e3525a2788 (diff) | |
| download | emacs-c34066b7636062189bec4e45768d733f43356e00.tar.gz emacs-c34066b7636062189bec4e45768d733f43356e00.zip | |
(which-func-current, which-func-format):
Preload the risky-local-variable properties for them.
| -rw-r--r-- | lisp/which-func.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/which-func.el b/lisp/which-func.el index 57e9463f444..d6bc88c37ca 100644 --- a/lisp/which-func.el +++ b/lisp/which-func.el | |||
| @@ -103,7 +103,7 @@ Zero means compute the Imenu menu regardless of size." | |||
| 103 | "Format for displaying the function in the mode line." | 103 | "Format for displaying the function in the mode line." |
| 104 | :group 'which-func | 104 | :group 'which-func |
| 105 | :type 'sexp) | 105 | :type 'sexp) |
| 106 | (put 'which-func-format 'risky-local-variable t) | 106 | ;;;###autoload (put 'which-func-format 'risky-local-variable t) |
| 107 | 107 | ||
| 108 | (defvar which-func-cleanup-function nil | 108 | (defvar which-func-cleanup-function nil |
| 109 | "Function to transform a string before displaying it in the mode line. | 109 | "Function to transform a string before displaying it in the mode line. |
| @@ -125,7 +125,7 @@ and you want to simplify them for the mode line | |||
| 125 | 125 | ||
| 126 | (defconst which-func-current | 126 | (defconst which-func-current |
| 127 | '(:eval (gethash (selected-window) which-func-table which-func-unknown))) | 127 | '(:eval (gethash (selected-window) which-func-table which-func-unknown))) |
| 128 | (put 'which-func-current 'risky-local-variable t) | 128 | ;;;###autoload (put 'which-func-current 'risky-local-variable t) |
| 129 | 129 | ||
| 130 | (defvar which-func-mode nil | 130 | (defvar which-func-mode nil |
| 131 | "Non-nil means display current function name in mode line. | 131 | "Non-nil means display current function name in mode line. |