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 'jd-zap-trailing-blanks) 

This is another way to handle the problem! 

HTH