Mercurial > hg > xemacs-beta

comparison lisp/modes/mail-abbrevs.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents b82b59fe008d
children 0293115a14e9
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
356 (setq comma (point)) 356 (setq comma (point))
357 (forward-char 1) ; Now we are just past the comma. 357 (forward-char 1) ; Now we are just past the comma.
358 (insert "\n") 358 (insert "\n")
359 (delete-horizontal-space) 359 (delete-horizontal-space)
360 (setq p (point)) 360 (setq p (point))
361 (indent-relative) 361 ;; Prevent abbrev expansion from happening again, since
362 ;; sendmail-pre-abbrev-expand-hook will already have done it.
363 (let ((abbrev-mode nil))
364 (indent-relative))
362 (setq fp (buffer-substring p (point))) 365 (setq fp (buffer-substring p (point)))
363 ;; Go to the end of the new line. 366 ;; Go to the end of the new line.
364 (end-of-line) 367 (end-of-line)
365 (if (> (current-column) fill-column) 368 (if (> (current-column) fill-column)
366 ;; It's still too long; do normal auto-fill. 369 ;; It's still too long; do normal auto-fill.