(occur-engine-add-prefix): Use 7 spaces.

(occur-engine): Use 7 digits to align tabs in the data.

diff --git a/lisp/replace.el b/lisp/replace.el
index 544f10ada91dfa8622b296a83d83b9a3b77017c9..f24a5fde9df7c4c7d4c2935bcade482085b716fb 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -767,7 +767,7 @@ See also `multi-occur'."
 (defun occur-engine-add-prefix (lines)
   (mapcar
    #'(lambda (line)
-       (concat "      :" line "\n"))
+       (concat "       :" line "\n"))
    lines))
 
 (defun occur-engine (regexp buffers out-buf nlines case-fold-search
@@ -825,7 +825,8 @@ See also `multi-occur'."
                    ;; Generate the string to insert for this match
                    (let* ((out-line
                            (concat
-                            (apply #'propertize (format "%6d:" lines)
+                            ;; Using 7 digits aligns tabs properly.
+                            (apply #'propertize (format "%7d:" lines)
                                    (append
                                     (when prefix-face
                                       `(font-lock-face prefix-face))