Mercurial > emacs

diff lisp/files.el @ 8151:2ac4479dd0ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-visited-file-name): Avoid crash if TRUENAME is nil.
author Richard M. Stallman <rms@gnu.org>
date Tue, 05 Jul 1994 22:36:54 +0000
parents 0035bfc4bc9d
children 14766204c0fe
line wrap: on
line diff
--- 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))