From: shuhei <shuhei>
Date: Mon, 6 Dec 1999 06:16:51 +0000 (+0000)
Subject: (subr-fboundp): Reverted; but considered as obsolete.
X-Git-Tag: apel-shubit-10_0~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=092b3e9e7ac34347db8fd4ba84ef00edb5879f84;p=elisp%2Fapel.git

(subr-fboundp): Reverted; but considered as obsolete.
---

diff --git a/ChangeLog b/ChangeLog
index 41fd887..da89bb8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-06  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
+
+	* pym.el (subr-fboundp): Reverted; but considered as obsolete.
+
 1999-12-05  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
 	* poe-18.el (numberp): New function; alias for `integerp'.
diff --git a/pym.el b/pym.el
index ab93af1..3b1cfea 100644
--- a/pym.el
+++ b/pym.el
@@ -260,6 +260,15 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 ;; (def-edebug-spec static-cond ...)
 
 
+;;; for backward compatibility.
+
+(defun subr-fboundp (symbol)
+  "Return t if SYMBOL's function definition is a built-in function."
+  (and (fboundp symbol)
+       (subrp (symbol-function symbol))))
+;; (make-obsolete 'subr-fboundp "don't use it.")
+
+
 ;;; End.
 
 (provide 'pym)