Преглед изворни кода

Disable recentf mode

master
10sr пре 5 година
родитељ
комит
6a33869a2f
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 измењених фајлова са 40 додато и 40 уклоњено
  1. +40
    -40
      emacs.el

+ 40
- 40
emacs.el Прегледај датотеку

@@ -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


Loading…
Откажи
Сачувај