diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-10-18 01:06:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-10-18 01:06:40 +0000 |
| commit | 99976f85b717743c3083046d7255ff4e04a9f0ef (patch) | |
| tree | 9813f442d83ed3b4536d3c2712e4e66bdd7f3811 /lisp/replace.el | |
| parent | ccdac5be86aeda3f78317dd0d824677d80f21496 (diff) | |
| download | emacs-99976f85b717743c3083046d7255ff4e04a9f0ef.tar.gz | |
(occur): Always search entire buffer.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 22b7cde167c..beee0df738a 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -243,16 +243,11 @@ in the buffer that the occurrences were found in. 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 @@ It serves as a menu to find any of the occurrences in this buffer. (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 @@ It serves as a menu to find any of the occurrences in this buffer. (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)) |