07/01/12 13:59:13 v0sQD4xW0
>>184
(defun ed::self-insert-command (&optional (arg 1))
(interactive "*p")
(and abbrev-mode
(not (bobp))
(not (syntax-word-p *last-command-char*))
(syntax-word-p (preceding-char))
(expand-abbrev))
(if overwrite-mode
(overwrite-char *last-command-char* arg)
(insert *last-command-char* arg))
(and (interactive-p)
(not *executing-macro*)
(or (syntax-close-p *last-command-char*)
(syntax-close-tag-p *last-command-char*)
(syntax-math-p *last-command-char*))
(save-excursion
(forward-char -1)
(and (goto-matched-parenthesis)
(show-matched-parenthesis))))
(and auto-fill *auto-fill-hook
(funcall *auto-fill-hook *last-command-char*))
t)