diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-12-06 17:14:38 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-06 17:14:38 +0000 |
| commit | 9043c1c30754b4441ea2c59d24b24c759f363129 (patch) | |
| tree | 885a7cbd6c4e5b43d9b1db2d5156b000ce1b8050 /lisp/replace.el | |
| parent | 8714a182913706f421631a07da3dfa439c7eb9ec (diff) | |
| download | emacs-9043c1c30754b4441ea2c59d24b24c759f363129.tar.gz emacs-9043c1c30754b4441ea2c59d24b24c759f363129.tar.bz2 emacs-9043c1c30754b4441ea2c59d24b24c759f363129.zip | |
(occur): Make line-number-width 1 smaller for the
colon following the line number.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 16 |
1 files 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 ?\ )) |