Cross Reference: /xsrc/external/mit/xedit/dist/lisp/modules/syntax.lsp

Lines Matching defs:default
40     *prop-default* *prop-keyword* *prop-number* *prop-string*
77 o Add command to change current default property without initializing a new
123 ;;  Initialize some default properties that may be shared in syntax
124 ;; highlight definitions. Use of these default properties is encouraged,
127 (defsynprop *prop-default*
128     "default"
231     property		;; NIL for default, or a synprop structure.
236 			;;		     (or default one) to matched
306     property		;; NIL or a default synprop structure.
327 (defun syntable (label default-property indent &rest definitions)
335 	    (null default-property)
336 	    (synprop-p default-property)
339 	    default-property
367 	:property	default-property
576 	    ;; Remove explicitly set to "default" properties.
599     ;;  Provide a default property if none specified.
602 	    "default"
607 	(setq properties (append (list *prop-default*) properties))
655     ;;  Don't need to add a entity for default properties
659 	    (string= (synprop-name (syntoken-property item)) "default")
666 	    (string= (synprop-name (syntable-property item)) "default")
748 	;;  The current syntable's default property.
749 	(default-property (syntable-property syntax-table))
1057 	    (when default-property
1062 			(not (eq (cddar result) default-property)))
1066 			    (cons start (cons length default-property))
1173 	(when (and default-property (> left start))
1183 		    (not (eq (cddar result) default-property)))
1187 			(cons start (cons left default-property))
1197 	;; current default property be used.
1207 			default-property
1319 		default-property    (syntable-property syntax-table)
1330 		    (setq newline-property default-property)
1344 			    default-property
1390 		;; default property, include the newline in the property,