Mercurial > emacs
changeset 34290:2f5e050486ce
(occur): Make line-number-width 1 smaller for the
colon following the line number.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 06 Dec 2000 17:14:38 +0000 |
| parents | 1bf333d1b1de |
| children | 2271500f483e |
| files | lisp/replace.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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 ?\ ))