Org-mode mailing list
 help / color / mirror / Atom feed
From: "Juan Manuel Macías" <>
To: orgmode <>
Subject: [PATCH] org.el: use only link descriptions in indirect buffer names
Date: Sat, 22 May 2021 14:12:28 +0000
Message-ID: <> (raw)

[-- Attachment #1: Type: text/plain, Size: 515 bytes --]


When a heading contains a link with a description,
`org-tree-to-indirect-buffer' can produce in the name of the indirect
buffer strings like this:

-- OK Computer (1997)]]-1"

I would like to propose the attached patch, so that only the link
description is used in the indirect buffer name:

" -- OK Computer (1997)-1"

Best regards,

Juan Manuel

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-org-el-use-only-link-descriptions-in-indirect-buffer.patch --]
[-- Type: text/x-patch, Size: 1228 bytes --]

From b859f45abaa94e546e625b7b8c9f47ed64d6b4b4 Mon Sep 17 00:00:00 2001
From: Juan Manuel Macias <>
Date: Sat, 22 May 2021 15:33:15 +0200
Subject: [PATCH] org.el: use only link descriptions in indirect buffer names

* lisp/org.el (org-tree-to-indirect-buffer): If the variable `heading'
contains a link with a description, it is replaced by the description string.
 lisp/org.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 1bd9e02eb..ca87cac67 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6895,8 +6895,13 @@ frame is not changed."
 	(while (> (setq level (org-outline-level)) arg)
       (setq beg (point)
-	    heading (org-get-heading 'no-tags))
+	    heading (replace-regexp-in-string
+                      org-link-bracket-re
+                       (lambda (x)
+                         (pcase (match-string 2 x)
+                           (`nil (match-string 1 x))
+                           ((pred stringp) (match-string 2 x))))
+                     (org-get-heading 'no-tags)))
       (org-end-of-subtree t t)
       (when (org-at-heading-p) (backward-char 1))
       (setq end (point)))

             reply	other threads:[~2021-05-22 14:12 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-05-22 14:12 Juan Manuel Macías [this message]
2021-05-23 10:41 ` Ihor Radchenko
2021-05-23 11:25   ` Juan Manuel Macías

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:

  List information:

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \ \ \ \

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Org-mode mailing list

This inbox may be cloned and mirrored by anyone:

	git clone --mirror list/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 list list/ \
	public-inbox-index list

Example config snippet for mirrors.
Newsgroups are available over NNTP:

AGPL code for this site: git clone