X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/9ac6d28ab8c29547d9f9365dc8f7cea13c32ef7a..HEAD:/src/cmds.c diff --git a/src/cmds.c b/src/cmds.c index 2023463877..3755ac315b 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -448,11 +448,11 @@ internal_self_insert (int c, EMACS_INT n) and the hook has a non-nil `no-self-insert' property, return right away--don't really self-insert. */ if (SYMBOLP (sym) && ! NILP (sym) - && ! NILP (XSYMBOL (sym)->function) - && SYMBOLP (XSYMBOL (sym)->function)) + && ! NILP (SYMBOL_FUNCTION (sym)) + && SYMBOLP (SYMBOL_FUNCTION (sym))) { Lisp_Object prop; - prop = Fget (XSYMBOL (sym)->function, intern ("no-self-insert")); + prop = Fget (SYMBOL_FUNCTION (sym), intern ("no-self-insert")); if (! NILP (prop)) return 1; } @@ -522,6 +522,8 @@ internal_self_insert (int c, EMACS_INT n) void syms_of_cmds (void) { +#include "cmds.x" + DEFSYM (Qkill_backward_chars, "kill-backward-chars"); DEFSYM (Qkill_forward_chars, "kill-forward-chars"); DEFSYM (Qoverwrite_mode_binary, "overwrite-mode-binary"); @@ -532,16 +534,6 @@ syms_of_cmds (void) doc: /* Hook run at the end of `self-insert-command'. This is run after inserting the character. */); Vpost_self_insert_hook = Qnil; - - defsubr (&Sforward_point); - defsubr (&Sforward_char); - defsubr (&Sbackward_char); - defsubr (&Sforward_line); - defsubr (&Sbeginning_of_line); - defsubr (&Send_of_line); - - defsubr (&Sdelete_char); - defsubr (&Sself_insert_command); } void