* eww.el (eww-update-header-line-format): Quote % characters.
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 21 Jun 2013 06:55:48 +0000 (08:55 +0200)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Fri, 21 Jun 2013 06:55:48 +0000 (08:55 +0200)
lisp/ChangeLog
lisp/eww.el

index dfe4361..a8c1d4f 100644 (file)
@@ -1,3 +1,7 @@
+2013-06-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * eww.el (eww-update-header-line-format): Quote % characters.
+
 2013-06-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * eww.el (eww-process-text-input): Display passwords as asterisks.
index b09d873..ad19758 100644 (file)
 
 (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)