poe.el (string-to-int): Commented out an alias for `string-to-number'.

diff --git a/ChangeLog b/ChangeLog
index 6e976b4..304deaf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * poe.el (string-to-int): Commented out an alias for
+       `string-to-number'.
+
 1999-12-13  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * poe-18.el: Fix open parenthesis.

diff --git a/poe.el b/poe.el
index d7602eb..9562751 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -213,7 +213,9 @@ See `read-from-minibuffer' for details of HISTORY argument."
         (if (fboundp 'string-to-number)
             (fset 'si:string-to-number (symbol-function 'string-to-number))
           (fset 'si:string-to-number (symbol-function 'string-to-int))
-          (defalias 'string-to-int 'string-to-number))
+          ;; XXX: In v18, this causes infinite loop while bytecompiling.
+          ;; (defalias 'string-to-int 'string-to-number)
+          )
         (put 'string-to-number 'defun-maybe t)
         (defun string-to-number (string &optional base)
           "\