update packages
This commit is contained in:
@@ -35,7 +35,8 @@
|
||||
(defconst ledger-occur-overlay-property-name 'ledger-occur-custom-buffer-grep)
|
||||
|
||||
(defcustom ledger-occur-use-face-shown t
|
||||
"If non-nil, use a custom face for xacts shown in `ledger-occur' mode using ledger-occur-xact-face."
|
||||
"If non-nil, use a custom face for xacts shown in `ledger-occur' mode.
|
||||
This uses `ledger-occur-xact-face'."
|
||||
:type 'boolean
|
||||
:group 'ledger)
|
||||
(make-variable-buffer-local 'ledger-occur-use-face-shown)
|
||||
@@ -52,9 +53,9 @@
|
||||
|
||||
(define-minor-mode ledger-occur-mode
|
||||
"A minor mode which display only transactions matching `ledger-occur-current-regex'."
|
||||
nil
|
||||
(:eval (format " Ledger-Narrow(%s)" ledger-occur-current-regex))
|
||||
ledger-occur-mode-map
|
||||
:init-value nil
|
||||
:lighter (:eval (format " Ledger-Narrow(%s)" ledger-occur-current-regex))
|
||||
:keymap ledger-occur-mode-map
|
||||
(if (and ledger-occur-current-regex ledger-occur-mode)
|
||||
(ledger-occur-refresh)
|
||||
(ledger-occur-remove-overlays)
|
||||
|
||||
Reference in New Issue
Block a user