(mapcar #'delete-trailing-whitespace-per-file
(directory-files-recursively "~/cocos2d-x/cocos/ui/UIEditBox" ".*\\.cpp"))
(defun delete-trailing-whitespace-per-file (filename)
(let ((buffer (find-file-noselect filename)))
(with-current-buffer buffer
(delete-trailing-whitespace (point-min) (point-max))
(save-buffer))))
上面可以删除 ~/cocos2d-x/cocos/ui/UIEditBox
目录下面所有的 .cpp
文件。