From 51ad548037e1134c31a677caff73bb4a6b756fe2 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 20 Jun 2009 21:10:55 +0200 Subject: [PATCH] Better default description for link to Org-mode heading Requested by Stefan Vollmar. --- lisp/ChangeLog | 3 +++ lisp/org.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3808b977e..97eb4c6f3 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-06-20 Carsten Dominik + * org.el (org-store-link): Better default description for link to + Org-mode headline. + * org-exp.el (org-export-generic): Autoload the generic exporter function. (org-export): Implement the `g' key for the generic exporter. diff --git a/lisp/org.el b/lisp/org.el index 07d790f74..020123124 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7037,7 +7037,7 @@ For file links, arg negates `org-context-in-file-links'." (condition-case nil (org-make-org-heading-search-string txt) (error ""))) - desc "NONE"))) + desc (or (nth 4 (org-heading-components)) "NONE")))) (if (string-match "::\\'" cpltxt) (setq cpltxt (substring cpltxt 0 -2))) (setq link (org-make-link cpltxt))))) -- 2.11.4.GIT