Mercurial > emacs
comparison lisp/replace.el @ 11075:e1b564b50569
(occur): Copy default-directory to *Occur* buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Mar 1995 19:57:36 +0000 |
| parents | 9f018a8f2f67 |
| children | 81ed366620c0 |
comparison
equal
deleted
inserted
replaced
| 11074:259db0e1a815 | 11075:e1b564b50569 |
|---|---|
| 342 current-prefix-arg)) | 342 current-prefix-arg)) |
| 343 (setq nlines (if nlines (prefix-numeric-value nlines) | 343 (setq nlines (if nlines (prefix-numeric-value nlines) |
| 344 list-matching-lines-default-context-lines)) | 344 list-matching-lines-default-context-lines)) |
| 345 (let ((first t) | 345 (let ((first t) |
| 346 (buffer (current-buffer)) | 346 (buffer (current-buffer)) |
| 347 (dir default-directory) | |
| 347 (linenum 1) | 348 (linenum 1) |
| 348 (prevpos (point-min)) | 349 (prevpos (point-min)) |
| 349 (final-context-start (make-marker))) | 350 (final-context-start (make-marker))) |
| 350 ;;; (save-excursion | 351 ;;; (save-excursion |
| 351 ;;; (beginning-of-line) | 352 ;;; (beginning-of-line) |
| 352 ;;; (setq linenum (1+ (count-lines (point-min) (point)))) | 353 ;;; (setq linenum (1+ (count-lines (point-min) (point)))) |
| 353 ;;; (setq prevpos (point))) | 354 ;;; (setq prevpos (point))) |
| 354 (with-output-to-temp-buffer "*Occur*" | 355 (with-output-to-temp-buffer "*Occur*" |
| 355 (save-excursion | 356 (save-excursion |
| 356 (set-buffer standard-output) | 357 (set-buffer standard-output) |
| 358 (setq default-directory dir) | |
| 357 ;; We will insert the number of lines, and "lines", later. | 359 ;; We will insert the number of lines, and "lines", later. |
| 358 (insert " matching ") | 360 (insert " matching ") |
| 359 (let ((print-escape-newlines t)) | 361 (let ((print-escape-newlines t)) |
| 360 (prin1 regexp)) | 362 (prin1 regexp)) |
| 361 (insert " in buffer " (buffer-name buffer) ?. ?\n) | 363 (insert " in buffer " (buffer-name buffer) ?. ?\n) |