Mercurial > emacs

changeset 11314:81ed366620c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(occur): Provide 5 cols for line number.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Apr 1995 03:07:01 +0000
parents 5704f8216dbd
children c5f81d9d417c
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Sat Apr 08 22:42:47 1995 +0000
+++ b/lisp/replace.el	Sun Apr 09 03:07:01 1995 +0000
@@ -388,7 +388,7 @@
 			    (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 @@
 			    (+ (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)