Nicolas Goaziou преди 9 години
родител
ревизия
7148ae780b
променени са 1 файла, в които са добавени 2 реда и са изтрити 4 реда
  1. 2 4
      lisp/ox-html.el

+ 2 - 4
lisp/ox-html.el

@@ -2967,10 +2967,8 @@ INFO is a plist holding contextual information.  See
 			      attributes
 			      attributes
 			      desc))
 			      desc))
      ;; External link without a description part.
      ;; External link without a description part.
-     (path (format "<a href=\"%s\"%s>%s</a>"
-		   (org-html-encode-plain-text path)
-		   attributes
-		   path))
+     (path (let ((path (org-html-encode-plain-text path)))
+	     (format "<a href=\"%s\"%s>%s</a>" path attributes path)))
      ;; No path, only description.  Try to do something useful.
      ;; No path, only description.  Try to do something useful.
      (t (format "<i>%s</i>" desc)))))
      (t (format "<i>%s</i>" desc)))))