From: teranisi <teranisi>
Date: Wed, 22 Dec 1999 00:58:07 +0000 (+0000)
Subject: poe.el (string-to-int): Commented out an alias for `string-to-number'.
X-Git-Tag: apel-shubit-10_0~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d85ca051d7ea3ca74bb940ed3b6096f52c6f9460;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index 6e976b4..304deaf 100644
--- 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
--- 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)
 	   "\