(Fexpt): Undo previous change.

diff --git a/src/ChangeLog b/src/ChangeLog
index a44fc3aaa480af6820f22d0f09ee15efe0eb5c16..e9ade1c6dfd976ea37fc8c5e42dec14f93e3621c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2005-08-07  Richard M. Stallman  <rms@gnu.org>
 
+       * floatfns.c (Fexpt): Undo previous change.
+
        * dispnew.c (Fframe_or_buffer_changed_p): Take an arg
        so it can be used with various state vectors.
 

diff --git a/src/floatfns.c b/src/floatfns.c
index 79574e0a69bfffdba70f552099811bfaef4092f8..57bece2708b95065907834cc16506575ee0a3e11 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -461,8 +461,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
   CHECK_NUMBER_OR_FLOAT (arg1);
   CHECK_NUMBER_OR_FLOAT (arg2);
   if (INTEGERP (arg1)     /* common lisp spec */
-      && INTEGERP (arg2)   /* don't promote, if both are ints, and */
-      && 0 <= XINT (arg2)) /* we are sure the result is not fractional */
+      && INTEGERP (arg2))   /* don't promote, if both are ints */
     {                          /* this can be improved by pre-calculating */
       EMACS_INT acc, x, y;     /* some binary powers of x then accumulating */
       Lisp_Object val;