From bcccd65d3fbd3e0de151044eb843289100a27b9d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 Apr 1995 03:07:01 +0000 Subject: [PATCH] (occur): Provide 5 cols for line number. --- lisp/replace.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5