# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976122878 0
# Node ID 2f5e050486ce3c1e5892f29ecafe618c3b64bbe0
# Parent  1bf333d1b1defb538bf32f417e048e5837c64fcb
(occur): Make line-number-width 1 smaller for the
colon following the line number.

diff -r 1bf333d1b1de -r 2f5e050486ce lisp/replace.el
--- a/lisp/replace.el	Wed Dec 06 16:55:58 2000 +0000
+++ b/lisp/replace.el	Wed Dec 06 17:14:38 2000 +0000
@@ -568,14 +568,14 @@
 	 (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 ?\ ))