From 1742551e8e19abaa272e444fa8c27afd76a7e6b8 Mon Sep 17 00:00:00 2001 From: Suvayu Ali Date: Sun, 24 Apr 2011 13:10:19 -0700 Subject: [PATCH 2/2] oog: can got to first match by hitting RET --- lisp/org-occur-goto.el | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/lisp/org-occur-goto.el b/lisp/org-occur-goto.el index ccef330..7398daf 100644 --- a/lisp/org-occur-goto.el +++ b/lisp/org-occur-goto.el @@ -98,7 +98,10 @@ (if buf (with-current-buffer buf (unless (= (buffer-size) 0) - (setq marker (occur-mode-find-occurrence))))))) + (setq marker (if (eq (line-number-at-pos (point)) 1) + (progn (forward-line) + (occur-mode-find-occurrence)) + (occur-mode-find-occurrence)))))))) (switch-to-buffer (marker-buffer marker)) (goto-char marker) -- 1.7.3.4