From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Stefan-W. Hahn" Subject: [RFC/PATCH] org-tree-to-indirect-buffer name without tags Date: Wed, 6 Jan 2016 17:00:30 +0100 Message-ID: <20160106160030.GA9437@scotty.home> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:53448) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aGqVp-0001hB-Dy for emacs-orgmode@gnu.org; Wed, 06 Jan 2016 11:00:41 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aGqVm-0001tg-70 for emacs-orgmode@gnu.org; Wed, 06 Jan 2016 11:00:37 -0500 Received: from mout.kundenserver.de ([212.227.126.134]:55180) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aGqVl-0001s2-Tm for emacs-orgmode@gnu.org; Wed, 06 Jan 2016 11:00:34 -0500 Received: from scotty.home ([92.192.13.45]) by mrelayeu.kundenserver.de (mreue001) with ESMTPSA (Nemesis) id 0LxGmY-1aAwPV3chG-016ziH for ; Wed, 06 Jan 2016 17:00:32 +0100 Received: from scotty.home (hs@localhost [127.0.0.1]) by scotty.home (8.14.4/8.14.4/Debian-4) with ESMTP id u06G0Uit015837 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=NOT) for ; Wed, 6 Jan 2016 17:00:30 +0100 Received: (from hs@localhost) by scotty.home (8.14.4/8.14.4/Submit) id u06G0USA015836 for emacs-orgmode@gnu.org; Wed, 6 Jan 2016 17:00:30 +0100 Content-Disposition: inline List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Hello, when indirecting an org-tree the buffer gets the titel of the task together with its tags and also the spaces between the title and the tags. This is an ugly behaviour for the mode-line. I will propose following patch which removes the tags for the buffer name and therefore generates a shorter name: diff --git a/lisp/org.el b/lisp/org.el index c600f2f..47c28fb 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -7595,7 +7595,7 @@ org-tree-to-indirect-buffer (while (> (setq level (org-outline-level)) arg) (org-up-heading-safe))) (setq beg (point) - heading (org-get-heading)) + heading (org-get-heading 'no-tags)) (org-end-of-subtree t t) (when (org-at-heading-p) (backward-char 1)) (setq end (point))) With kind regards, Stefan -- Stefan-W. Hahn It is easy to make things. It is hard to make things simple.