Changeset 14997


Ignore:
Timestamp:
Sep 23, 2011, 1:06:52 PM (8 years ago)
Author:
gfoy
Message:

Don't set generic-text in style-screen.

File:
1 edited

Legend:

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

    r14988 r14997  
    172172
    173173(defun style-screen (text-view &optional generic-start generic-end)
    174   ;; (declare (ignore generic-start generic-end))
    175   ;; (break)
     174  (declare (ignore generic-start generic-end))
    176175  (when *styling-p*
    177176    #+sax-debug (when *style-screen-debug*
     
    236235          (hemlock::parse-over-block (hemlock-internals::mark-line start-mark)
    237236                                     (hemlock-internals::mark-line end-mark))
    238           (if (and generic-start generic-end)
    239             (set-generic-text-style text-view generic-start generic-end)
    240             (set-generic-text-style text-view start-mark end-mark))
     237          ;; (if (and generic-start generic-end)
     238            ;; (set-generic-text-style text-view generic-start generic-end)
     239            ;; (set-generic-text-style text-view start-mark end-mark))
    241240          (style-comments start-mark comment-end-mark sharp-comments)
    242241          (style-forms window :start start-mark :end end-mark :caps-p nil :toplevel-p t))))))
Note: See TracChangeset for help on using the changeset viewer.