From: morioka <morioka>
Date: Thu, 17 Sep 1998 06:32:49 +0000 (+0000)
Subject: Move function `functionp' from emu.el to poe.el.
X-Git-Tag: poe-199811302358~53
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e425c945a887ae5024dacf23fb8d2a353a53db63;p=elisp%2Fapel.git

Move function `functionp' from emu.el to poe.el.
---

diff --git a/emu.el b/emu.el
index 86afc98..2dbb37b 100644
--- a/emu.el
+++ b/emu.el
@@ -145,15 +145,6 @@ If STRING is multibyte, the result is STRING itself.
 ;;; @ XEmacs emulation
 ;;;
 
-(defun-maybe functionp (obj)
-  "Returns t if OBJ is a function, nil otherwise.
-\[XEmacs emulating function]"
-  (or (subrp obj)
-      (byte-code-function-p obj)
-      (and (symbolp obj)(fboundp obj))
-      (and (consp obj)(eq (car obj) 'lambda))
-      ))
-
 (defun-maybe point-at-eol (&optional arg buffer)
   "Return the character position of the last character on the current line.
 With argument N not nil or 1, move forward N - 1 lines first.
diff --git a/poe.el b/poe.el
index 71b8f82..2c7ca0d 100644
--- a/poe.el
+++ b/poe.el
@@ -306,6 +306,19 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
     (nreverse (cons (substring string start) parts))))
 
 
+;;; @ XEmacs emulation
+;;;
+
+(defun-maybe functionp (obj)
+  "Returns t if OBJ is a function, nil otherwise.
+\[XEmacs emulating function]"
+  (or (subrp obj)
+      (byte-code-function-p obj)
+      (and (symbolp obj)(fboundp obj))
+      (and (consp obj)(eq (car obj) 'lambda))
+      ))
+
+
 ;;; @ end
 ;;;