diff options
Diffstat (limited to 'src/cmds.c')
| -rw-r--r-- | src/cmds.c | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/cmds.c b/src/cmds.c index 485a235b5ab..270fc39cabc 100644 --- a/src/cmds.c +++ b/src/cmds.c | |||
| @@ -31,11 +31,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 31 | #include "dispextern.h" | 31 | #include "dispextern.h" |
| 32 | #include "frame.h" | 32 | #include "frame.h" |
| 33 | 33 | ||
| 34 | static Lisp_Object Qkill_forward_chars, Qkill_backward_chars; | ||
| 35 | |||
| 36 | /* A possible value for a buffer's overwrite-mode variable. */ | ||
| 37 | static Lisp_Object Qoverwrite_mode_binary; | ||
| 38 | |||
| 39 | static int internal_self_insert (int, EMACS_INT); | 34 | static int internal_self_insert (int, EMACS_INT); |
| 40 | 35 | ||
| 41 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, | 36 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, |
| @@ -322,9 +317,6 @@ At the end, it runs `post-self-insert-hook'. */) | |||
| 322 | return 0. A value of 1 indicates this *might* not have been simple. | 317 | return 0. A value of 1 indicates this *might* not have been simple. |
| 323 | A value of 2 means this did things that call for an undo boundary. */ | 318 | A value of 2 means this did things that call for an undo boundary. */ |
| 324 | 319 | ||
| 325 | static Lisp_Object Qexpand_abbrev; | ||
| 326 | static Lisp_Object Qpost_self_insert_hook; | ||
| 327 | |||
| 328 | static int | 320 | static int |
| 329 | internal_self_insert (int c, EMACS_INT n) | 321 | internal_self_insert (int c, EMACS_INT n) |
| 330 | { | 322 | { |
| @@ -507,7 +499,7 @@ internal_self_insert (int c, EMACS_INT n) | |||
| 507 | } | 499 | } |
| 508 | 500 | ||
| 509 | /* Run hooks for electric keys. */ | 501 | /* Run hooks for electric keys. */ |
| 510 | Frun_hooks (1, &Qpost_self_insert_hook); | 502 | run_hook (Qpost_self_insert_hook); |
| 511 | 503 | ||
| 512 | return hairy; | 504 | return hairy; |
| 513 | } | 505 | } |
| @@ -519,7 +511,10 @@ syms_of_cmds (void) | |||
| 519 | { | 511 | { |
| 520 | DEFSYM (Qkill_backward_chars, "kill-backward-chars"); | 512 | DEFSYM (Qkill_backward_chars, "kill-backward-chars"); |
| 521 | DEFSYM (Qkill_forward_chars, "kill-forward-chars"); | 513 | DEFSYM (Qkill_forward_chars, "kill-forward-chars"); |
| 514 | |||
| 515 | /* A possible value for a buffer's overwrite-mode variable. */ | ||
| 522 | DEFSYM (Qoverwrite_mode_binary, "overwrite-mode-binary"); | 516 | DEFSYM (Qoverwrite_mode_binary, "overwrite-mode-binary"); |
| 517 | |||
| 523 | DEFSYM (Qexpand_abbrev, "expand-abbrev"); | 518 | DEFSYM (Qexpand_abbrev, "expand-abbrev"); |
| 524 | DEFSYM (Qpost_self_insert_hook, "post-self-insert-hook"); | 519 | DEFSYM (Qpost_self_insert_hook, "post-self-insert-hook"); |
| 525 | 520 | ||