Don't ignore pathname-version when generating buffer name. Ignoring

it is confusing on unix filenames.  Perhaps this should be made
operating-system specific.

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 46e55743d9ec0ed67a7e1aa180bcc54d31b9ad0a..ec3532c3d2115f20fc8c040c11eb9c35e2522d36 100644 (file)
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.159 1991/09/18 22:47:40 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.160 1991/10/11 03:31:24 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -446,18 +446,15 @@ Leaves point at the beginning, mark at the end."
        (push-current-mark! mark)))))
 \f
 (define (pathname->buffer-name pathname)
-  (let ((name (pathname-name pathname)))
-    (if name
-       (pathname->string
-        (make-pathname false false false
-                       name (pathname-type pathname) false))
-       (let ((name
-              (let ((directory (pathname-directory pathname)))
-                (and (pair? directory)
-                     (car (last-pair directory))))))
-         (if (string? name)
-             name
-             (pathname->string pathname))))))
+  (if (pathname-name pathname)
+      (pathname-name-string pathname)
+      (let ((name
+            (let ((directory (pathname-directory pathname)))
+              (and (pair? directory)
+                   (car (last-pair directory))))))
+       (if (string? name)
+           name
+           (pathname->string pathname)))))
 
 (define (pathname->buffer pathname)
   (or (list-search-positive (buffer-list)