批量删除某个目录下面的文件的 trailing whitespace

(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文件。

1 个赞