Re: About abbrevs and spaces at end of line

[duthen.mac.01@gmail.com]

Well, actually, I don't like trailing spaces.
So I always get rid of them with:

(defun jd-replace-alist (start end alist)
  "Make all replacements described in alist."
  (save-excursion
    (save-restriction
      (narrow-to-region start end)
      (mapc (lambda (modif)
              (let ((from (car modif)) (to (cdr modif)))
                (goto-char (point-min))
                (while (re-search-forward from (null 'bound) 'noerror)
                  (replace-match to))))
            alist))))

(defun jd-zap-trailing-blanks ()
  (interactive)
  (jd-replace-alist (point-min) (point-max) '(("[ \t]+$" . ""))))

(add-hook 'write-file-functions 'id-zap-trailing-blanks)

This is another way to handle the problem!

HTH