]> git.eshelyaron.com Git - emacs.git/commitdiff
projects / emacs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b59a2e9)
* lisp/htmlfontify.el (hfy-default-header): Encode title string. (Bug#7457)
authorGlenn Morris <rgm@gnu.org>
Fri, 22 Feb 2013 01:32:45 +0000 (20:32 -0500)
committerGlenn Morris <rgm@gnu.org>
Fri, 22 Feb 2013 01:32:45 +0000 (20:32 -0500)
lisp/ChangeLog patch | blob | history
lisp/htmlfontify.el patch | blob | history

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68cff2f6d299621b7a15b06a947d04011bcf248d..7f65619dcfa4cdf4e07d2a9ddda3364390097a92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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)
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index df8ef86a3cd8b440f3873c816ff61a7c8162e3fc..768dda993e22767ca1a10517f16afe1aa52598e3 100644 (file)
--- 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'.
Unnamed repository; edit this file 'description' to name the repository.