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.