From 8daf8578fb17ec818318e3f1c073ddb78bfee474 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Jan 1994 00:43:39 +0000
Subject: [PATCH] Eliminate random error that occurs when file is missing.

---
 v7/src/edwin/tagutl.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))
-- 
2.25.1