/[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.158 by rms, Tue Sep 10 16:44:17 2002 UTC revision 1.159 by rms, Wed Sep 18 16:03:58 2002 UTC
# Line 767  See also `multi-occur'." Line 767  See also `multi-occur'."
767  (defun occur-engine-add-prefix (lines)  (defun occur-engine-add-prefix (lines)
768    (mapcar    (mapcar
769     #'(lambda (line)     #'(lambda (line)
770         (concat "      :" line "\n"))         (concat "       :" line "\n"))
771     lines))     lines))
772    
773  (defun occur-engine (regexp buffers out-buf nlines case-fold-search  (defun occur-engine (regexp buffers out-buf nlines case-fold-search
# Line 825  See also `multi-occur'." Line 825  See also `multi-occur'."
825                      ;; Generate the string to insert for this match                      ;; Generate the string to insert for this match
826                      (let* ((out-line                      (let* ((out-line
827                              (concat                              (concat
828                               (apply #'propertize (format "%6d:" lines)                               ;; Using 7 digits aligns tabs properly.
829                                 (apply #'propertize (format "%7d:" lines)
830                                      (append                                      (append
831                                       (when prefix-face                                       (when prefix-face
832                                         `(font-lock-face prefix-face))                                         `(font-lock-face prefix-face))

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

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