[Openmcl-cvs-notifications] r12511 - /trunk/source/cocoa-ide/hemlock/src/defsyn.lisp

[gz at clozure.com]

Author: gz
Date: Sat Aug  1 10:47:36 2009
New Revision: 12511

Log:
Make a bunch of chars (like *diff) word constituents in Lisp mode

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

Modified: trunk/source/cocoa-ide/hemlock/src/defsyn.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/defsyn.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/defsyn.lisp Sat Aug  1 10:47:36 2009
@@ -73,6 +73,29 @@
 (shadow-attribute :word-delimiter #\' 0 "Text")
 (shadow-attribute :word-delimiter #\backspace 0 "Text")
 (shadow-attribute :word-delimiter #\_ 0 "Text")
+
+;; These aren't generally used to separate words in a Lisp symbol
+(shadow-attribute :word-delimiter #\* 0 "Lisp")
+(shadow-attribute :word-delimiter #\! 0 "Lisp")
+(shadow-attribute :word-delimiter #\$ 0 "Lisp")
+(shadow-attribute :word-delimiter #\+ 0 "Lisp")
+(shadow-attribute :word-delimiter #\% 0 "Lisp")
+(shadow-attribute :word-delimiter #\^ 0 "Lisp")
+(shadow-attribute :word-delimiter #\& 0 "Lisp")
+(shadow-attribute :word-delimiter #\? 0 "Lisp")
+(shadow-attribute :word-delimiter #\_ 0 "Lisp")
+(shadow-attribute :word-delimiter #\=3D 0 "Lisp")
+(shadow-attribute :word-delimiter #\[ 0 "Lisp")
+(shadow-attribute :word-delimiter #\] 0 "Lisp")
+(shadow-attribute :word-delimiter #\\ 0 "Lisp")
+(shadow-attribute :word-delimiter #\| 0 "Lisp")
+(shadow-attribute :word-delimiter #\{ 0 "Lisp")
+(shadow-attribute :word-delimiter #\} 0 "Lisp")
+(shadow-attribute :word-delimiter #\< 0 "Lisp")
+(shadow-attribute :word-delimiter #\> 0 "Lisp")
+(shadow-attribute :word-delimiter #\/ 0 "Lisp")
+(shadow-attribute :word-delimiter #\~ 0 "Lisp")
+
 =0C
 (defattribute "Page Delimiter"
   "This attribute is 1 for characters that separate pages, 0 otherwise.")