tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda.el: Add `org-agenda-end-of-line'

Browse source 
* lisp/org-agenda.el (org-agenda-mode-map): Remap
'move-end-of-line to 'org-agenda-end-of-line.
(org-agenda-end-of-line): New command.

This fixes this bug: when moving to the end of line, if the next
line is hidden, changing the timestamp of the current headline would
not display the new time. This is also safer when archiving subtrees
and when performing actions on agenda headlines in general.
This commit is contained in:
Bastien 2020-02-02 19:39:26 +01:00
parent 8aa206583b
commit a2b69c58f8
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-agenda.el
View file

@ -93,6 +93,8 @@
(defvar org-habit-show-all-today)
(defvar org-habit-scheduled-past-days)
(org-remap org-agenda-mode-map 'move-end-of-line 'org-agenda-end-of-line)
;; Defined somewhere in this file, but used before definition.
(defvar org-agenda-buffer-name "*Org Agenda*")
(defvar org-agenda-overriding-header nil)
@ -1156,6 +1158,11 @@ argument, a calendar-style date list like (month day year)."
(string :tag "Format string")
(function :tag "Function")))
(defun org-agenda-end-of-line ()
"Go to the end of visible line."
(interactive)
(goto-char (line-end-position)))
(defun org-agenda-format-date-aligned (date)
"Format a DATE string for display in the daily/weekly agenda.
This function makes sure that dates are aligned for easy reading."