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

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

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 544f10ada91..f24a5fde9df 100644
--- 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))