.emacs-my
changeset 1677 bfa894057550
parent 1673 bd16419905c0
child 1678 6a1398ccb866
equal deleted inserted replaced
1676:2952c3c11261 1677:bfa894057550
    44   (require 'recentf))
    44   (require 'recentf))
    45 
    45 
    46 ;; (recentf-load-list)
    46 ;; (recentf-load-list)
    47 (setq recentf-save-file (concat user-emacs-directory ".recentf"))
    47 (setq recentf-save-file (concat user-emacs-directory ".recentf"))
    48 
    48 
    49 (setq recentf-auto-cleanup 600)
       
    50 ;; Prevent TRAMP to login on remote host when loading. Its take time and ask passwords!
    49 ;; Prevent TRAMP to login on remote host when loading. Its take time and ask passwords!
    51 (setq recentf-keep '(file-remote-p file-readable-p))
    50 (setq recentf-keep '(file-remote-p file-readable-p))
    52 (setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
    51 (setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
    53       '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
    52       '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
    54         "/devel/my-\\(merge\\|pull\\)/"
    53         "/devel/my-\\(merge\\|pull\\)/"
    57 
    56 
    58 (setq recentf-max-saved-items 10000)
    57 (setq recentf-max-saved-items 10000)
    59 (setq recentf-max-menu-items 40)
    58 (setq recentf-max-menu-items 40)
    60 (setq recentf-show-file-shortcuts-flag nil)
    59 (setq recentf-show-file-shortcuts-flag nil)
    61 
    60 
    62 (recentf-mode t)
    61 ;; Need to be defined before loading "recentf" because default value is
       
    62 ;; "mode", meaning cleanup when turning the mode on.
       
    63 (setq recentf-auto-cleanup 600)
       
    64 
       
    65 (recentf-mode 1)
    63 
    66 
    64 (global-set-key (kbd "\e\eq") 'recentf-open-files)
    67 (global-set-key (kbd "\e\eq") 'recentf-open-files)
    65 (global-set-key [?\s-q] 'recentf-open-files)
    68 (global-set-key [?\s-q] 'recentf-open-files)
    66 
    69 
    67 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.
    70 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.