# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773447814 0
# Node ID 2ac4479dd0ff090221d8f885bbbb273327ea91d4
# Parent  1b4a4f7a6dcb3f3a05007c57880096638f599c7e
(set-visited-file-name): Avoid crash if TRUENAME is nil.

diff -r 1b4a4f7a6dcb -r 2ac4479dd0ff lisp/files.el
--- a/lisp/files.el	Tue Jul 05 21:02:48 1994 +0000
+++ b/lisp/files.el	Tue Jul 05 22:36:54 1994 +0000
@@ -1232,7 +1232,8 @@
 	      (rename-buffer new-name t))))
     (setq buffer-backed-up nil)
     (clear-visited-file-modtime)
-    (setq buffer-file-truename (abbreviate-file-name truename))
+    (if truename
+	(setq buffer-file-truename (abbreviate-file-name truename)))
     (setq buffer-file-number
 	  (if filename
 	      (nth 10 (file-attributes buffer-file-name))