diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-18 10:50:11 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-18 10:50:11 -0700 |
| commit | ea72ac29eadad36d2b9e37a168127cff76f2880a (patch) | |
| tree | cdb19f810a3ad0d8ef9d52d8584baa29e9aa5b21 /lisp/ldg-occur.el | |
| parent | 431d7e5b25f7e2997494ace7a0be78492c5d688b (diff) | |
| download | fork-ledger-ea72ac29eadad36d2b9e37a168127cff76f2880a.tar.gz fork-ledger-ea72ac29eadad36d2b9e37a168127cff76f2880a.tar.bz2 fork-ledger-ea72ac29eadad36d2b9e37a168127cff76f2880a.zip | |
Enh918 Have occur mode searches stored in mini buffer history
Diffstat (limited to 'lisp/ldg-occur.el')
| -rw-r--r-- | lisp/ldg-occur.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ldg-occur.el b/lisp/ldg-occur.el index 8b56d12c..35ca7f3d 100644 --- a/lisp/ldg-occur.el +++ b/lisp/ldg-occur.el @@ -49,7 +49,7 @@ (defvar ledger-occur-history nil "History of previously searched expressions for the prompt.") -(make-variable-buffer-local 'ledger-occur-history) +;;(make-variable-buffer-local 'ledger-occur-history) (defvar ledger-occur-last-match nil "Last match found.") @@ -95,8 +95,7 @@ When REGEX is nil, unhide everything, and remove higlight" (if ledger-occur-mode (list nil) (list (read-string (concat "Regexp<" (ledger-occur-prompt) - ">: ") "" 'ledger-occur-history )))) - (if (string-equal "" regex) (setq regex (ledger-occur-prompt))) + ">: ") nil 'ledger-occur-history (ledger-occur-prompt))))) (ledger-occur-mode regex (current-buffer))) (defun ledger-occur-prompt () |