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

diff --git a/ChangeLog b/ChangeLog
index 41fd887..da89bb8 100644 (file)
--- 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 (file)
--- 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)