# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 994165375 0
# Node ID 910cd30b158678765af754ffca5ee83892646d96
# Parent  8cefa08ce19c63b7e3ed5fd6289ee9f723a37a9b
(ff-find-the-other-file): Use file-name-nondirectory
instead of string-match to find the basename of the file.  From
Pascal Obry <p.obry@wanadoo.fr>.

diff -r 8cefa08ce19c -r 910cd30b1586 lisp/find-file.el
--- a/lisp/find-file.el	Tue Jul 03 12:41:58 2001 +0000
+++ b/lisp/find-file.el	Tue Jul 03 13:02:55 2001 +0000
@@ -422,8 +422,7 @@
                          (buffer-file-name)
                        "/none.none"))
 
-      (string-match ".*/\\(.+\\)$" pathname)
-      (setq fname (substring pathname (match-beginning 1) (match-end 1))
+      (setq fname (file-name-nondirectory pathname)
             no-match nil
             match (car alist))