aboutsummaryrefslogtreecommitdiffstats
path: root/src/cmds.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/cmds.c')
-rw-r--r--src/cmds.c13
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
34static Lisp_Object Qkill_forward_chars, Qkill_backward_chars;
35
36/* A possible value for a buffer's overwrite-mode variable. */
37static Lisp_Object Qoverwrite_mode_binary;
38
39static int internal_self_insert (int, EMACS_INT); 34static int internal_self_insert (int, EMACS_INT);
40 35
41DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, 36DEFUN ("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
325static Lisp_Object Qexpand_abbrev;
326static Lisp_Object Qpost_self_insert_hook;
327
328static int 320static int
329internal_self_insert (int c, EMACS_INT n) 321internal_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