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

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index aad628cba14d000674b44204d2e1d0178fe06a99..635dd719b04628b5756aed051169a83b11785535 100644 (file)
--- 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