# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 814998222 0
# Node ID 4e1b078121adcd2d3ae13eed1c70abce72cbe493
# Parent  5a333a8e0ee10607e10871a1fb63e92a1bd44a22
(set-visited-file-name, basic-save-buffer):
Set buffer-file-number consistently with find-file-noselect.

diff -r 5a333a8e0ee1 -r 4e1b078121ad lisp/files.el
--- a/lisp/files.el	Sun Oct 29 20:22:55 1995 +0000
+++ b/lisp/files.el	Sun Oct 29 20:23:42 1995 +0000
@@ -1375,7 +1375,7 @@
 	      (setq buffer-file-name buffer-file-truename))))
     (setq buffer-file-number
 	  (if filename
-	      (nth 10 (file-attributes buffer-file-name))
+	      (nthcdr 10 (file-attributes buffer-file-name))
 	      nil)))
   ;; write-file-hooks is normally used for things like ftp-find-file
   ;; that visit things that are not local files as if they were files.
@@ -1782,7 +1782,8 @@
 		;; If a hook returned t, file is already "written".
 		;; Otherwise, write it the usual way now.
 		(setq setmodes (basic-save-buffer-1)))
-	    (setq buffer-file-number (nth 10 (file-attributes buffer-file-name)))
+	    (setq buffer-file-number
+		  (nthcdr 10 (file-attributes buffer-file-name)))
 	    (if setmodes
 		(condition-case ()
 		    (set-file-modes buffer-file-name setmodes)