Mercurial > emacs

changeset 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 1b4a4f7a6dcb
children eecf5ae5a194
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
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))