diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-09 03:07:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-09 03:07:01 +0000 |
| commit | c49e39960c61f81dbdb3a461a60105706e848293 (patch) | |
| tree | 7ed895f1dd6a4889b0d6c59d039c7c1d999a8c70 /lisp/replace.el | |
| parent | bac68dd8e5b47a1dc70c50dfde10a21940ffb784 (diff) | |
| download | emacs-c49e39960c61f81dbdb3a461a60105706e848293.tar.gz | |
(occur): Provide 5 cols for line number.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files 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) |