[O] [PATCH] ox-html.el: Remove superflous whitespace

[Ruben Maher]

* lisp/ox-html.el: Remove superfluous whitespace from meta tags, put
  there by `org-html--buld-meta-info' and `org-html--build-head'.
  `org-html-close-tag' already inserts a space, so it is not necessary
  to add another.  Previously these affected tags would look like
  <meta  name="generator" content="Org-mode" />.

TINYCHANGE
---
 lisp/ox-html.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index effd387..8f9fe99 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -1711,9 +1711,9 @@ INFO is a plist used as a communication channel."
                " -->\n")))
      (format
       (if (org-html-html5-p info)
-         (org-html-close-tag "meta" " charset=\"%s\"" info)
+         (org-html-close-tag "meta" "charset=\"%s\"" info)
        (org-html-close-tag
-        "meta" " http-equiv=\"Content-Type\" content=\"text/html;charset=%s\""
+        "meta" "http-equiv=\"Content-Type\" content=\"text/html;charset=%s\""
         info))
       charset) "\n"
      (let ((viewport-options
@@ -1723,33 +1723,33 @@ INFO is a plist used as a communication channel."
            (concat
             (org-html-close-tag
              "meta"
-             (format " name=\"viewport\" content=\"%s\""
+             (format "name=\"viewport\" content=\"%s\""
                      (mapconcat
                       (lambda (elm) (format "%s=%s" (car elm) (cadr elm)))
                       viewport-options ", "))
              info)
             "\n")))
      (format "<title>%s</title>\n" title)
-     (org-html-close-tag "meta" " name=\"generator\" content=\"Org-mode\"" 
info)
+     (org-html-close-tag "meta" "name=\"generator\" content=\"Org-mode\"" info)
      "\n"
      (and (org-string-nw-p author)
          (concat
           (org-html-close-tag "meta"
-                              (format " name=\"author\" content=\"%s\""
+                              (format "name=\"author\" content=\"%s\""
                                       (funcall protect-string author))
                               info)
           "\n"))
      (and (org-string-nw-p description)
          (concat
           (org-html-close-tag "meta"
-                              (format " name=\"description\" content=\"%s\"\n"
+                              (format "name=\"description\" content=\"%s\"\n"
                                       (funcall protect-string description))
                               info)
           "\n"))
      (and (org-string-nw-p keywords)
          (concat
           (org-html-close-tag "meta"
-                              (format " name=\"keywords\" content=\"%s\""
+                              (format "name=\"keywords\" content=\"%s\""
                                       (funcall protect-string keywords))
                               info)
           "\n")))))
@@ -1766,7 +1766,7 @@ INFO is a plist used as a communication channel."
     (when (and (plist-get info :html-htmlized-css-url)
               (eq org-html-htmlize-output-type 'css))
       (org-html-close-tag "link"
-                         (format " rel=\"stylesheet\" href=\"%s\" 
type=\"text/css\""
+                         (format "rel=\"stylesheet\" href=\"%s\" 
type=\"text/css\""
                                  (plist-get info :html-htmlized-css-url))
                          info))
     (when (plist-get info :html-head-include-scripts) org-html-scripts))))
-- 
2.6.2