From xemacs-m  Mon Jul 21 18:36:02 1997
Received: from atreides.eng.mindspring.net (atreides.eng.mindspring.net [207.69.183.11])
	by xemacs.org (8.8.5/8.8.5) with SMTP id SAA22152
	for <xemacs-beta@xemacs.org>; Mon, 21 Jul 1997 18:36:01 -0500 (CDT)
Received: (qmail 23494 invoked by uid 52477); 21 Jul 1997 23:35:35 -0000
To: xemacs-beta@xemacs.org
Subject: find-file-noselect and buffer-file-number bug.
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
From: Sudish Joseph <sj@eng.mindspring.net>
Date: 21 Jul 1997 19:35:35 -0400
Message-ID: <yviawwmkc720.fsf@atreides.eng.mindspring.net>
Lines: 32
X-Mailer: Gnus v5.4.55/XEmacs 20.3(beta14)

Caveat: I came across this while tracking vc-follow-link and haven't
seen it cause any real problem, so the patch might well be wrong.

Buffer-file-truename contains the name of the current buffer when
find-file-noselect is called.  So, `number' gets the value for the
wrong buffer.

-Sudish

*** /home/sj/src/xemacs/lisp/prim/files.el~	Mon Jul 21 19:27:10 1997
--- /home/sj/src/xemacs/lisp/prim/files.el	Mon Jul 21 19:27:10 1997
***************
*** 957,965 ****
  	(error "%s is a directory." filename))
      (let* ((buf (get-file-buffer filename))
  ;	   (truename (abbreviate-file-name (file-truename filename)))
! ;	   (number (nthcdr 10 (file-attributes truename)))
! 	   (number (and buffer-file-truename
! 			(nthcdr 10 (file-attributes buffer-file-truename))))
  ;	   ;; Find any buffer for a file which has same truename.
  ;	   (other (and (not buf) (find-buffer-visiting filename)))
             (error nil))
--- 957,965 ----
  	(error "%s is a directory." filename))
      (let* ((buf (get-file-buffer filename))
  ;	   (truename (abbreviate-file-name (file-truename filename)))
! 	   (number (nthcdr 10 (file-attributes (file-truename filename))))
! ;	   (number (and buffer-file-truename
! ;			(nthcdr 10 (file-attributes buffer-file-truename))))
  ;	   ;; Find any buffer for a file which has same truename.
  ;	   (other (and (not buf) (find-buffer-visiting filename)))
             (error nil))

