Mercurial > emacs
comparison lisp/textmodes/outline.el @ 21438:7669480e827d
*** empty log message ***
| author | Dan Nicolaescu <done@ece.arizona.edu> |
|---|---|
| date | Wed, 08 Apr 1998 19:29:35 +0000 |
| parents | f3f9df46d008 |
| children | 2280d06ab327 |
comparison
equal
deleted
inserted
replaced
| 21437:a2a8f6772465 | 21438:7669480e827d |
|---|---|
| 403 (save-excursion | 403 (save-excursion |
| 404 (goto-char from) | 404 (goto-char from) |
| 405 (end-of-line) | 405 (end-of-line) |
| 406 (outline-discard-overlays (point) to 'outline) | 406 (outline-discard-overlays (point) to 'outline) |
| 407 (if flag | 407 (if flag |
| 408 (let ((o (make-overlay (point) to))) | 408 (let ((o (make-overlay (point) to))) |
| 409 (overlay-put o 'invisible 'outline) | 409 (overlay-put o 'invisible 'outline) |
| 410 (overlay-put o 'outline t))))) | 410 (overlay-put o 'isearch-open-invisible |
| 411 'outline-isearch-open-invisible))))) | |
| 411 (run-hooks 'outline-view-change-hook)) | 412 (run-hooks 'outline-view-change-hook)) |
| 412 | 413 |
| 413 ;; Exclude from the region BEG ... END all overlays | 414 ;; Exclude from the region BEG ... END all overlays |
| 414 ;; with a non-nil PROP property. | 415 ;; with a non-nil PROP property. |
| 415 ;; Exclude them by shrinking them to exclude BEG ... END, | 416 ;; Exclude them by shrinking them to exclude BEG ... END, |