Mercurial > emacs
comparison lisp/comint.el @ 57420:bcfb3a26a3bd
(comint-output-filter): Typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 10 Oct 2004 05:06:47 +0000 |
| parents | 658b7dadee60 |
| children | 8c6fc4afae74 ff0e824afa37 |
comparison
equal
deleted
inserted
replaced
| 57419:658b7dadee60 | 57420:bcfb3a26a3bd |
|---|---|
| 1715 (get-text-property (1- prompt-start) 'read-only) | 1715 (get-text-property (1- prompt-start) 'read-only) |
| 1716 (put-text-property | 1716 (put-text-property |
| 1717 (1- prompt-start) prompt-start 'read-only 'fence)) | 1717 (1- prompt-start) prompt-start 'read-only 'fence)) |
| 1718 (add-text-properties | 1718 (add-text-properties |
| 1719 prompt-start (point) | 1719 prompt-start (point) |
| 1720 '(read-only t rear-non-sticky t front-sticky (read-only)))) | 1720 '(read-only t rear-nonsticky t front-sticky (read-only)))) |
| 1721 (unless (and (bolp) (null comint-last-prompt-overlay)) | 1721 (unless (and (bolp) (null comint-last-prompt-overlay)) |
| 1722 ;; Need to create or move the prompt overlay (in the case | 1722 ;; Need to create or move the prompt overlay (in the case |
| 1723 ;; where there is no prompt ((bolp) == t), we still do | 1723 ;; where there is no prompt ((bolp) == t), we still do |
| 1724 ;; this if there's already an existing overlay). | 1724 ;; this if there's already an existing overlay). |
| 1725 (if comint-last-prompt-overlay | 1725 (if comint-last-prompt-overlay |