diff options
| author | Richard M. Stallman | 1995-04-09 03:07:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-09 03:07:01 +0000 |
| commit | bcccd65d3fbd3e0de151044eb843289100a27b9d (patch) | |
| tree | 5abaa41e47f150291b6d7edf87d0118539c1d00b /lisp/replace.el | |
| parent | 98b45886f2e9c8bdb1c25bc0400e023f53873def (diff) | |
| download | emacs-bcccd65d3fbd3e0de151044eb843289100a27b9d.tar.gz emacs-bcccd65d3fbd3e0de151044eb843289100a27b9d.zip | |
(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. | |||
| 388 | (forward-line (1+ nlines)) | 388 | (forward-line (1+ nlines)) |
| 389 | (forward-line 1)) | 389 | (forward-line 1)) |
| 390 | (point))) | 390 | (point))) |
| 391 | (tag (format "%3d" linenum)) | 391 | (tag (format "%5d" linenum)) |
| 392 | (empty (make-string (length tag) ?\ )) | 392 | (empty (make-string (length tag) ?\ )) |
| 393 | tem) | 393 | tem) |
| 394 | (save-excursion | 394 | (save-excursion |
| @@ -411,7 +411,7 @@ It serves as a menu to find any of the occurrences in this buffer. | |||
| 411 | (+ (point) (- (match-end 0) (match-beginning 0)))) | 411 | (+ (point) (- (match-end 0) (match-beginning 0)))) |
| 412 | (while (< (point) final-context-start) | 412 | (while (< (point) final-context-start) |
| 413 | (if (null tag) | 413 | (if (null tag) |
| 414 | (setq tag (format "%3d" this-linenum))) | 414 | (setq tag (format "%5d" this-linenum))) |
| 415 | (insert tag ?:) | 415 | (insert tag ?:) |
| 416 | (put-text-property (save-excursion | 416 | (put-text-property (save-excursion |
| 417 | (beginning-of-line) | 417 | (beginning-of-line) |