set find-file-visit-truename, simplify recentf

diff --git a/lisp/my-other-modes.el b/lisp/my-other-modes.el
index fda7b9832f27aa641665297d1dd286eaa7faafe7..960e2a364794c7cfaf47aafdc9fd8571706dba77 100644 (file)
--- a/lisp/my-other-modes.el
+++ b/lisp/my-other-modes.el
@@ -12,6 +12,8 @@
 
 (setq disabled-command-function nil)
 
+(setq find-file-visit-truename t)
+
 (require 'ibuffer-vc)
 (add-hook 'ibuffer-hook
           (lambda ()

diff --git a/lisp/my-recentf.el b/lisp/my-recentf.el
index 71a6c469256f6412a09745a44cd831cc616e9b7a..127126f448039b7a7edb0519cef2853b865d2f0b 100644 (file)
--- a/lisp/my-recentf.el
+++ b/lisp/my-recentf.el
@@ -4,8 +4,7 @@
 
 (setq recentf-exclude (list
                        "/emacs\\.d/recentf$"
-                       "/\\.git/"
-                       #'my/filename-not-truename-p))
+                       "/\\.git/"))
 
 (setq recentf-max-saved-items 1000)
 
@@ -36,7 +35,4 @@
   (apply original-function args)
   (set-buffer-modified-p nil))
 
-(defun my/filename-not-truename-p (filename)
-  (not (equal (file-truename filename) filename)))
-
 (recentf-mode 1)