--- a/.emacs-my Wed Feb 11 16:32:42 2015 +0200
+++ b/.emacs-my Tue Feb 17 15:07:54 2015 +0200
@@ -38,6 +38,13 @@
;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
(setq recentf-menu-filter nil)
+(defun my-recentf.clean-project (dir)
+ "Remove from recentf all files that belong to DIR directory."
+ (interactive (list (read-directory-name "Exclude all paths")))
+ (let ( recentf-exclude )
+ (setq recentf-exclude (list (concat "^" (regexp-quote (expand-file-name dir)))))
+ (recentf-cleanup) ))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "revert buffer")