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'. |