]> code.delx.au - gnu-emacs/blobdiff - src/casefiddle.c
(DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
[gnu-emacs] / src / casefiddle.c
index 76a24f48a82e684ee26788231a411bfa12bb51f5..0e9e1ba2c34b74a003023fb1af0076f79b643160 100644 (file)
@@ -1,12 +1,12 @@
 /* GNU Emacs case conversion functions.
    Copyright (C) 1985, 1994, 1997, 1998, 1999, 2001, 2002, 2003, 2004,
-                 2005, 2006 Free Software Foundation, Inc.
+                 2005, 2006, 2007 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
 GNU Emacs is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2, or (at your option)
+the Free Software Foundation; either version 3, or (at your option)
 any later version.
 
 GNU Emacs is distributed in the hope that it will be useful,
@@ -111,7 +111,7 @@ casify_object (flag, obj)
       return obj;
     }
 
-  return wrong_type_argument (Qchar_or_string_p, obj);
+  wrong_type_argument (Qchar_or_string_p, obj);
 }
 
 DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,
@@ -187,7 +187,7 @@ casify_region (flag, b, e)
   validate_region (&b, &e);
   start = XFASTINT (b);
   end = XFASTINT (e);
-  modify_region (current_buffer, start, end);
+  modify_region (current_buffer, start, end, 0);
   record_change (start, end - start);
   start_byte = CHAR_TO_BYTE (start);
   end_byte = CHAR_TO_BYTE (end);