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

This commit is contained in:
Lars Magne Ingebrigtsen 2013-06-21 07:52:47 +00:00 committed by Katsumi Yamaoka
parent 7f8e3b22a5
commit d80a808f8d
2 changed files with 10 additions and 3 deletions

View file

@ -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.

View file

@ -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)