changeset 1427:c49077849583

(occur): Always search entire buffer.

--- a/lisp/replace.el	Sat Oct 17 22:11:56 1992 +0000
+++ b/lisp/replace.el	Sun Oct 18 01:06:40 1992 +0000
@@ -243,16 +243,11 @@
 match.  A negative number means to include that many lines before the match.
 A positive number means to include that many lines both before and after.")
 
-(defvar occur-whole-buffer nil
-  "If t, occur operates on whole buffer, otherwise occur starts from point.
-default is nil.")
-
 (fset 'list-matching-lines 'occur)
 
 (defun occur (regexp &optional nlines)
-  "Show lines containing a match for REGEXP.  If the global variable
-`occur-whole-buffer' is non-nil, the entire buffer is searched, otherwise
-search begins at point.  Interactively, REGEXP defaults to the last REGEXP
+  "Show all lines in the current buffer containing a match for REGEXP.
+Interactively, REGEXP defaults to the last REGEXP
 used interactively with \\[occur].
 
 If a match spreads across multiple lines, all those lines are shown.
@@ -276,11 +271,10 @@
 	(linenum 1)
 	(prevpos (point-min))
 	(final-context-start (make-marker)))
-    (if (not occur-whole-buffer)
-	(save-excursion
-	  (beginning-of-line)
-	  (setq linenum (1+ (count-lines (point-min) (point))))
-	  (setq prevpos (point))))
+;;;	(save-excursion
+;;;	  (beginning-of-line)
+;;;	  (setq linenum (1+ (count-lines (point-min) (point))))
+;;;	  (setq prevpos (point)))
     (with-output-to-temp-buffer "*Occur*"
       (save-excursion
 	(set-buffer standard-output)
@@ -294,8 +288,7 @@
       (if (eq buffer standard-output)
 	  (goto-char (point-max)))
       (save-excursion
-	(if occur-whole-buffer
-	    (beginning-of-buffer))
+	(beginning-of-buffer)
 	;; Find next match, but give up if prev match was at end of buffer.
 	(while (and (not (= prevpos (point-max)))
 		    (re-search-forward regexp nil t))