Mercurial > hg > xemacs-beta
comparison lisp/simple.el @ 215:1f0dabaa0855 r20-4b6
Import from CVS: tag r20-4b6
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:07:35 +0200 |
| parents | 41ff10fd062f |
| children | 262b8bb4a523 |
comparison
equal
deleted
inserted
replaced
| 214:c5d88c05e1e9 | 215:1f0dabaa0855 |
|---|---|
| 160 ;; when we added the newline at the beginning of a line | 160 ;; when we added the newline at the beginning of a line |
| 161 ;; which starts a page. | 161 ;; which starts a page. |
| 162 (or was-page-start | 162 (or was-page-start |
| 163 (move-to-left-margin nil t))) | 163 (move-to-left-margin nil t))) |
| 164 nil) | 164 nil) |
| 165 | |
| 166 (defun set-hard-newline-properties (from to) | |
| 167 (let ((sticky (get-text-property from 'rear-nonsticky))) | |
| 168 (put-text-property from to 'hard 't) | |
| 169 ;; If rear-nonsticky is not "t", add 'hard to rear-nonsticky list | |
| 170 (if (and (listp sticky) (not (memq 'hard sticky))) | |
| 171 (put-text-property from (point) 'rear-nonsticky | |
| 172 (cons 'hard sticky))))) | |
| 165 | 173 |
| 166 (defun open-line (arg) | 174 (defun open-line (arg) |
| 167 "Insert a newline and leave point before it. | 175 "Insert a newline and leave point before it. |
| 168 If there is a fill prefix and/or a left-margin, insert them on the new line | 176 If there is a fill prefix and/or a left-margin, insert them on the new line |
| 169 if the line would have been blank. | 177 if the line would have been blank. |
| 3476 ;;Subsumed by view-lossage | 3484 ;;Subsumed by view-lossage |
| 3477 ;; Not really, I'm adding it back by popular demand. -slb | 3485 ;; Not really, I'm adding it back by popular demand. -slb |
| 3478 (defun show-message-log () | 3486 (defun show-message-log () |
| 3479 "Show the \" *Message-Log*\" buffer, which contains old messages and errors." | 3487 "Show the \" *Message-Log*\" buffer, which contains old messages and errors." |
| 3480 (interactive) | 3488 (interactive) |
| 3481 (pop-to-buffer " *Message-Log*")) | 3489 (pop-to-buffer (get-buffer-create " *Message-Log*"))) |
| 3482 | 3490 |
| 3483 (defvar log-message-filter-function 'log-message-filter | 3491 (defvar log-message-filter-function 'log-message-filter |
| 3484 "Value must be a function of two arguments: a symbol (label) and | 3492 "Value must be a function of two arguments: a symbol (label) and |
| 3485 a string (message). It should return non-nil to indicate a message | 3493 a string (message). It should return non-nil to indicate a message |
| 3486 should be logged. Possible values include 'log-message-filter and | 3494 should be logged. Possible values include 'log-message-filter and |