| @@ -1261,46 +1261,46 @@ found, otherwise returns nil." | |||
| ;; (safe-require-or-eval 'sync-recentf) | |||
| (when (safe-require-or-eval 'recentf) | |||
| (add-to-list 'recentf-exclude | |||
| (regexp-quote recentf-save-file)) | |||
| (add-to-list 'recentf-exclude | |||
| (regexp-quote (expand-file-name user-emacs-directory))) | |||
| (add-to-list 'recentf-exclude | |||
| "/sync-recentf-marker\\'") | |||
| (define-key ctl-x-map (kbd "C-r") 'recentf-open-files) | |||
| (remove-hook 'find-file-hook | |||
| 'recentf-track-opened-file) | |||
| (defun my-recentf-load-track-save-list () | |||
| "Load current recentf list from file, track current visiting file, then save | |||
| the list." | |||
| (recentf-load-list) | |||
| (recentf-track-opened-file) | |||
| (recentf-save-list)) | |||
| (add-hook 'find-file-hook | |||
| 'my-recentf-load-track-save-list) | |||
| (add-hook 'kill-emacs-hook | |||
| 'recentf-load-list) | |||
| ;;(run-with-idle-timer 5 t 'recentf-save-list) | |||
| ;; (add-hook 'find-file-hook | |||
| ;; (lambda () | |||
| ;; (recentf-add-file default-directory))) | |||
| (when (autoload-eval-lazily 'recentf-show) | |||
| (define-key ctl-x-map (kbd "C-r") 'recentf-show) | |||
| ;; (add-hook 'recentf-show-before-listing-hook | |||
| ;; 'recentf-load-list) | |||
| ) | |||
| (recentf-mode 1) | |||
| (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line) | |||
| (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line) | |||
| (define-key recentf-dialog-mode-map "p" 'previous-line) | |||
| (define-key recentf-dialog-mode-map "n" 'next-line) | |||
| (add-hook 'recentf-dialog-mode-hook | |||
| (lambda () | |||
| ;; (recentf-save-list) | |||
| ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") | |||
| ;; 'my-recentf-cd-and-find-file) | |||
| (cd "~/")))) | |||
| ;; (when (safe-require-or-eval 'recentf) | |||
| ;; (add-to-list 'recentf-exclude | |||
| ;; (regexp-quote recentf-save-file)) | |||
| ;; (add-to-list 'recentf-exclude | |||
| ;; (regexp-quote (expand-file-name user-emacs-directory))) | |||
| ;; (add-to-list 'recentf-exclude | |||
| ;; "/sync-recentf-marker\\'") | |||
| ;; (define-key ctl-x-map (kbd "C-r") 'recentf-open-files) | |||
| ;; (remove-hook 'find-file-hook | |||
| ;; 'recentf-track-opened-file) | |||
| ;; (defun my-recentf-load-track-save-list () | |||
| ;; "Load current recentf list from file, track current visiting file, then save | |||
| ;; the list." | |||
| ;; (recentf-load-list) | |||
| ;; (recentf-track-opened-file) | |||
| ;; (recentf-save-list)) | |||
| ;; (add-hook 'find-file-hook | |||
| ;; 'my-recentf-load-track-save-list) | |||
| ;; (add-hook 'kill-emacs-hook | |||
| ;; 'recentf-load-list) | |||
| ;; ;;(run-with-idle-timer 5 t 'recentf-save-list) | |||
| ;; ;; (add-hook 'find-file-hook | |||
| ;; ;; (lambda () | |||
| ;; ;; (recentf-add-file default-directory))) | |||
| ;; (when (autoload-eval-lazily 'recentf-show) | |||
| ;; (define-key ctl-x-map (kbd "C-r") 'recentf-show) | |||
| ;; ;; (add-hook 'recentf-show-before-listing-hook | |||
| ;; ;; 'recentf-load-list) | |||
| ;; ) | |||
| ;; (recentf-mode 1) | |||
| ;; (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line) | |||
| ;; (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line) | |||
| ;; (define-key recentf-dialog-mode-map "p" 'previous-line) | |||
| ;; (define-key recentf-dialog-mode-map "n" 'next-line) | |||
| ;; (add-hook 'recentf-dialog-mode-hook | |||
| ;; (lambda () | |||
| ;; ;; (recentf-save-list) | |||
| ;; ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") | |||
| ;; ;; 'my-recentf-cd-and-find-file) | |||
| ;; (cd "~/")))) | |||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||
| ;; dired | |||