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

Code cleanup to get rid of some elisp compiler warnings.

Browse source
This commit is contained in:
Craig Earls 2013-02-05 12:25:19 -07:00
parent 41469e9943
commit d67c42207f
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/ldg-occur.el
View file

@ -71,7 +71,7 @@
(defun ledger-occur-mode (regex buffer)
(save-excursion
(progn
(set-buffer buffer)
(setq ledger-occur-mode
(if (or ledger-occur-mode
@ -198,10 +198,10 @@
(let ((prev-end (point-min))
(overlays (list)))
(when buffer-matches
(mapcar (lambda (line)
(push (list (car line) (cadr line)) overlays)
(setq prev-end (cadr line)))
buffer-matches)
(mapc (lambda (line)
(push (list (car line) (cadr line)) overlays)
(setq prev-end (cadr line)))
buffer-matches)
(setq overlays (nreverse overlays)))))
(defun ledger-occur-find-xact-extents (pos)
@ -213,11 +213,11 @@
(let ((end-pos pos)
(beg-pos pos))
(backward-paragraph)
(next-line)
(forward-line)
(beginning-of-line)
(setq beg-pos (point))
(forward-paragraph)
(previous-line)
(forward-line -1)
(end-of-line)
(setq end-pos (1+ (point)))
(list beg-pos end-pos))))
@ -240,8 +240,8 @@
(let ((bounds (ledger-occur-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
;xact, no need to search
;inside it more
(goto-char curpoint))
(forward-line 1))
(setq lines (nreverse lines)))))