Browse Source

Agenda: Fix problems with follow mode.

Carsten Dominik 16 years ago
parent
commit
fa54d8104a
2 changed files with 17 additions and 1 deletions
  1. 4 0
      lisp/ChangeLog
  2. 13 1
      lisp/org-agenda.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2009-02-19  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-agenda-show-1): Renamed from
+	`org-agenda-show'.
+	(org-agenda-show): Re-install the old version ofr now.
+
 	* org.el (org-track-ordered-property-with-tag): New option.
 	(org-toggle-ordered-property): Honor
 	`org-track-ordered-property-with-tag'.

+ 13 - 1
lisp/org-agenda.el

@@ -5073,7 +5073,19 @@ If this information is not given, the function uses the tree at point."
   (mouse-set-point ev)
   (org-agenda-goto))
 
-(defun org-agenda-show (&optional more)
+(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)))
+    (if full-entry
+	(let ((org-show-entry-below t))
+	  (org-agenda-goto t))
+      (org-agenda-goto t))
+    (select-window win)))
+
+(defun org-agenda-show-1 (&optional more)
   "Display the Org-mode file which contains the item at point.
 The prefix arg causes further revieling: