[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107887: * progmodes/which-func.el (which-func-current): Quote %

[Andreas Schwab]

------------------------------------------------------------
revno: 107887
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Sat 2012-04-21 20:25:20 +0200
message:
  * progmodes/which-func.el (which-func-current): Quote %
  characters for mode-line processing.
modified:
  lisp/ChangeLog
  lisp/progmodes/which-func.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-21 09:53:37 +0000
+++ b/lisp/ChangeLog    2012-04-21 18:25:20 +0000
@@ -1,3 +1,8 @@
+2012-04-21  Andreas Schwab  <address@hidden>
+
+       * progmodes/which-func.el (which-func-current): Quote %
+       characters for mode-line processing.
+
 2012-04-21  Chong Yidong  <address@hidden>
 
        * xml.el (xml-parse-region, xml-parse-tag): Avoid errors due to

=== modified file 'lisp/progmodes/which-func.el'
--- a/lisp/progmodes/which-func.el      2012-01-19 07:21:25 +0000
+++ b/lisp/progmodes/which-func.el      2012-04-21 18:25:20 +0000
@@ -178,7 +178,9 @@
 (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