Removed hide-lines which hides lines based on a regex.
authorLuke Hoersten <Luke@Hoersten.org>
Tue, 28 Sep 2010 23:37:53 -0500
changeset 23 9c7fc00cc7a3
parent 22 a7906973ceb5
child 24 96bd2f4c9962
Removed hide-lines which hides lines based on a regex.
hide-lines.el
init.el
--- a/hide-lines.el	Tue Sep 28 23:27:10 2010 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,96 +0,0 @@
-;;; hide-lines.el --- Commands for hiding lines based on a regexp
-;; 
-;;; Author: Mark Hulme-Jones <ture at plig cucumber dot net>
-;; 
-;;; History
-;; 
-;; 24/03/2004 - Incorporate fix for infinite loop bug from David
-;; Hansen
-;; 
-;;; Commentary
-;; 
-;; The simplest way to make hide-lines work is to add the following
-;; lines to your .emacs file:
-;; 
-;; (autoload 'hide-lines "hide-lines" "Hide lines based on a regexp" t)
-;; (global-set-key "\C-ch" 'hide-lines)
-;; 
-;; Now, when you type C-c h, you will be prompted for a regexp
-;; (regular expression).  All lines matching this regexp will be
-;; hidden in the buffer.
-;; 
-;; Alternatively, you can type C-u C-c h (ie. provide a prefix
-;; argument to the hide-lines command) to hide all lines that *do not*
-;; match the specified regexp.
-;; 
-;; If you want to make all of the hidden areas re-appear again, type:
-;; M-x show-all-invisible
-;; Or you can bind show-all-invisible to a key and use that to show
-;; all the hidden areas again.
-
-(defvar invisible-areas-list ()
- "List of invisible overlays used by hidelines")
-
-(add-to-invisibility-spec 'hl)
-
-(defun hide-lines (&optional arg)
-  "Hide lines matching the specified regexp.
-With prefix arg: Hide lines that do not match the specified regexp"
-  (interactive "p")
-  (if (> arg 1)
-      (call-interactively 'hide-non-matching-lines)
-      (call-interactively 'hide-matching-lines)))
-
-(defun add-invisible-overlay (start end)
-  "Add an overlay from `start' to `end' in the current buffer.  Push the
-overlay onto the invisible-areas-list list"
-  (let ((overlay (make-overlay start end)))
-    (setq invisible-areas-list (cons overlay invisible-areas-list))
-    (overlay-put overlay 'invisible 'hl)))
-
-(defun hide-non-matching-lines (search-text)
-  "Hide lines that don't match the specified regexp."
-  (interactive "MHide lines not matched by regexp: ")
-  (make-variable-buffer-local 'line-move-ignore-invisible)
-  (setq line-move-ignore-invisible t)
-  (save-excursion 
-    (goto-char (point-min))
-    (let ((start-position (point-min))
-          (pos (re-search-forward search-text nil t)))
-      (while pos
-        (beginning-of-line)
-        (add-invisible-overlay start-position (point))
-        (forward-line 1)
-        (setq start-position (point))
-        (if (eq (point) (point-max))
-            (setq pos nil)
-          (setq pos (re-search-forward search-text nil t))))
-      (add-invisible-overlay start-position (point-max)))))
-
-(defun hide-matching-lines  (search-text)
-  "Hide lines matching the specified regexp."
-  (interactive "MHide lines matching regexp: ")
-  (make-variable-buffer-local 'line-move-ignore-invisible)
-  (setq line-move-ignore-invisible t)
-  (save-excursion
-    (goto-char (point-min))
-    (let ((pos (re-search-forward search-text nil t))
-          start-position)
-      (while pos
-        (beginning-of-line)
-        (setq start-position (point))
-        (end-of-line)
-        (add-invisible-overlay start-position (+ 1 (point)))
-        (forward-line 1)
-        (if (eq (point) (point-max))
-            (setq pos nil)
-          (setq pos (re-search-forward search-text nil t)))))))
-
-(defun show-all-invisible ()
-  "Show all areas hidden by the filter-buffer command"
-  (interactive)
-  (mapcar (lambda (overlay) (delete-overlay overlay)) 
-          invisible-areas-list)
-  (setq invisible-areas-list ()))
-
-(provide 'hide-lines)
--- a/init.el	Tue Sep 28 23:27:10 2010 -0500
+++ b/init.el	Tue Sep 28 23:37:53 2010 -0500
@@ -95,7 +95,6 @@
 ;; includes
 (require 'hoersten-pastebin-region) ; send selected text to pastebin
 (require 'hoersten-c-style)         ; load c specific lisp
-(require 'hide-lines)               ; hide lines based on regexp
 (require 'vala-mode)                ; vala programming language
 
 ;; Xrefactory