branch: master
commit aa1e1193ffafe932031d1820612090543a1a5fbb
Author: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Commit: Alexey Veretennikov <alexey.veretenni...@gmail.com>
Removed cl dependency
---
loccur.el | 118 +++++++++++++++++++++++++++++++------------------------------
1 files changed, 60 insertions(+), 58 deletions(-)
diff --git a/loccur.el b/loccur.el
index d45cc8f..13b934c 100644
--- a/loccur.el
+++ b/loccur.el
@@ -1,13 +1,13 @@
;;; loccur.el --- Perform an occur-like folding in current buffer
-;; Copyright (C) 2009 Alexey Veretennikov
+;; Copyright (C) 2009-2012 Alexey Veretennikov
;;
;; Author: Alexey Veretennikov <alexey dot veretennikov at gmail dot com>
;; Created: 2009-09-08
-;; Version: 1.1.1
+;; Version: 1.1.2
;; Keywords: matching
;; URL: http://loccur.sourceforge.net/
-;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x
+;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x, 24.x
;;
;; This file is NOT part of GNU Emacs.
;;
@@ -44,6 +44,10 @@
;;
;;; Change Log:
;;
+;; 2012-09-25 (1.1.2)
+;; + Removed cl dependency
+;;
+;;
;; 2010-03-07 (1.1.1)
;; + Default value is taken from prompt instead of an edit area
;; (thanks to Nathaniel Flath)
@@ -60,14 +64,12 @@
;;
;;; Code:
-(eval-when-compile (require 'cl))
-
(defconst loccur-overlay-property-name 'loccur-custom-buffer-grep)
(or (assq 'loccur-mode minor-mode-alist)
(nconc minor-mode-alist
- (list '(loccur-mode loccur-mode))))
+ (list '(loccur-mode loccur-mode))))
(defvar loccur-mode nil) ;; name of the minor mode
@@ -91,15 +93,15 @@
(defun loccur-mode (regex)
(setq loccur-mode
- (if (or loccur-mode
- (null regex)
- (zerop (length regex)))
- nil
- " Loccur"))
+ (if (or loccur-mode
+ (null regex)
+ (zerop (length regex)))
+ nil
+ " Loccur"))
(force-mode-line-update)
(loccur-remove-overlays)
(when loccur-mode
- (loccur-1 regex)))
+ (loccur-1 regex)))
(defun loccur-current ()
@@ -124,8 +126,8 @@ unhides lines again"
(interactive
(if loccur-mode
(list nil)
- (list (read-string (concat "Regexp<" (loccur-prompt)
- ">: ") "" 'loccur-history ))))
+ (list (read-string (concat "Regexp<" (loccur-prompt)
+ ">: ") "" 'loccur-history ))))
(if (string-equal "" regex) (setq regex (loccur-prompt)))
(loccur-mode regex))
@@ -151,38 +153,38 @@ if its size is 1 line"
(defun loccur-1 (regex)
(let* ((buffer-matches (loccur-find-matches regex))
- (ovl-bounds (loccur-create-overlay-bounds-btw-lines
buffer-matches)))
- (setq loccur-overlay-list
- (loccur-create-invisible-overlays ovl-bounds))
+ (ovl-bounds (loccur-create-overlay-bounds-btw-lines buffer-matches)))
+ (setq loccur-overlay-list
+ (loccur-create-invisible-overlays ovl-bounds))
(setq loccur-overlay-list
(append loccur-overlay-list
(loccur-create-highlighted-overlays buffer-matches)))
(setq loccur-last-match regex)
- (recenter)))
+ (recenter)))
(defun loccur-create-highlighted-overlays(buffer-matches)
(let ((overlays
- (map 'list #'(lambda (match)
- (make-overlay
- (nth 1 match)
- (nth 2 match)
- (current-buffer) t nil))
- buffer-matches)))
- (mapcar (lambda (ovl)
+ (mapcar (lambda (match)
+ (make-overlay
+ (nth 1 match)
+ (nth 2 match)
+ (current-buffer) t nil))
+ buffer-matches)))
+ (mapcar (lambda (ovl)
(overlay-put ovl loccur-overlay-property-name t)
- (overlay-put ovl 'face 'isearch))
+ (overlay-put ovl 'face 'isearch))
overlays)))
(defun loccur-create-invisible-overlays (ovl-bounds)
(let ((overlays
- (map 'list #'(lambda (bnd)
- (make-overlay
- (car bnd)
- (cadr bnd)
- (current-buffer) t nil))
- ovl-bounds)))
- (mapcar (lambda (ovl)
+ (mapcar (lambda (bnd)
+ (make-overlay
+ (car bnd)
+ (cadr bnd)
+ (current-buffer) t nil))
+ ovl-bounds)))
+ (mapcar (lambda (ovl)
(overlay-put ovl loccur-overlay-property-name t)
(overlay-put ovl 'invisible t)
;; force intangible property if invisible property
@@ -198,18 +200,18 @@ if its size is 1 line"
(defun loccur-create-overlay-bounds-btw-lines (buffer-matches)
(let ((prev-end (point-min))
- (overlays (list)))
- (when buffer-matches
- (mapcar (lambda (line)
+ (overlays (list)))
+ (when buffer-matches
+ (mapcar (lambda (line)
(let ((beginning (car line)))
(unless ( = (- beginning prev-end) 1)
(let ((ovl-start (if (= prev-end 1) 1 prev-end))
- (ovl-end (1- beginning)))
+ (ovl-end (1- beginning)))
(push (list ovl-start ovl-end) overlays)))
(setq prev-end (nth 3 line))))
buffer-matches)
- (push (list (1+ prev-end) (point-max)) overlays)
- (setq overlays (nreverse overlays)))))
+ (push (list (1+ prev-end) (point-max)) overlays)
+ (setq overlays (nreverse overlays)))))
(defun loccur-find-matches (regex)
@@ -217,19 +219,19 @@ if its size is 1 line"
1st match begin of a line, 1st match end of a line, end of a line
containing match"
(save-excursion
- ;; Go to the beginnig of buffer
- (goto-char (point-min))
- ;; Set initial values for variables
- (let ((matches 0)
- (curpoint nil)
- (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
+ ;; Go to the beginnig of buffer
+ (goto-char (point-min))
+ ;; Set initial values for variables
+ (let ((matches 0)
+ (curpoint nil)
+ (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
(let ((found-begin (match-beginning 0))
(found-end (match-end 0)))
;; Get the start and the and of the matching line
@@ -237,12 +239,12 @@ containing match"
(goto-char found-begin)
(setq endpoint (line-end-position))
(push (list (line-beginning-position) found-begin found-end
endpoint) lines)))
- ;; maybe add some code to highlight matches like in
occur-mode?
- ;; goto the end of line for any case
- (goto-char endpoint))
- (forward-line 1))
- (setq lines (nreverse lines)))))
+ ;; maybe add some code to highlight matches like in occur-mode?
+ ;; goto the end of line for any case
+ (goto-char endpoint))
+ (forward-line 1))
+ (setq lines (nreverse lines)))))
(provide 'loccur)
-;;; loccur.el ends here
\ No newline at end of file
+;;; loccur.el ends here
