From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Jan 1994 00:43:39 +0000 (+0000)
Subject: Eliminate random error that occurs when file is missing.
X-Git-Tag: 20090517-FFI~7323
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8daf8578fb17ec818318e3f1c073ddb78bfee474;p=mit-scheme.git

Eliminate random error that occurs when file is missing.
---

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index bae17ebe1..277ebad62 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: tagutl.scm,v 1.53 1994/01/10 19:34:14 cph Exp $
+;;;	$Id: tagutl.scm,v 1.54 1994/01/14 00:43:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -343,7 +343,7 @@ command."
 				'TAGS-LOOP-MODIFIED-TICK
 				(buffer-modified-tick buffer))
 		   buffer)))))
-      (message "Scanning file " (->namestring (buffer-truename buffer)) "...")
+      (message "Scanning file " (->namestring (buffer-pathname buffer)) "...")
       (select-buffer buffer)
       (set-current-point! (buffer-start buffer))
       (set! tags-loop-current-buffer buffer))