/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.133 by walters, Wed Apr 24 23:28:45 2002 UTC revision 1.134 by walters, Thu Apr 25 19:02:46 2002 UTC
# Line 655  This function acts on multiple buffers; Line 655  This function acts on multiple buffers;
655    (occur-1 regexp nlines bufs))    (occur-1 regexp nlines bufs))
656    
657  (defun multi-occur-by-filename-regexp (bufregexp regexp &optional nlines)  (defun multi-occur-by-filename-regexp (bufregexp regexp &optional nlines)
658    "Show all lines in buffers containing REGEXP, named by BUFREGEXP.    "Show all lines matching REGEXP in buffers named by BUFREGEXP.
659  See also `multi-occur'."  See also `multi-occur'."
660    (interactive    (interactive
661     (cons     (cons
# Line 701  See also `multi-occur'." Line 701  See also `multi-occur'."
701          (if (> count 0)          (if (> count 0)
702              (display-buffer occur-buf)              (display-buffer occur-buf)
703            (kill-buffer occur-buf)))            (kill-buffer occur-buf)))
       (goto-char (point-min))  
704        (setq occur-revert-properties (list regexp nlines bufs)        (setq occur-revert-properties (list regexp nlines bufs)
705              buffer-read-only t))))              buffer-read-only t))))
706    
# Line 818  See also `multi-occur'." Line 817  See also `multi-occur'."
817                                            (when title-face                                            (when title-face
818                                              `(face ,title-face))                                              `(face ,title-face))
819                                            `(occur-title ,buf))))                                            `(occur-title ,buf))))
820                    (goto-char (point-max)))))))                    (goto-char (point-min)))))))
821          ;; Return the number of matches          ;; Return the number of matches
822          globalcount))))          globalcount))))
823    

Legend:
Removed from v.1.133  
changed lines
  Added in v.1.134

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26