|
@@ -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)
|