summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-05-05 09:07:37 +0200
committerBastien Guerry <bzg@altern.org>2012-05-05 09:07:37 +0200
commita16814a47509cc59ce5559884261b4dfec0b6452 (patch)
treebd4d44462d9eb4aa14e91ecf613fe6b634ad1fc5
parent578a7f5aa5e01ec847b9da4cbd31a4376fb946e2 (diff)
downloadorg-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.el8
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))