mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 06:32:53 +00:00
Add a way to display names for tag groups in fast tag selection.
If the nil term in the start or end group cells are replaced by strings, these are displayed before or after the brackets for the group.
This commit is contained in:
parent
91646b1442
commit
781eb9379f
|
@ -123,6 +123,12 @@
|
|||
(org-mobile-create-index-file): Sort the files to be listed in
|
||||
index.org.
|
||||
|
||||
2009-10-17 James TD Smith <ahktenzero@mohorovi.cc>
|
||||
|
||||
* org.el (org-fast-tag-selection): Add a way to display a
|
||||
description for a tag group. This is done by adding a string to
|
||||
either the startgroup or endgroup cell.
|
||||
|
||||
2009-10-17 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-clock.el (org-clock-resolve, org-resolve-clocks)
|
||||
|
|
12
lisp/org.el
12
lisp/org.el
|
@ -11546,15 +11546,15 @@ Returns the new tags string, or nil to not change the current settings."
|
|||
(setq tbl fulltable char ?a cnt 0)
|
||||
(while (setq e (pop tbl))
|
||||
(cond
|
||||
((equal e '(:startgroup))
|
||||
((equal (car e) :startgroup)
|
||||
(push '() groups) (setq ingroup t)
|
||||
(when (not (= cnt 0))
|
||||
(setq cnt 0)
|
||||
(insert "\n"))
|
||||
(insert "{ "))
|
||||
((equal e '(:endgroup))
|
||||
(insert (if (cdr e) (format "%s: " (cdr e)) "") "{ "))
|
||||
((equal (car e) :endgroup)
|
||||
(setq ingroup nil cnt 0)
|
||||
(insert "}\n"))
|
||||
(insert "}" (if (cdr e) (format " (%s) " (cdr e)) "") "\n"))
|
||||
((equal e '(:newline))
|
||||
(when (not (= cnt 0))
|
||||
(setq cnt 0)
|
||||
|
@ -11599,8 +11599,8 @@ Returns the new tags string, or nil to not change the current settings."
|
|||
(setq rtn
|
||||
(catch 'exit
|
||||
(while t
|
||||
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free%s%s"
|
||||
(if groups " [!] no groups" " [!]groups")
|
||||
(message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free [!] %sgroups%s"
|
||||
(if (not groups) "no " "")
|
||||
(if expert " [C-c]:window" (if exit-after-next " [C-c]:single" " [C-c]:multi")))
|
||||
(setq c (let ((inhibit-quit t)) (read-char-exclusive)))
|
||||
(cond
|
||||
|
|
Loading…
Reference in a new issue