From c49e39960c61f81dbdb3a461a60105706e848293 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 Apr 1995 03:07:01 +0000 Subject: (occur): Provide 5 cols for line number. --- lisp/replace.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/replace.el') diff --git a/lisp/replace.el b/lisp/replace.el index df58492f871..9cd3908d8ba 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -388,7 +388,7 @@ It serves as a menu to find any of the occurrences in this buffer. (forward-line (1+ nlines)) (forward-line 1)) (point))) - (tag (format "%3d" linenum)) + (tag (format "%5d" linenum)) (empty (make-string (length tag) ?\ )) tem) (save-excursion @@ -411,7 +411,7 @@ It serves as a menu to find any of the occurrences in this buffer. (+ (point) (- (match-end 0) (match-beginning 0)))) (while (< (point) final-context-start) (if (null tag) - (setq tag (format "%3d" this-linenum))) + (setq tag (format "%5d" this-linenum))) (insert tag ?:) (put-text-property (save-excursion (beginning-of-line) -- cgit v1.2.1