From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 6 Dec 2000 17:14:38 +0000 (+0000)
Subject: (occur): Make line-number-width 1 smaller for the
X-Git-Tag: emacs-pretest-21.0.93~148
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9043c1c30754b4441ea2c59d24b24c759f363129;p=emacs.git

(occur): Make line-number-width 1 smaller for the
colon following the line number.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 8645e81420b..6fc67ad87bc 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -568,14 +568,14 @@ the matching is case-sensitive."
 	 (current-tab-width tab-width)
 	 ;; Minimum width of line number plus trailing colon.
 	 (min-line-number-width 6)
-	 ;; Actual width of line number prefix.  Choose a width that's
-	 ;; a multiple of `tab-width' in the original buffer so that
-	 ;; lines in *Occur* appear right.
-	 (line-number-width (* (/ (- (+ min-line-number-width
-					tab-width)
-				     1)
-				  tab-width)
-			       tab-width))
+	 ;; Width of line number prefix without the colon.  Choose a
+	 ;; width that's a multiple of `tab-width' in the original
+	 ;; buffer so that lines in *Occur* appear right.
+	 (line-number-width (1- (* (/ (- (+ min-line-number-width
+					    tab-width)
+					 1)
+				      tab-width)
+				   tab-width)))
 	 ;; Format string for line numbers.
 	 (line-number-format (format "%%%dd" line-number-width))
 	 (empty (make-string line-number-width ?\ ))