diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
| commit | 5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922 (patch) | |
| tree | 13e3f575b0fa40ce19912b135ef98c823e42980e /lisp/ldg-occur.el | |
| parent | 28659c58c3b0531e0f5fb01b298fcb8a8f63991e (diff) | |
| download | fork-ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.gz fork-ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.bz2 fork-ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.zip | |
Comment and code cleanup
Diffstat (limited to 'lisp/ldg-occur.el')
| -rw-r--r-- | lisp/ldg-occur.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/ldg-occur.el b/lisp/ldg-occur.el index bd5a49b1..d53be09b 100644 --- a/lisp/ldg-occur.el +++ b/lisp/ldg-occur.el @@ -125,14 +125,13 @@ When REGEX is nil, unhide everything, and remove higlight" (temp (point-max))) (mapcar (lambda (match) (progn - (setq temp prev-end) ;need a swap so that the - ;last form in the lambda - ;is the (make-overlay) - (setq prev-end (1+ (cadr match))) ;add 1 so - ;that we skip - ;the empty - ;line after - ;the xact + (setq temp prev-end) ;; need a swap so that + ;; the last form in + ;; the lambda is the + ;; (make-overlay) + (setq prev-end (1+ (cadr match))) + ;; add 1 so that we skip the + ;; empty line after the xact (make-overlay temp (car match) @@ -216,9 +215,9 @@ When REGEX is nil, unhide everything, and remove higlight" (save-excursion (let ((bounds (ledger-find-xact-extents (match-beginning 0)))) (push bounds lines) - (setq curpoint (cadr bounds)))) ;move to the end of the - ;xact, no need to search - ;inside it more + (setq curpoint (cadr bounds)))) ;; move to the end of + ;; the xact, no need to + ;; search inside it more (goto-char curpoint)) (forward-line 1)) (setq lines (nreverse lines))))) |