diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-12-18 09:22:21 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-12-18 09:22:21 +0100 |
commit | 9cd1518badba9249936bf92b0ec7e78c52fac2b8 (patch) | |
tree | 80e0f4f6d2fc773c01269f294fb6d9e355d8f835 | |
parent | f796043bf15642793ca29822c52a131fea5b9c3a (diff) | |
download | org-mode-9cd1518badba9249936bf92b0ec7e78c52fac2b8.tar.gz |
Allow to view full entry from agenda.
A prefix argument to the `org-agenda-show' command is now interpreted
to make sure the entire entry is made visible in the other window, not
only the headline.
-rw-r--r-- | doc/org.texi | 2 | ||||
-rwxr-xr-x | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/org-agenda.el | 13 |
3 files changed, 14 insertions, 4 deletions
diff --git a/doc/org.texi b/doc/org.texi index e0551c1..c11750b 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -5974,6 +5974,8 @@ Previous line (same as @key{down} and @kbd{C-n}). @item mouse-3 @itemx @key{SPC} Display the original location of the item in another window. +With prefix arg, make sure that the entire entry is made visible in the +outline, not only the heading. @c @kindex L @item L diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8991628..f92e293 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-12-18 Carsten Dominik <carsten.dominik@gmail.com> + * org-agenda.el (org-agenda-show): New prefix argument + FULL-ENTRY. + * org.el (org-sort-entries-or-items): Add a COMPARE-FUNC argument. diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 76f1447..c7b89bd 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4945,11 +4945,16 @@ If this information is not given, the function uses the tree at point." (mouse-set-point ev) (org-agenda-goto)) -(defun org-agenda-show () - "Display the Org-mode file which contains the item at point." - (interactive) +(defun org-agenda-show (&optional full-entry) + "Display the Org-mode file which contains the item at point. +With prefix argument FULL-ENTRY, make the entire entry visible +if it was hidden in the outline." + (interactive "P") (let ((win (selected-window))) - (org-agenda-goto t) + (if full-entry + (let ((org-show-entry-below t)) + (org-agenda-goto t)) + (org-agenda-goto t)) (select-window win))) (defun org-agenda-recenter (arg) |