equal
deleted
inserted
replaced
35 (setq recentf-show-file-shortcuts-flag nil) |
35 (setq recentf-show-file-shortcuts-flag nil) |
36 |
36 |
37 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets. |
37 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets. |
38 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order! |
38 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order! |
39 (setq recentf-menu-filter nil) |
39 (setq recentf-menu-filter nil) |
|
40 |
|
41 (defun my-recentf.clean-project (dir) |
|
42 "Remove from recentf all files that belong to DIR directory." |
|
43 (interactive (list (read-directory-name "Exclude all paths"))) |
|
44 (let ( recentf-exclude ) |
|
45 (setq recentf-exclude (list (concat "^" (regexp-quote (expand-file-name dir))))) |
|
46 (recentf-cleanup) )) |
40 |
47 |
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
48 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
42 (message "revert buffer") |
49 (message "revert buffer") |
43 |
50 |
44 (global-set-key [f5] 'revert-buffer) |
51 (global-set-key [f5] 'revert-buffer) |