Hi, Artur! AP> навскидку: AP> (defun arto-delete-trailing-whitespaces (beg end) AP> (interactive "r") (save-excursion AP> (goto-char beg) (while (re-search-forward "\s-+$" end t nil) AP> (replace-match "")))) вот это уже не навскидку, рабочий код ;-) ;; strip trailing spaces on write any file (defun strip-trailing-whitespaces (beg end) (interactive "r") (save-excursion (goto-char beg) (while (re-search-forward "\\s-+$" end t nil) (replace-match "") ))) (defun strip-trailing-whitespaces-buffer () (interactive) (strip-trailing-whitespaces (point-min) (point-max)) ) (add-hook 'write-file-hooks 'strip-trailing-whitespaces-buffer) -- Bor.