mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-agenda: Fix SPC in agenda 

* lisp/org-agenda.el (org-agenda-show-and-scroll-up): Properly display
  drawers when SPC is pressed.  Hide them again with a universal
  prefix argument.

Reported-by: Bernt Hansen <bernt@norang.ca>
<http://lists.gnu.org/r/emacs-orgmode/2018-06/msg00254.html>
This commit is contained in:
Nicolas Goaziou 2018-06-21 20:13:11 +02:00
parent 9b7191001c
commit fbd138f527
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-agenda.el
View File

@ -8669,9 +8669,8 @@ if it was hidden in the outline."
When called repeatedly, scroll the window that is displaying the buffer.
With a `\\[universal-argument]' prefix, use `org-show-entry' instead of \
`outline-show-subtree'
to display the item, so that drawers and logbooks stay folded."
With a `\\[universal-argument]' prefix argument, display the item, but \
fold drawers."
(interactive "P")
(let ((win (selected-window)))
(if (and (window-live-p org-agenda-show-window)
@ -8680,7 +8679,13 @@ to display the item, so that drawers and logbooks stay folded."
(select-window org-agenda-show-window)
(ignore-errors (scroll-up)))
(org-agenda-goto t)
(if arg (org-show-entry) (outline-show-subtree))
(org-show-entry)
(if arg (org-cycle-hide-drawers 'children)
(org-with-wide-buffer
(narrow-to-region (org-entry-beginning-position)
(org-entry-end-position))
(org-show-all '(drawers))))
(when arg )
(setq org-agenda-show-window (selected-window)))
(select-window win)))