Changeset 15603


Ignore:
Timestamp:
Jan 23, 2013, 9:14:37 PM (6 years ago)
Author:
gfoy
Message:

handle-hemlock-event :around mod for 1.9 trunk

Location:
trunk/cocoa-ide-contrib/foy/syntax-styling
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/cocoa-ide-contrib/foy/syntax-styling/syntax-styling-comments.lisp

    r14988 r15603  
    1313;;;      Mod history, most recent first:
    1414;;;
    15 ;;;      9/17/11   sharpe-underscore in get-combined-segment-list.
     15;;;      9/17/11   sharp-underscore in get-combined-segment-list.
    1616;;;      9/7/11    update for ccl 1.7
    1717;;;      7/17/11   style-semi-colon-comments beginning of buffer bug.
  • trunk/cocoa-ide-contrib/foy/syntax-styling/syntax-styling-engine.lisp

    r14997 r15603  
    1212;;;      Mod history, most recent first:
    1313;;;
     14;;;      1/23/13   handle-hemlock-event :around mod for 1.9 trunk.
    1415;;;      9/17/11   dummy set-file-type for ns:ns-window, set background-color
    1516;;;                in vanilla-syle-buffer and style-window.
     
    10341035                (not (hi::buffer-minor-mode *buf* "I-Search")))
    10351036           (let ((char (code-char keysym-code)))
    1036            #+sax-debug (when *handle-hemlock-event-debug*
    1037                         (debug-out "~%~%~S" 'handle-hemlock-event)
    1038                         (debug-out "~%char: ~S" char))
     1037             #+sax-debug (when *handle-hemlock-event-debug*
     1038                           (debug-out "~%~%~S" 'handle-hemlock-event)
     1039                           (debug-out "~%char: ~S" char))
    10391040             (when (key-event= event %control-y%)
    10401041               #+sax-debug (when *handle-hemlock-event-debug*
    1041                             (debug-out "~%*paste-start*: ~S" (clone (buffer-point *buf*))))
     1042                             (debug-out "~%*paste-start*: ~S" (clone (buffer-point *buf*))))
    10421043               (setq *paste-p* t)
    10431044               (setq *paste-start* (clone (buffer-point *buf*))))
     
    10621063                      restyle-comment-p)
    10631064                 #+sax-debug (when *handle-hemlock-event-debug*
    1064                               (debug-out "~%point: ~S" point)
    1065                               (debug-out "~%point-char: ~S" point-char)
    1066                               (debug-out "~%char-1: ~S" char-1))
     1065                               (debug-out "~%point: ~S" point)
     1066                               (debug-out "~%point-char: ~S" point-char)
     1067                               (debug-out "~%char-1: ~S" char-1))
    10671068                 (cond ((and (key-event= event %backspace%) ; backspace & delete
    10681069                             char-1
     
    10731074                             (key-event= event %control-d%)) ; control-d                             
    10741075                        (setf restyle-comment-p t)))
    1075 
     1076                 
    10761077                 ;; insert the char:
    10771078                 #+sax-debug (when *handle-hemlock-event-debug*
    1078                                 (debug-out "~%~%inserting char: ~S" char))
     1079                               (debug-out "~%~%inserting char: ~S" char))
     1080                 ;; addition for 1.9 trunk:
     1081                 (gui::with-view-selection-info ((gui::text-pane-text-view (hi::hemlock-view-pane view))
     1082                                                 (hi::hemlock-view-buffer view))
     1083                   (ccl::with-autorelease-pool
     1084                       (call-next-method view event))
     1085                   #+sax-debug (when *handle-hemlock-event-debug*
     1086                                 (debug-out "~%~%char inserted"))
     1087                   
     1088                   (cond (restyle-comment-p
     1089                          (restyle-comment view))
     1090                         (t
     1091                          (dynamically-style-buffer view)))))
     1092               ;; addition for 1.9 trunk:
     1093               (gui::with-view-selection-info ((gui::text-pane-text-view (hi::hemlock-view-pane view))
     1094                                               (hi::hemlock-view-buffer view))
    10791095                 (ccl::with-autorelease-pool
    1080                      (call-next-method view event))
    1081                  #+sax-debug (when *handle-hemlock-event-debug*
    1082                                 (debug-out "~%~%char inserted"))
    1083 
    1084                  (cond (restyle-comment-p
    1085                         (restyle-comment view))
    1086                        (t
    1087                         (dynamically-style-buffer view))))
    1088                (ccl::with-autorelease-pool
    1089                  #+sax-debug (when *handle-hemlock-event-debug*
    1090                               (debug-out "~%~%not styled -- calling next method."))
    1091                  (call-next-method view event)
     1096                     #+sax-debug (when *handle-hemlock-event-debug*
     1097                                   (debug-out "~%~%not styled -- calling next method."))
     1098                   (call-next-method view event))
    10921099                 (cond ((key-event= event %control-y%)
    10931100                        #+sax-debug (when *handle-hemlock-event-debug*
    10941101                                      (debug-out "~%setting *paste-end*: ~S" (clone (buffer-point *buf*))))
    10951102                        (setq *paste-end* (clone (buffer-point *buf*)))))))))
    1096                        ; (yank-after view *paste-start* *paste-end*)))))))
    1097                        ; ((key-event= event %control-meta-q%)
    1098                         ; (indentation-after view)))))))
     1103          ; (yank-after view *paste-start* *paste-end*)))))))
     1104          ; ((key-event= event %control-meta-q%)
     1105          ; (indentation-after view)))))))
    10991106          (t
    11001107           (when (and (compiled-function-p event) *styling-p*
     
    11021109                                  'gui::hemlock-listener-frame)))
    11031110             (set-file-type (#/window (hi::hemlock-view-pane view))))
    1104            (ccl::with-autorelease-pool
    1105                (call-next-method view event))))))
     1111           ;; addition for 1.9 trunk:
     1112           (gui::with-view-selection-info ((gui::text-pane-text-view (hi::hemlock-view-pane view))
     1113                                           (hi::hemlock-view-buffer view))           
     1114             (ccl::with-autorelease-pool
     1115                 (call-next-method view event)))))))
    11061116
    11071117;;; *** redefinition ***
Note: See TracChangeset for help on using the changeset viewer.