Просмотр исходного кода

fix bug so that recentf-save-file does not appear in recentf-list

pull/1/head
10sr 11 лет назад
Родитель
Сommit
c6fa7df5fe
1 измененных файлов: 5 добавлений и 4 удалений
  1. +5
    -4
      emacs.el

+ 5
- 4
emacs.el Просмотреть файл

@@ -1168,9 +1168,6 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
recentf-show-file-shortcuts-flag nil) recentf-show-file-shortcuts-flag nil)


(when (require 'recentf nil t) (when (require 'recentf nil t)
(add-hook 'recentf-mode-hook
'recentf-save-list)
(recentf-mode 1)
(add-to-list 'recentf-exclude (regexp-quote recentf-save-file)) (add-to-list 'recentf-exclude (regexp-quote recentf-save-file))
(define-key ctl-x-map (kbd "C-r") 'recentf-open-files) (define-key ctl-x-map (kbd "C-r") 'recentf-open-files)
(add-hook 'find-file-hook (add-hook 'find-file-hook
@@ -1178,6 +1175,8 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
t) ; save to file immediately after adding file to recentf list t) ; save to file immediately after adding file to recentf list
(add-hook 'kill-emacs-hook (add-hook 'kill-emacs-hook
'recentf-load-list) 'recentf-load-list)
(add-hook 'recentf-mode-hook
'recentf-save-list)
;; (add-hook 'find-file-hook ;; (add-hook 'find-file-hook
;; (lambda () ;; (lambda ()
;; (recentf-add-file default-directory))) ;; (recentf-add-file default-directory)))
@@ -1187,7 +1186,9 @@ delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."
(require 'recentf-show nil t) (require 'recentf-show nil t)
(define-key ctl-x-map (kbd "C-r") 'recentf-show) (define-key ctl-x-map (kbd "C-r") 'recentf-show)
(add-hook 'recentf-show-before-listing-hook (add-hook 'recentf-show-before-listing-hook
'recentf-load-list)))
'recentf-load-list))
(recentf-mode 1)
)


(add-hook 'recentf-dialog-mode-hook (add-hook 'recentf-dialog-mode-hook
(lambda () (lambda ()


Загрузка…
Отмена
Сохранить