summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-04-24 09:55:27 +0200
committerBastien Guerry <bzg@altern.org>2013-04-24 09:55:27 +0200
commit0e438a9621ee93834287a8ccd074388be88dfd5f (patch)
treebb8c25feb52b31783b3a7f13121bc884bad59785
parent862b91e8db127a51e50dce0910a144c977d47151 (diff)
parentbb30de44fd73148da435e0b724e200590a622159 (diff)
downloadorg-mode-0e438a9621ee93834287a8ccd074388be88dfd5f.tar.gz
Merge branch 'maint' of orgmode.org:org-mode into maint
-rw-r--r--lisp/ox-html.el9
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 54c6a45..ef7d15a 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2521,7 +2521,7 @@ INFO is a plist holding contextual information. See
(type (org-element-property :type link))
(raw-path (org-element-property :path link))
;; Ensure DESC really exists, or set it to nil.
- (desc (and (not (string= desc "")) desc))
+ (desc (org-string-nw-p desc))
(path
(cond
((member type '("http" "https" "ftp" "mailto"))
@@ -2625,12 +2625,9 @@ INFO is a plist holding contextual information. See
;; What description to use?
(desc
;; Case 1: Headline is numbered and LINK has no
- ;; description or LINK's description matches
- ;; headline's title. Display section number.
+ ;; description. Display section number.
(if (and (org-export-numbered-headline-p destination info)
- (or (not desc)
- (string= desc (org-element-property
- :raw-value destination))))
+ (not desc))
(mapconcat 'number-to-string
(org-export-get-headline-number
destination info) ".")