* lisp/htmlfontify.el (hfy-default-header): Encode title string. (Bug#7457)

153dd4d0 · Glenn Morris · b59a2e9e · 153dd4d0 · 153dd4d0
Commit 153dd4d0 authored Feb 21, 2013 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/htmlfontify.el lisp/htmlfontify.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2013-02-22  Glenn Morris  <rgm@gnu.org>
+
+	* htmlfontify.el (hfy-default-header): Encode title string.  (Bug#7457)
+
 2013-02-21  Bastien Guerry  <bzg@gnu.org>
  
 	* cmuscheme.el (scheme-buffer): Fix docstring.  (Bug#13778)

--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -717,7 +717,7 @@ STYLE is the inline CSS stylesheet (or tag referring to an external sheet)."
 --> </script>
  </head>
  <body onload=\"stripe('index'); return true;\">\n"
-          file style))
+          (mapconcat 'hfy-html-quote (mapcar 'char-to-string file) "") style))

 (defun hfy-default-footer (_file)
  "Default value for `hfy-page-footer'.