summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2013-06-21 07:52:47 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2013-06-21 07:52:47 +0000
commitd80a808f8d49b1563df7eabda86e387af0787c77 (patch)
treeb805a15603232cf0a41e4b8603efb95a53d31faa
parent7f8e3b22a56744031ea1c6f90dfa4eb93e6b8053 (diff)
downloademacs-d80a808f8d49b1563df7eabda86e387af0787c77.tar.gz
lisp/net/eww.el (eww-update-header-line-format): Quote % characters
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/net/eww.el9
2 files changed, 10 insertions, 3 deletions
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)