sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

In ledger-occur, hide nothing if there is no match

Browse source 
This could cause error when reconciling transaction that are included.

Some message should be shown to explain why nothing happen when
interactively call ledger-occur.
This commit is contained in:
Rémi Vanicat 2013-02-09 11:33:33 +01:00
parent cf6a23b2fe
commit d3964b66d5
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-occur.el
View file

@ -128,6 +128,7 @@ When REGEX is nil, unhide everything, and remove higlight"
prompt)) prompt))
(defun ledger-occur-create-folded-overlays(buffer-matches) (defun ledger-occur-create-folded-overlays(buffer-matches)
(if buffer-matches
(let ((overlays (let ((overlays
(let ((prev-end (point-min)) (let ((prev-end (point-min))
(temp (point-max))) (temp (point-max)))
@ -152,7 +153,7 @@ When REGEX is nil, unhide everything, and remove higlight"
(overlay-put ovl 'intangible t)) (overlay-put ovl 'intangible t))
(push (make-overlay (cadr (car(last buffer-matches))) (push (make-overlay (cadr (car(last buffer-matches)))
(point-max) (point-max)
(current-buffer) t nil) overlays)))) (current-buffer) t nil) overlays)))))
(defun ledger-occur-create-xact-overlays (ovl-bounds) (defun ledger-occur-create-xact-overlays (ovl-bounds)