.emacs-my
changeset 1329 a2f8f3f1f0ef
parent 1328 a2ce26837465
child 1330 c0ac8ff63268
equal deleted inserted replaced
1328:a2ce26837465 1329:a2f8f3f1f0ef
    26 (setq recentf-keep '(file-remote-p file-readable-p))
    26 (setq recentf-keep '(file-remote-p file-readable-p))
    27 (setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
    27 (setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
    28       '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
    28       '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
    29         "/devel/my-\\(merge\\|pull\\)/"
    29         "/devel/my-\\(merge\\|pull\\)/"
    30         "\\.png\\'"))
    30         "\\.png\\'"))
       
    31 
    31 (setq recentf-max-saved-items 10000)
    32 (setq recentf-max-saved-items 10000)
       
    33 (setq recentf-max-menu-items 40)
       
    34 (setq recentf-show-file-shortcuts-flag nil)
    32 
    35 
    33 (recentf-mode t)
    36 (recentf-mode t)
    34 
    37 
    35 (global-set-key (kbd "\e\eq") 'recentf-open-files)
    38 (global-set-key (kbd "\e\eq") 'recentf-open-files)
    36 (global-set-key [?\s-q] 'recentf-open-files)
    39 (global-set-key [?\s-q] 'recentf-open-files)
    37 
       
    38 (setq recentf-max-menu-items 40)
       
    39 (setq recentf-show-file-shortcuts-flag nil)
       
    40 
    40 
    41 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.
    41 ;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.
    42 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
    42 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
    43 (setq recentf-menu-filter nil)
    43 (setq recentf-menu-filter nil)
    44 
    44