Mercurial > hg > xemacs-beta
comparison lisp/modes/mail-abbrevs.el @ 76:c0c698873ce1 r20-0b33
Import from CVS: tag r20-0b33
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:05:10 +0200 |
parents | 131b0175ea99 |
children | 360340f9fd5f |
comparison
equal
deleted
inserted
replaced
75:a4e0195b387b | 76:c0c698873ce1 |
---|---|
357 (setq comma (point)) | 357 (setq comma (point)) |
358 (forward-char 1) ; Now we are just past the comma. | 358 (forward-char 1) ; Now we are just past the comma. |
359 (insert "\n") | 359 (insert "\n") |
360 (delete-horizontal-space) | 360 (delete-horizontal-space) |
361 (setq p (point)) | 361 (setq p (point)) |
362 (indent-relative) | 362 ;; Prevent abbrev expansion from happening again, since |
363 ;; sendmail-pre-abbrev-expand-hook will already have done it. | |
364 (let ((abbrev-mode nil)) | |
365 (indent-relative)) | |
363 (setq fp (buffer-substring p (point))) | 366 (setq fp (buffer-substring p (point))) |
364 ;; Go to the end of the new line. | 367 ;; Go to the end of the new line. |
365 (end-of-line) | 368 (end-of-line) |
366 (if (> (current-column) fill-column) | 369 (if (> (current-column) fill-column) |
367 ;; It's still too long; do normal auto-fill. | 370 ;; It's still too long; do normal auto-fill. |