1 changed files with 40 additions and 40 deletions
Unified View
Diff Options
-
+40 -40emacs.el
+ 40
- 40
emacs.el
View File
| @@ -1261,46 +1261,46 @@ found, otherwise returns nil." | |||||
| ;; (safe-require-or-eval 'sync-recentf) | ;; (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 | ;; dired | ||||