Mercurial > emacs
diff lisp/find-file.el @ 38273:910cd30b1586
(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>.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 03 Jul 2001 13:02:55 +0000 |
parents | e06965792db4 |
children | e12d545c9a48 |
line wrap: on
line diff
--- 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))