From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 Sep 2002 16:03:58 +0000 (+0000)
Subject: (occur-engine-add-prefix): Use 7 spaces.
X-Git-Tag: ttn-vms-21-2-B4~13126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=261cca8832d07c2332410b20fd1227043d280c14;p=emacs.git

(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 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))