[Openmcl-cvs-notifications] r12234 - /trunk/source/cocoa-ide/hemlock/src/filecoms.lisp

[gb at clozure.com]

Author: gb
Date: Mon Jun  8 04:17:18 2009
New Revision: 12234

Log:
Use ALLOWING-BUFFER-DISPLAY in "Find File"; may need to use it elsewhere,to=
o.

Modified:
    trunk/source/cocoa-ide/hemlock/src/filecoms.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/filecoms.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/hemlock/src/filecoms.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/filecoms.lisp Mon Jun  8 04:17:18 20=
09
@@ -363,7 +363,8 @@
    otherwise make a new buffer with the same name as the file and
    read the file into it."
   (declare (ignore p))
-  (hi::open-document))
+  (hi::allowing-buffer-display ((current-buffer))
+    (hi::open-document)))
   =

 =

 #|