Re: jde indent bug
"Stephen J. Turnbull" <stephen(a)xemacs.org> wrote:
Yup. It initializes the default. I'll change the documentation
for
map-char-table to reflect this for now. I think this is probably
appropriate behavior, but we can discuss it.
Try this patch (tested on merging standard-syntax-table into an empty
syntax table, but not in context):
I tried it, but it complains that get-char-table only takes 2 arguments.
I wasn't sure what you intended, so I tried removing the 'multi
argument. But now I when I do "C-h f get-char-table", I get this:
Signaling: (wrong-type-argument characterp katakana-jisx0201)
get-char-table(katakana-jisx0201 #s(char-table type syntax data
(Actual data removed, both due to length and due to the number of
international characters it contains.)
derived-mode-set-syntax-table(help-mode)
help-mode()
with-displaying-help-buffer(#<compiled-function nil "...(10)"
[standard-output function describe-function-1 buffer-string nil] 4> "function
`get-char-table'")
ad-Orig-describe-function(get-char-table)
(setq ad-return-value (ad-Orig-describe-function function))
(if (generic-p function) (eieio-describe-generic function) (setq ad-return-value
(ad-Orig-describe-function function)))
(let (ad-return-value) (if (generic-p function) (eieio-describe-generic function) (setq
ad-return-value ...)) ad-return-value)
(lambda (function) "$ad-doc: describe-function$" (interactive (let* ... ...))
(let (ad-return-value) (if ... ... ...) ad-return-value))(get-char-table)
call-interactively(describe-function)
(dispatch-event "[internal]")
--
Jerry James
http://www.ittc.ku.edu/~james/