diff options
| author | Steve Purcell <steve@sanityinc.com> | 2014-12-10 16:28:53 +0000 |
|---|---|---|
| committer | Steve Purcell <steve@sanityinc.com> | 2014-12-10 16:28:53 +0000 |
| commit | b960eec5201044a07154262a0d51829904ec8e98 (patch) | |
| tree | 100a950e64749061f99c3c55e8a9b62b2881862d /lisp/ledger-occur.el | |
| parent | 78a2bb08235200ac605c37495bd90ba6b7bf518c (diff) | |
| download | ledger-b960eec5201044a07154262a0d51829904ec8e98.tar.gz ledger-b960eec5201044a07154262a0d51829904ec8e98.tar.bz2 ledger-b960eec5201044a07154262a0d51829904ec8e98.zip | |
[emacs] Restore toggle behaviour of ledger-occur command, for menu users
Diffstat (limited to 'lisp/ledger-occur.el')
| -rw-r--r-- | lisp/ledger-occur.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/ledger-occur.el b/lisp/ledger-occur.el index b5cb96c6..fc868334 100644 --- a/lisp/ledger-occur.el +++ b/lisp/ledger-occur.el @@ -59,12 +59,6 @@ (ledger-occur-refresh) (ledger-occur-remove-overlays))) -(defun ledger-occur-quit () - "Disable `ledger-occur-mode', turning off narrowing." - (interactive) - (ledger-occur-mode -1)) - -(define-key ledger-occur-mode-map (kbd "C-c C-f") 'ledger-occur-quit) (define-key ledger-occur-mode-map (kbd "C-c C-g") 'ledger-occur-refresh) (defun ledger-occur-refresh () @@ -84,10 +78,14 @@ This command hides all xact in the current buffer except those matching REGEX. If REGEX is nil or empty, turn off any narrowing currently active." (interactive - (list (read-regexp "Regexp" (ledger-occur-prompt) 'ledger-occur-history))) + (if ledger-occur-mode + (list nil) + (list (read-regexp "Regexp" (ledger-occur-prompt) 'ledger-occur-history)))) (if (or (null regex) (zerop (length regex))) ; empty regex, or already have narrowed, clear narrowing - (ledger-occur-mode -1) + (progn + (message "Showing all transactions") + (ledger-occur-mode -1)) (setq ledger-occur-current-regex regex) (ledger-occur-mode 1))) |