* progmodes/which-func.el (which-func-current): Quote %

characters for mode-line processing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04cd2f736af2b5ed0d37557a5ab5203cab90cc6b..020e5c4b9bc76d1ab6de595feed8c11d6c710de4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-21  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * progmodes/which-func.el (which-func-current): Quote %
+       characters for mode-line processing.
+
 2012-04-21  Chong Yidong  <cyd@gnu.org>
 
        * xml.el (xml-parse-region, xml-parse-tag): Avoid errors due to

diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el
index 721c610517aebe14e8b894860b59b4b73a7ce4bb..01b4c6829f70ac12f0c1e48cb860858f31f392b8 100644 (file)
--- 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