From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 21 Jun 2013 07:52:47 +0000 (+0000)
Subject: lisp/net/eww.el (eww-update-header-line-format): Quote % characters
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d80a808f8d49b1563df7eabda86e387af0787c77;p=emacs.git

lisp/net/eww.el (eww-update-header-line-format): Quote % characters
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fcc2c2ae382..f258f37f1d6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* net/eww.el (eww-update-header-line-format): Quote % characters.
+
 2013-06-21  Glenn Morris  <rgm@gnu.org>
 
 	* play/cookie1.el (cookie): New custom group.
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index b09d8732afb..ad19758b4a6 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -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)