103 |
"Format for displaying the function in the mode line." |
"Format for displaying the function in the mode line." |
104 |
:group 'which-func |
:group 'which-func |
105 |
:type 'sexp) |
:type 'sexp) |
106 |
(put 'which-func-format 'risky-local-variable t) |
;;;###autoload (put 'which-func-format 'risky-local-variable t) |
107 |
|
|
108 |
(defvar which-func-cleanup-function nil |
(defvar which-func-cleanup-function nil |
109 |
"Function to transform a string before displaying it in the mode line. |
"Function to transform a string before displaying it in the mode line. |
125 |
|
|
126 |
(defconst which-func-current |
(defconst which-func-current |
127 |
'(:eval (gethash (selected-window) which-func-table which-func-unknown))) |
'(:eval (gethash (selected-window) which-func-table which-func-unknown))) |
128 |
(put 'which-func-current 'risky-local-variable t) |
;;;###autoload (put 'which-func-current 'risky-local-variable t) |
129 |
|
|
130 |
(defvar which-func-mode nil |
(defvar which-func-mode nil |
131 |
"Non-nil means display current function name in mode line. |
"Non-nil means display current function name in mode line. |