fixing non-function c lines beginning with an identifier

This commit is contained in:
Alex Shinn 2011-04-06 01:36:36 +09:00
parent 1b50d709d2
commit d1f0dfe8d7

View file

@ -318,7 +318,7 @@
,(highlight-class "type" (reverse decls)) ,(highlight-class "type" (reverse decls))
,@res)) ,@res))
(else (else
`(,space ,id ,@(reverse decls) ,@res))))))))) `(,space ,id ,@decls ,@res)))))))))
(else (else
res)))) res))))
(define (highlight str res) (define (highlight str res)
@ -351,10 +351,6 @@
(highlight '() (cons (highlight-class "string" s) res)))) (highlight '() (cons (highlight-class "string" s) res))))
((#\newline) ((#\newline)
(highlight-line (collect (cons #\newline str) res))) (highlight-line (collect (cons #\newline str) res)))
;; ((#\<)
;; (highlight (append '(#\; #\t #\l #\&) str) res))
;; ((#\&)
;; (highlight (append '(#\; #\p #\m #\a #\&) str) res))
(else (else
(cond (cond
((char-c-initial? c) ((char-c-initial? c)