[Openmcl-cvs-notifications] r12698 - /trunk/source/cocoa-ide/cocoa-editor.lisp

[palter at clozure.com]

Author: palter
Date: Wed Aug 26 21:09:04 2009
New Revision: 12698

Log:
Should save my buffers first.

Modified:
    trunk/source/cocoa-ide/cocoa-editor.lisp

Modified: trunk/source/cocoa-ide/cocoa-editor.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/cocoa-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Wed Aug 26 21:09:04 2009
@@ -2750,7 +2750,7 @@
 (objc:defmethod (#/writeToFile:ofType: :<BOOL>)
     ((self hemlock-editor-document) path type)
   (rlet ((perror :id +null-ptr+))
-    (#/writeToURL:ofType:error: (#/fileURLWithPath: ns:ns-url path) self t=
ype perror)))
+    (#/writeToURL:ofType:error: self (#/fileURLWithPath: ns:ns-url path) t=
ype perror)))
 =

 =

 ;;; Shadow the setFileURL: method, so that we can keep the buffer