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

Small fixes

Browse source 
* lisp/ox-odt.el (org-odt--format-timestamp): Fix timestamp
display.

* lisp/org-agenda.el (org-agenda-show-and-scroll-up): Remove
useless code.
This commit is contained in:
Bastien 2020-01-31 17:21:43 +01:00
parent 1d97b730d2
commit 04bd110b2b
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/org-agenda.el
View file

@ -8982,7 +8982,6 @@ fold drawers."
(narrow-to-region (org-entry-beginning-position) (narrow-to-region (org-entry-beginning-position)
(org-entry-end-position)) (org-entry-end-position))
(org-show-all '(drawers)))) (org-show-all '(drawers))))
(when arg )
(setq org-agenda-show-window (selected-window))) (setq org-agenda-show-window (selected-window)))
(select-window win))) (select-window win)))

2
lisp/ox-odt.el
View file

@ -940,7 +940,7 @@ See `org-odt--build-date-styles' for implementation details."
(has-time-p (or (not timestamp) (has-time-p (or (not timestamp)
(org-timestamp-has-time-p timestamp))) (org-timestamp-has-time-p timestamp)))
(iso-date (let ((format (if has-time-p "%Y-%m-%dT%H:%M:%S" (iso-date (let ((format (if has-time-p "%Y-%m-%dT%H:%M:%S"
"%Y-%m-%dT%H:%M:%S"))) "%Y-%m-%d")))
(funcall format-timestamp timestamp format end)))) (funcall format-timestamp timestamp format end))))
(if iso-date-p iso-date (if iso-date-p iso-date
(let* ((style (if has-time-p "OrgDate2" "OrgDate1")) (let* ((style (if has-time-p "OrgDate2" "OrgDate1"))