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

8
lisp/ldg-occur.el
View file

@ -71,7 +71,7 @@
(defun ledger-occur-mode (regex buffer) (defun ledger-occur-mode (regex buffer)
(save-excursion (progn
(set-buffer buffer) (set-buffer buffer)
(setq ledger-occur-mode (setq ledger-occur-mode
(if (or ledger-occur-mode (if (or ledger-occur-mode
@ -198,7 +198,7 @@
(let ((prev-end (point-min)) (let ((prev-end (point-min))
(overlays (list))) (overlays (list)))
(when buffer-matches (when buffer-matches
(mapcar (lambda (line) (mapc (lambda (line)
(push (list (car line) (cadr line)) overlays) (push (list (car line) (cadr line)) overlays)
(setq prev-end (cadr line))) (setq prev-end (cadr line)))
buffer-matches) buffer-matches)
@ -213,11 +213,11 @@
(let ((end-pos pos) (let ((end-pos pos)
(beg-pos pos)) (beg-pos pos))
(backward-paragraph) (backward-paragraph)
(next-line) (forward-line)
(beginning-of-line) (beginning-of-line)
(setq beg-pos (point)) (setq beg-pos (point))
(forward-paragraph) (forward-paragraph)
(previous-line) (forward-line -1)
(end-of-line) (end-of-line)
(setq end-pos (1+ (point))) (setq end-pos (1+ (point)))
(list beg-pos end-pos)))) (list beg-pos end-pos))))