Mercurial > emacs
comparison lisp/replace.el @ 13069:8197923b82ae
(occur): Indent better for matches that contain newlines.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Sep 1995 23:25:06 +0000 |
| parents | 6be53feb3323 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 13068:9cc4392719e3 | 13069:8197923b82ae |
|---|---|
| 398 (setq occur-pos-list (cons tem occur-pos-list)) | 398 (setq occur-pos-list (cons tem occur-pos-list)) |
| 399 (or first (zerop nlines) | 399 (or first (zerop nlines) |
| 400 (insert "--------\n")) | 400 (insert "--------\n")) |
| 401 (setq first nil) | 401 (setq first nil) |
| 402 (insert-buffer-substring buffer start end) | 402 (insert-buffer-substring buffer start end) |
| 403 (set-marker final-context-start | |
| 404 (- (point) (- end (match-end 0)))) | |
| 403 (backward-char (- end start)) | 405 (backward-char (- end start)) |
| 404 (setq tem nlines) | 406 (setq tem nlines) |
| 405 (while (> tem 0) | 407 (while (> tem 0) |
| 406 (insert empty ?:) | 408 (insert empty ?:) |
| 407 (forward-line 1) | 409 (forward-line 1) |
| 408 (setq tem (1- tem))) | 410 (setq tem (1- tem))) |
| 409 (let ((this-linenum linenum)) | 411 (let ((this-linenum linenum)) |
| 410 (set-marker final-context-start | |
| 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 "%5d" 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 |
| 418 (point)) | 418 (point)) |
| 419 (save-excursion | 419 (save-excursion |
| 420 (end-of-line) | 420 (end-of-line) |
| 421 (point)) | 421 (point)) |
| 422 'mouse-face 'highlight) | 422 'mouse-face 'highlight) |
| 423 (forward-line 1) | |
| 423 (setq tag nil) | 424 (setq tag nil) |
| 425 (setq this-linenum (1+ this-linenum))) | |
| 426 (while (<= (point) final-context-start) | |
| 427 (insert empty ?:) | |
| 424 (forward-line 1) | 428 (forward-line 1) |
| 425 (setq this-linenum (1+ this-linenum)))) | 429 (setq this-linenum (1+ this-linenum)))) |
| 426 (while (< tem nlines) | 430 (while (< tem nlines) |
| 427 (insert empty ?:) | 431 (insert empty ?:) |
| 428 (forward-line 1) | 432 (forward-line 1) |
| 429 (setq tem (1+ tem)))) | 433 (setq tem (1+ tem))) |
| 434 (goto-char (point-max))) | |
| 430 (forward-line 1))) | 435 (forward-line 1))) |
| 431 (set-buffer standard-output) | 436 (set-buffer standard-output) |
| 432 ;; Put positions in increasing order to go with buffer. | 437 ;; Put positions in increasing order to go with buffer. |
| 433 (setq occur-pos-list (nreverse occur-pos-list)) | 438 (setq occur-pos-list (nreverse occur-pos-list)) |
| 434 (goto-char (point-min)) | 439 (goto-char (point-min)) |