# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032365038 0
# Node ID e5d8cf249294a7cdaf1e3d4bdac623d19e15fe17
# Parent  e7f753af9cebe99fff7cf3baa7173e2b77ed5013
(occur-engine-add-prefix): Use 7 spaces.
(occur-engine): Use 7 digits to align tabs in the data.

diff -r e7f753af9ceb -r e5d8cf249294 lisp/replace.el
--- a/lisp/replace.el	Wed Sep 18 16:02:49 2002 +0000
+++ b/lisp/replace.el	Wed Sep 18 16:03:58 2002 +0000
@@ -767,7 +767,7 @@
 (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 @@
 		    ;; 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))