aboutsummaryrefslogtreecommitdiffstats
path: root/src/casefiddle.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/casefiddle.c')
-rw-r--r--src/casefiddle.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c
index 50ad4eeda74..80c05aabc7d 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -1,6 +1,6 @@
1/* GNU Emacs case conversion functions. 1/* GNU Emacs case conversion functions.
2 2
3Copyright (C) 1985, 1994, 1997-1999, 2001-2011 Free Software Foundation, Inc. 3Copyright (C) 1985, 1994, 1997-1999, 2001-2012 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This file is part of GNU Emacs.
6 6
@@ -223,7 +223,7 @@ casify_region (enum case_action flag, Lisp_Object b, Lisp_Object e)
223 record_change (start, end - start); 223 record_change (start, end - start);
224 start_byte = CHAR_TO_BYTE (start); 224 start_byte = CHAR_TO_BYTE (start);
225 225
226 SETUP_BUFFER_SYNTAX_TABLE(); /* For syntax_prefix_flag_p. */ 226 SETUP_BUFFER_SYNTAX_TABLE (); /* For syntax_prefix_flag_p. */
227 227
228 while (start < end) 228 while (start < end)
229 { 229 {
@@ -434,9 +434,9 @@ syms_of_casefiddle (void)
434void 434void
435keys_of_casefiddle (void) 435keys_of_casefiddle (void)
436{ 436{
437 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); 437 initial_define_key (control_x_map, Ctl ('U'), "upcase-region");
438 Fput (intern ("upcase-region"), Qdisabled, Qt); 438 Fput (intern ("upcase-region"), Qdisabled, Qt);
439 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); 439 initial_define_key (control_x_map, Ctl ('L'), "downcase-region");
440 Fput (intern ("downcase-region"), Qdisabled, Qt); 440 Fput (intern ("downcase-region"), Qdisabled, Qt);
441 441
442 initial_define_key (meta_map, 'u', "upcase-word"); 442 initial_define_key (meta_map, 'u', "upcase-word");