Mercurial > emacs

comparison src/keymap.c @ 8464:edbb014c600a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fuse_global_map, Fuse_local_map): Call record_asynch_buffer_change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Aug 1994 03:48:16 +0000
parents b4138573c00f
children c285c3b0ea54
comparison
equal deleted inserted replaced
8463:e0f2f3fc75fa 8464:edbb014c600a
1098 (keymap) 1098 (keymap)
1099 Lisp_Object keymap; 1099 Lisp_Object keymap;
1100 { 1100 {
1101 keymap = get_keymap (keymap); 1101 keymap = get_keymap (keymap);
1102 current_global_map = keymap; 1102 current_global_map = keymap;
1103 record_asynch_buffer_change ();
1104
1103 return Qnil; 1105 return Qnil;
1104 } 1106 }
1105 1107
1106 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0, 1108 DEFUN ("use-local-map", Fuse_local_map, Suse_local_map, 1, 1, 0,
1107 "Select KEYMAP as the local keymap.\n\ 1109 "Select KEYMAP as the local keymap.\n\
1111 { 1113 {
1112 if (!NILP (keymap)) 1114 if (!NILP (keymap))
1113 keymap = get_keymap (keymap); 1115 keymap = get_keymap (keymap);
1114 1116
1115 current_buffer->keymap = keymap; 1117 current_buffer->keymap = keymap;
1118 record_asynch_buffer_change ();
1116 1119
1117 return Qnil; 1120 return Qnil;
1118 } 1121 }
1119 1122
1120 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0, 1123 DEFUN ("current-local-map", Fcurrent_local_map, Scurrent_local_map, 0, 0, 0,