Changeset 815

Timestamp:

May 7, 2004, 9:56:35 AM (21 years ago)

Author:

Gary Byers

Message:

Fix duplicate HI::SAVE-HEMLOCK-DOCUMENT. Don't parse buffer unless we're
looking at a paren when trying to determine blink location.

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (3 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -598 +598 @@
              (point (hi::buffer-point buffer)))
         #+debug (#_NSLog #@"Syntax check for blinking")
-        (hemlock::pre-command-parse-check point)
-        (when (hemlock::valid-spot point nil)
-          (cond ((eql (hi::next-character point) #\()
+        (cond ((eql (hi::next-character point) #\()
+               (hemlock::pre-command-parse-check point)
+               (when (hemlock::valid-spot point nil)
                  (hi::with-mark ((temp point))
                    (when (hemlock::list-offset temp 1)
@@ -606 +606 @@
                      (setf (text-view-blink-location self)
                            (1- (mark-absolute-position temp))
-                           (text-view-blink-enabled self) #$YES))))
-                ((eql (hi::previous-character point) #\))
+                           (text-view-blink-enabled self) #$YES)))))
+              ((eql (hi::previous-character point) #\))
+               (hemlock::pre-command-parse-check point)
+               (when (hemlock::valid-spot point nil)
                  (hi::with-mark ((temp point))
                    (when (hemlock::list-offset temp -1)
@@ -1836 +1838 @@
 
 
-(defmethod hi::save-hemlock-document ((self hemlock-editor-document))
+(defmethod hi::save-hemlock-document-as ((self hemlock-editor-document))
   (send self
         :perform-selector-on-main-thread (@selector "saveDocumentAs:")