[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master fb1fbc0 39/40: Fixed compilation warnings.
From: |
Alexey Veretennikov |
Subject: |
[elpa] master fb1fbc0 39/40: Fixed compilation warnings. |
Date: |
Fri, 29 Jan 2016 23:29:55 +0000 |
branch: master
commit fb1fbc0ff5da7a8b117542ab8083d29cd79e12b2
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>
Fixed compilation warnings.
---
loccur.el | 24 ++++++++++--------------
1 files changed, 10 insertions(+), 14 deletions(-)
diff --git a/loccur.el b/loccur.el
index 6249d44..2921ba0 100644
--- a/loccur.el
+++ b/loccur.el
@@ -154,9 +154,8 @@ REGEX is regexp to search"
(let ((loccur-highlight-matching-regexp nil))
(loccur regex)))
-(defun loccur-toggle-highlight (&optional arg)
- "Toggle the highlighting of the match.
-Optional argument ARG if t turn highlight on, off otherwise."
+(defun loccur-toggle-highlight ()
+ "Toggle the highlighting of the match."
(interactive)
(setq loccur-highlight-matching-regexp (not
loccur-highlight-matching-regexp))
(when loccur-mode
@@ -272,13 +271,13 @@ REGEX is an argument to `loccur'."
(let ((prev-end (point-min))
(overlays (list)))
(when buffer-matches
- (mapcar (lambda (line)
- (let ((beginning (car line)))
- (unless ( = (- beginning prev-end) 1)
- (let ((ovl-end (1- beginning)))
- (push (list prev-end ovl-end) overlays)))
- (setq prev-end (nth 3 line))))
- buffer-matches)
+ (mapc (lambda (line)
+ (let ((beginning (car line)))
+ (unless ( = (- beginning prev-end) 1)
+ (let ((ovl-end (1- beginning)))
+ (push (list prev-end ovl-end) overlays)))
+ (setq prev-end (nth 3 line))))
+ buffer-matches)
(push (list (1+ prev-end) (point-max)) overlays)
(setq overlays (nreverse overlays)))))
@@ -293,13 +292,10 @@ containing match"
;; Go to the beginnig of buffer
(goto-char (point-min))
;; Set initial values for variables
- (let ((matches 0)
- (curpoint nil)
- (endpoint nil)
+ (let ((endpoint nil)
(lines (list)))
;; Search loop
(while (not (eobp))
- (setq curpoint (point))
;; if something found
(when (setq endpoint (re-search-forward regex nil t))
(save-excursion
- [elpa] master 194dd68 30/40: Reimplemented loccur-no-highlight and fixed checkdoc, (continued)
- [elpa] master 194dd68 30/40: Reimplemented loccur-no-highlight and fixed checkdoc, Alexey Veretennikov, 2016/01/29
- [elpa] master 66a9810 32/40: Merge pull request #3 from syohex/group, Alexey Veretennikov, 2016/01/29
- [elpa] master e5d1061 31/40: Define group for customize and fixing byte-compile warnings, Alexey Veretennikov, 2016/01/29
- [elpa] master 2680df7 34/40: Fixed bug when loccur called with empty argument., Alexey Veretennikov, 2016/01/29
- [elpa] master 59b8dd1 29/40: Implemented removed features and added face loccur-face, Alexey Veretennikov, 2016/01/29
- [elpa] master 2cacc68 33/40: Added types to custom, Alexey Veretennikov, 2016/01/29
- [elpa] master 61dcaaf 37/40: Removed redundand code, Alexey Veretennikov, 2016/01/29
- [elpa] master 03789fa 35/40: Updated README, Alexey Veretennikov, 2016/01/29
- [elpa] master d08fdac 36/40: Updated README and rearranged functions., Alexey Veretennikov, 2016/01/29
- [elpa] master aae3563 27/40: Preparation to move to GNU ELPA., Alexey Veretennikov, 2016/01/29
- [elpa] master fb1fbc0 39/40: Fixed compilation warnings.,
Alexey Veretennikov <=
- [elpa] master a90bd54 38/40: Preparation to submission to GNU ELPA, Alexey Veretennikov, 2016/01/29
- [elpa] master 8f6fe36 40/40: Add 'packages/loccur/' from commit 'fb1fbc0ff5da7a8b117542ab8083d29cd79e12b2', Alexey Veretennikov, 2016/01/29