Mercurial > emacs
comparison lisp/find-dired.el @ 80832:e712fac5ab3b
(find-dired-filter): Propertize all text down to eob.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 Apr 2007 21:11:42 +0000 |
| parents | e3694f1cb928 |
| children | 9355f9b7bbff 70bf32a0f523 |
comparison
equal
deleted
inserted
replaced
| 80831:3a98262e1528 | 80832:e712fac5ab3b |
|---|---|
| 255 (goto-char (- end 3)) ; no error if < 0 | 255 (goto-char (- end 3)) ; no error if < 0 |
| 256 (while (search-forward " ./" nil t) | 256 (while (search-forward " ./" nil t) |
| 257 (delete-region (point) (- (point) 2))) | 257 (delete-region (point) (- (point) 2))) |
| 258 ;; Find all the complete lines in the unprocessed | 258 ;; Find all the complete lines in the unprocessed |
| 259 ;; output and process it to add text properties. | 259 ;; output and process it to add text properties. |
| 260 (goto-char end) | 260 (goto-char (point-max)) |
| 261 (if (search-backward "\n" (process-mark proc) t) | 261 (if (search-backward "\n" (process-mark proc) t) |
| 262 (progn | 262 (progn |
| 263 (dired-insert-set-properties (process-mark proc) | 263 (dired-insert-set-properties (process-mark proc) |
| 264 (1+ (point))) | 264 (1+ (point))) |
| 265 (move-marker (process-mark proc) (1+ (point))))) | 265 (move-marker (process-mark proc) (1+ (point))))) |