diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-08 07:41:42 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-08 07:41:42 -0700 |
| commit | bdf404112e81b74a0cec668222c373150a0bc5ce (patch) | |
| tree | a36f639e32db881eda8d5c791cf051723402daee /lisp/ldg-occur.el | |
| parent | 995aa43778ebe11fd588bc5ae50b2c9cd99891bf (diff) | |
| download | fork-ledger-bdf404112e81b74a0cec668222c373150a0bc5ce.tar.gz fork-ledger-bdf404112e81b74a0cec668222c373150a0bc5ce.tar.bz2 fork-ledger-bdf404112e81b74a0cec668222c373150a0bc5ce.zip | |
Corrected reentering when entering leg-occur mode
Diffstat (limited to 'lisp/ldg-occur.el')
| -rw-r--r-- | lisp/ldg-occur.el | 5 |
1 files 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 |