This should do it:
(defun delete-trailing-whitespace-each-buffer () (interactive) (mapc (lambda (buffer) (condition-case nil (with-current-buffer buffer (delete-trailing-whitespace)) (buffer-read-only nil))) (buffer-list)))
It will not do anything in read-only buffers.
Michael hoffman
source share