[Emacs-diffs] trunk r113114: lisp/net/eww.el (eww-update-header-line-format): Quote % characters

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113114
revision-id: address@hidden
parent: address@hidden
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-21 07:52:47 +0000
message:
  lisp/net/eww.el (eww-update-header-line-format): Quote % characters
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-21 07:38:46 +0000
+++ b/lisp/ChangeLog    2013-06-21 07:52:47 +0000
@@ -1,3 +1,7 @@
+2013-06-21  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/eww.el (eww-update-header-line-format): Quote % characters.
+
 2013-06-21  Glenn Morris  <address@hidden>
 
        * play/cookie1.el (cookie): New custom group.

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-19 22:28:04 +0000
+++ b/lisp/net/eww.el   2013-06-21 07:52:47 +0000
@@ -230,9 +230,12 @@
 
 (defun eww-update-header-line-format ()
   (if eww-header-line-format
-      (setq header-line-format (format-spec eww-header-line-format
-                                            `((?u . ,eww-current-url)
-                                              (?t . ,eww-current-title))))
+      (setq header-line-format
+           (replace-regexp-in-string
+            "%" "%%"
+            (format-spec eww-header-line-format
+                         `((?u . ,eww-current-url)
+                           (?t . ,eww-current-title)))))
     (setq header-line-format nil)))
 
 (defun eww-tag-title (cont)