forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
914f3f88a7
18
lisp/org.el
18
lisp/org.el
|
@ -20148,21 +20148,19 @@ Depending on context, this does one of the following:
|
|||
"Change timestamps synchronously up in CLOCK log lines.
|
||||
Optional argument N tells to change by that many units."
|
||||
(interactive "P")
|
||||
(cond ((and (not org-support-shift-select)
|
||||
(org-at-clock-log-p)
|
||||
(org-at-timestamp-p t))
|
||||
(org-clock-timestamps-up n))
|
||||
(t (org-shiftselect-error))))
|
||||
(if (and (org-at-clock-log-p) (org-at-timestamp-p t))
|
||||
(let (org-support-shift-select)
|
||||
(org-clock-timestamps-up n))
|
||||
(user-error "Not at a clock log")))
|
||||
|
||||
(defun org-shiftcontroldown (&optional n)
|
||||
"Change timestamps synchronously down in CLOCK log lines.
|
||||
Optional argument N tells to change by that many units."
|
||||
(interactive "P")
|
||||
(cond ((and (not org-support-shift-select)
|
||||
(org-at-clock-log-p)
|
||||
(org-at-timestamp-p t))
|
||||
(org-clock-timestamps-down n))
|
||||
(t (org-shiftselect-error))))
|
||||
(if (and (org-at-clock-log-p) (org-at-timestamp-p t))
|
||||
(let (org-support-shift-select)
|
||||
(org-clock-timestamps-down n))
|
||||
(user-error "Not at a clock log")))
|
||||
|
||||
(defun org-ctrl-c-ret ()
|
||||
"Call `org-table-hline-and-move' or `org-insert-heading' dep. on context."
|
||||
|
|
Loading…
Reference in New Issue