From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Jul 1994 22:36:54 +0000 (+0000)
Subject: (set-visited-file-name): Avoid crash if TRUENAME is nil.
X-Git-Tag: emacs-19.34~7702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4826e97fbca76188adbd4b31004242ca1bfeaab4;p=emacs.git

(set-visited-file-name): Avoid crash if TRUENAME is nil.
---

diff --git a/lisp/files.el b/lisp/files.el
index 5cf294ab54c..6861e2a83a8 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1232,7 +1232,8 @@ if you wish to pass an empty string as the argument."
 	      (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))