From 9043c1c30754b4441ea2c59d24b24c759f363129 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 6 Dec 2000 17:14:38 +0000 Subject: [PATCH] (occur): Make line-number-width 1 smaller for the colon following the line number. --- lisp/replace.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 ?\ )) -- 2.39.5