Mercurial > emacs
comparison lisp/simple.el @ 66965:1bca10e9d192
* simple.el (hard-newline): New variable.
* mail/sendmail.el (mail-setup, mail-send, mail-insert-from-field)
(sendmail-send-it, mail-do-fcc, mail-cc, mail-bcc, mail-fcc)
(mail-mail-reply-to, mail-mail-followup-to)
(mail-position-on-field, mail-signature, mail-yank-original)
(mail-attach-file): Use it.
* mail/mailheader.el (mail-header-format)
(mail-header-format-function): Likewise.
* add-log.el (add-change-log-entry, change-log-merge): Likewise.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 17 Nov 2005 16:30:52 +0000 |
| parents | deb1ca5162cd |
| children | 151367ca2353 |
comparison
equal
deleted
inserted
replaced
| 66964:99b6d306113f | 66965:1bca10e9d192 |
|---|---|
| 345 (kill-all-local-variables) | 345 (kill-all-local-variables) |
| 346 (unless delay-mode-hooks | 346 (unless delay-mode-hooks |
| 347 (run-hooks 'after-change-major-mode-hook))) | 347 (run-hooks 'after-change-major-mode-hook))) |
| 348 | 348 |
| 349 ;; Making and deleting lines. | 349 ;; Making and deleting lines. |
| 350 | |
| 351 (defvar hard-newline (propertize "\n" 'hard t 'rear-nonsticky '(hard))) | |
| 350 | 352 |
| 351 (defun newline (&optional arg) | 353 (defun newline (&optional arg) |
| 352 "Insert a newline, and move to left margin of the new line if it's blank. | 354 "Insert a newline, and move to left margin of the new line if it's blank. |
| 353 If `use-hard-newlines' is non-nil, the newline is marked with the | 355 If `use-hard-newlines' is non-nil, the newline is marked with the |
| 354 text-property `hard'. | 356 text-property `hard'. |