From bdf404112e81b74a0cec668222c373150a0bc5ce Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Fri, 8 Feb 2013 07:41:42 -0700 Subject: Corrected reentering when entering leg-occur mode --- lisp/ldg-occur.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ldg-occur.el b/lisp/ldg-occur.el index 09cca45b..2958c94c 100644 --- a/lisp/ldg-occur.el +++ b/lisp/ldg-occur.el @@ -89,8 +89,9 @@ (setq ledger-occur-overlay-list (append ledger-occur-overlay-list (ledger-occur-create-folded-overlays buffer-matches))) - (setq ledger-occur-last-match regex)) - (recenter)))) + (setq ledger-occur-last-match regex) + (select-window (get-buffer-window buffer)))) + (recenter))) (defun ledger-occur (regex) "Perform a simple grep in current buffer for the regular -- cgit v1.2.3