diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-04-21 20:25:20 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-04-21 20:25:20 +0200 |
| commit | 581b67880c0d1d9193707b64b9c6b1aee2743338 (patch) | |
| tree | f6d2103ffea2937736950235ff993c9768b2183e /lisp/progmodes/which-func.el | |
| parent | 18edb22d4f484783b009d3b4420f62462025f350 (diff) | |
| download | emacs-581b67880c0d1d9193707b64b9c6b1aee2743338.tar.gz emacs-581b67880c0d1d9193707b64b9c6b1aee2743338.tar.bz2 emacs-581b67880c0d1d9193707b64b9c6b1aee2743338.zip | |
* progmodes/which-func.el (which-func-current): Quote %
characters for mode-line processing.
Diffstat (limited to 'lisp/progmodes/which-func.el')
| -rw-r--r-- | lisp/progmodes/which-func.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el index 721c610517a..01b4c6829f7 100644 --- a/lisp/progmodes/which-func.el +++ b/lisp/progmodes/which-func.el @@ -178,7 +178,9 @@ and you want to simplify them for the mode line (defvar which-func-table (make-hash-table :test 'eq :weakness 'key)) (defconst which-func-current - '(:eval (gethash (selected-window) which-func-table which-func-unknown))) + '(:eval (replace-regexp-in-string + "%" "%%" + (gethash (selected-window) which-func-table which-func-unknown)))) ;;;###autoload (put 'which-func-current 'risky-local-variable t) (defvar which-func-mode nil |