Re: Probable bug with dsssl-mode
>>>> "Ville" == Ville Skytt <Ville>
writes:
Ville> 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...))
> "+-*/.<>=!?$%_&~^:")
Ville> I don't know where that is, but applying the hunk below into scheme.el
Ville> works but looks clumsy :) How does one apply the above to this
Ville> situation?
How about this?
(mapcar (lambda (ch) (cons ch "w"))
"+-*/.<>=!?$%_&~^:")
which leads:
((?+ . "w") (?- . "w") (?* . "w") (?/ . "w") (?\.
. "w") (?< . "w") (?> . "w") (?= . "w") (?!
. "w") (?\? . "w") (?$ . "w") (?% . "w") (?_ .
"w") (?& . "w") (?~ . "w") (?^ . "w") (?: .
"w"))
Adrian
Ville> ＠＠ -372,7 +285,12 ＠＠
Ville> (insert dsssl-sgml-declaration))
Ville> (scheme-mode-variables)
Ville> (setq font-lock-defaults '(dsssl-font-lock-keywords
Ville> - nil t (("+-*/.<>=?$%_&~^:"
. "w"))
Ville> + nil t
Ville> + ;; XEmacs change
Ville> + ((?+ . "w") (?- . "w") (?*
. "w") (?/ . "w")
Ville> + (?. . "w") (?< . "w")
(?> . "w") (?= . "w")
Ville> + (?? . "w") (?$ . "w") (?%
. "w") (?_ . "w")
Ville> + (?& . "w") (?~ . "w")
(?^ . "w") (?: . "w"))
Ville> beginning-of-defun
Ville> (font-lock-mark-block-function .
mark-defun)))
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/