From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Apr 1989 18:22:38 +0000 (+0000)
Subject: Update to reflect changes in `find-file-noselect'.
X-Git-Tag: 20090517-FFI~12192
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=23451ac92f6f2c6b78dbe7f0cca228de921706cc;p=mit-scheme.git

Update to reflect changes in `find-file-noselect'.
---

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index aad628cba..635dd719b 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.30 1989/03/15 19:14:38 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.31 1989/04/05 18:22:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -67,11 +67,7 @@ the string used in the previous Find Tag."
   (if (not (ref-variable "Tags Table Pathname"))
       (visit-tags-table-command false))
   (let ((pathname (ref-variable "Tags Table Pathname")))
-    (let ((buffer
-	   (or (pathname->buffer pathname)
-	       (let ((buffer (new-buffer (pathname->buffer-name pathname))))
-		 (read-buffer buffer pathname)
-		 buffer))))
+    (let ((buffer (find-file-noselect pathname)))
       (if (and (not (verify-visited-file-modification-time buffer))
 	       (prompt-for-yes-or-no?
 		"Tags file has changed, read new contents"))
@@ -268,7 +264,4 @@ replace with the command \\[Tags Loop Continue]."
 (define (tags-loop-continue buffer start)
   (if (not (and (buffer-alive? buffer)
 		(tags-loop-operator buffer start)))
-      (tags-loop-start (cdr tags-loop-entry))))
-
-(define find-file-noselect
-  (file-finder identity-procedure))
\ No newline at end of file
+      (tags-loop-start (cdr tags-loop-entry))))
\ No newline at end of file