diff options
author | Bastien Guerry <bzg@altern.org> | 2012-05-05 09:07:37 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-05-05 09:07:37 +0200 |
commit | a16814a47509cc59ce5559884261b4dfec0b6452 (patch) | |
tree | bd4d44462d9eb4aa14e91ecf613fe6b634ad1fc5 | |
parent | 578a7f5aa5e01ec847b9da4cbd31a4376fb946e2 (diff) | |
download | org-mode-a16814a47509cc59ce5559884261b4dfec0b6452.tar.gz |
New option ̀org-agenda-bulk-mark-char'.
* org-agenda.el (org-agenda-bulk-mark-char): New option.
(org-agenda-bulk-mark): Use the new option.
-rw-r--r-- | lisp/org-agenda.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ff817c4..fb44a9f 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8347,6 +8347,12 @@ top-level as top-level entries at the end of the file." :version "24.1" :type 'boolean) +(defcustom org-agenda-bulk-mark-char ">" + "A single-character string to be used as the bulk mark." + :group 'org-agenda + :version "24.1" + :type 'string) + (defun org-agenda-add-entry-to-org-agenda-diary-file (type text &optional d1 d2) "Add a diary entry with TYPE to `org-agenda-diary-file'. If TEXT is not empty, it will become the headline of the new entry, and @@ -8623,7 +8629,7 @@ This is a command that has to be installed in `calendar-mode-map'." (unless m (error "Nothing to mark at point")) (push m org-agenda-bulk-marked-entries) (setq ov (make-overlay (point-at-bol) (+ 2 (point-at-bol)))) - (org-overlay-display ov "> " + (org-overlay-display ov (concat org-agenda-bulk-mark-char " ") (org-get-todo-face "TODO") 'evaporate) (overlay-put ov 'type 'org-marked-entry-overlay)) |