[Emacs-diffs] Changes to emacs/lisp/replace.el

[Richard M. Stallman]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.158 emacs/lisp/replace.el:1.159
*** emacs/lisp/replace.el:1.158 Tue Sep 10 12:44:17 2002
--- emacs/lisp/replace.el       Wed Sep 18 12:03:58 2002
***************
*** 767,773 ****
  (defun occur-engine-add-prefix (lines)
    (mapcar
     #'(lambda (line)
!        (concat "      :" line "\n"))
     lines))
  
  (defun occur-engine (regexp buffers out-buf nlines case-fold-search
--- 767,773 ----
  (defun occur-engine-add-prefix (lines)
    (mapcar
     #'(lambda (line)
!        (concat "       :" line "\n"))
     lines))
  
  (defun occur-engine (regexp buffers out-buf nlines case-fold-search
***************
*** 825,831 ****
                    ;; Generate the string to insert for this match
                    (let* ((out-line
                            (concat
!                            (apply #'propertize (format "%6d:" lines)
                                    (append
                                     (when prefix-face
                                       `(font-lock-face prefix-face))
--- 825,832 ----
                    ;; Generate the string to insert for this match
                    (let* ((out-line
                            (concat
!                            ;; Using 7 digits aligns tabs properly.
!                            (apply #'propertize (format "%7d:" lines)
                                    (append
                                     (when prefix-face
                                       `(font-lock-face prefix-face))