Mercurial > emacs

comparison src/casefiddle.c @ 484:3165b2697c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Jim Blandy <jimb@redhat.com>
date Mon, 13 Jan 1992 21:48:03 +0000
parents 49342840ba00
children 4f138b03e5ab
comparison
equal deleted inserted replaced
483:00f564a647fa 484:3165b2697c78
259 } 259 }
260 260
261 keys_of_casefiddle () 261 keys_of_casefiddle ()
262 { 262 {
263 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); 263 initial_define_key (control_x_map, Ctl('U'), "upcase-region");
264 Fput (intern ("upcase-region"), Qdisabled, Qt);
264 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); 265 initial_define_key (control_x_map, Ctl('L'), "downcase-region");
266 Fput (intern ("downcase-region"), Qdisabled, Qt);
267
265 initial_define_key (meta_map, 'u', "upcase-word"); 268 initial_define_key (meta_map, 'u', "upcase-word");
266 initial_define_key (meta_map, 'l', "downcase-word"); 269 initial_define_key (meta_map, 'l', "downcase-word");
267 initial_define_key (meta_map, 'c', "capitalize-word"); 270 initial_define_key (meta_map, 'c', "capitalize-word");
268 } 271 }