(iswitchb-read-buffer): When selecting a match from

the  virtual-buffers, use the name of the buffer specified by
find-file-noselect, as the match may be a symlink.  (This was a
problem if the target and the symlink had differet names.)

2 files changed, 13 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5545992e8e2..532c89656c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-09-15  Stephen Eglen  <stephen@gnu.org>
+
+        * iswitchb.el (iswitchb-read-buffer): When selecting a match from
+        the  virtual-buffers, use the name of the buffer specified by
+        find-file-noselect, as the match may be a symlink.  (This was a
+        problem if the target and the symlink had differet names.)
+
 2009-09-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * custom.el (custom-initialize-default, custom-initialize-set): CSE.
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 802b45d23b1..8a800143bd2 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -657,9 +657,12 @@ the selection process begins.  Used by isearchb.el."
     ;; that file now and act as though that buffer had been selected.
     (if (and iswitchb-virtual-buffers
              (not (iswitchb-existing-buffer-p)))
-        (let ((virt (car iswitchb-virtual-buffers)))
-          (find-file-noselect (cdr virt))
-          (setq iswitchb-matches (list (car virt))
+        (let ((virt (car iswitchb-virtual-buffers))
+              (new-buf))
+          ;; Keep the name of the buffer returned by find-file-noselect, as 
+          ;; the buffer 'virt' could be a symlink to a file of a different name.
+          (setq new-buf (buffer-name (find-file-noselect (cdr virt))))
+          (setq iswitchb-matches (list new-buf)
                 iswitchb-virtual-buffers nil)))
 
     ;; Handling the require-match must be done in a better way.