From: Taylor R. Campbell Date: Thu, 28 Aug 2008 15:26:51 +0000 (+0000) Subject: When reading Info files into buffers, don't visit the files. This X-Git-Tag: 20090517-FFI~209 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=68f30b35d69860bcb5d0cab4127e32156670dcc5;p=mit-scheme.git When reading Info files into buffers, don't visit the files. This prevents Edwin from trying to write over the Info files if something goes wrong and the editor tries to save the file. --- diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm index b1eebc5a1..863cf5661 100644 --- a/v7/src/edwin/info.scm +++ b/v7/src/edwin/info.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: info.scm,v 1.144 2008/01/30 20:02:02 cph Exp $ +$Id: info.scm,v 1.145 2008/08/28 15:26:51 riastradh Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -768,7 +768,7 @@ The name may be an abbreviation of the reference name." (not (equal? pathname (ref-variable info-current-file buffer)))) (begin - (read-buffer buffer pathname #t) + (read-buffer buffer pathname #f) (initialize-info-buffer buffer pathname)) (begin (if (not (eq? (buffer-major-mode buffer) @@ -805,7 +805,7 @@ The name may be an abbreviation of the reference name." (let ((pathnames (find-dir-node-files buffer))) (if (null? pathnames) (editor-error "Can't find the Info directory node.")) - (read-buffer buffer (car pathnames) #t) + (read-buffer buffer (car pathnames) #f) (set-variable! info-tag-table-start #f) (set-variable! info-tag-table-end #f) (let ((submenus (append-map find-dir-node-menus (cdr pathnames)))) @@ -1225,7 +1225,7 @@ The name may be an abbreviation of the reference name." (define (set-current-subfile! pathname) (if (not (equal? pathname (ref-variable info-current-subfile))) (begin - (read-buffer (current-buffer) pathname true) + (read-buffer (current-buffer) pathname #f) (set-variable! info-current-subfile pathname)))) (define-integrable subfile-filename car)