From: Francois Fleuret <francois@fleuret.org>
Date: Sun, 5 Jun 2011 13:24:33 +0000 (+0200)
Subject: Fixed how the name is added to the history in selector/find-file.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b627fd837f5de4cace93ce8e7dfa8f76efd9ccb;p=elisp.git

Fixed how the name is added to the history in selector/find-file.
---

diff --git a/selector.el b/selector.el
index 463d81d..2175352 100644
--- a/selector.el
+++ b/selector.el
@@ -352,7 +352,12 @@ There seems to be header-line refreshing problems with emacs21."
 
 (defun selector/find-file (filename)
   (if selector/add-to-file-name-history
-      (add-to-list 'file-name-history filename))
+      (add-to-history 'file-name-history
+                      (replace-regexp-in-string
+                       abbreviated-home-dir "~/" filename)
+                      )
+    )
+
   (find-file filename))
 
 (defun selector/pick-file (filename)