Re: Probable bug with dsssl-mode
On Wed, 2003-10-22 at 08:32, Stephen J. Turnbull wrote:
>>>>> "APA" == Adrian Aichner
<adrian(a)xemacs.org> writes:
APA> Signaling: (error "Range must be t or a character"
APA> put-char-table("+-*/.<>=!?$%_&~^:"
It's a GNU-ism.
Replace the put-char-table call (wherever it is) with something like
(mapc (lambda (ch) (put-char-table ch ...other args...))
"+-*/.<>=!?$%_&~^:")
I don't know where that is, but applying the hunk below into scheme.el
works but looks clumsy :) How does one apply the above to this
situation?
＠＠ -372,7 +285,12 ＠＠
(insert dsssl-sgml-declaration))
(scheme-mode-variables)
(setq font-lock-defaults '(dsssl-font-lock-keywords
- nil t (("+-*/.<>=?$%_&~^:" .
"w"))
+ nil t
+ ;; XEmacs change
+ ((?+ . "w") (?- . "w") (?* .
"w") (?/ . "w")
+ (?. . "w") (?< . "w") (?> .
"w") (?= . "w")
+ (?? . "w") (?$ . "w") (?% .
"w") (?_ . "w")
+ (?& . "w") (?~ . "w") (?^ .
"w") (?: . "w"))
beginning-of-defun
(font-lock-mark-block-function . mark-defun)))