summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2008-12-18 09:22:21 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2008-12-18 09:22:21 +0100
commit9cd1518badba9249936bf92b0ec7e78c52fac2b8 (patch)
tree80e0f4f6d2fc773c01269f294fb6d9e355d8f835
parentf796043bf15642793ca29822c52a131fea5b9c3a (diff)
downloadorg-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.texi2
-rwxr-xr-xlisp/ChangeLog3
-rw-r--r--lisp/org-agenda.el13
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)