From: shuhei <shuhei>
Date: Fri, 24 Dec 1999 22:02:48 +0000 (+0000)
Subject: (functionp): Define it before loading "localhook".
X-Git-Tag: apel-10_1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c906dc57dcc46ae0c6e165f8eeee09ee82282902;p=elisp%2Fapel.git

(functionp): Define it before loading "localhook".
---

diff --git a/ChangeLog b/ChangeLog
index ba73cf8..bbd5a15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-24  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
+
+	* poe.el (functionp): Define it before loading "localhook".
+
+
 1999-12-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* APEL: Version 10.0 released.
diff --git a/poe.el b/poe.el
index b577da1..aeb7d68 100644
--- a/poe.el
+++ b/poe.el
@@ -543,6 +543,15 @@ Elements of LIST that are not conses are ignored."
 	     (throw 'found (car list))))
       (setq list (cdr list)))))
 
+;;; Define `functionp' here because "localhook" uses it.
+
+;; Emacs 20.1/XEmacs 20.3 (but first appeared in Epoch?): (functionp OBJECT)
+(defun-maybe functionp (object)
+  "Non-nil if OBJECT is a type of object that can be called as a function."
+  (or (subrp object) (byte-code-function-p object)
+      (eq (car-safe object) 'lambda)
+      (and (symbolp object) (fboundp object))))
+
 ;;; @@ Hook manipulation functions.
 
 ;; "localhook" package is written for Emacs 19.28 and earlier.
@@ -793,13 +802,6 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
       (setq parts (cons (substring string start (match-beginning 0)) parts)
 	    start (match-end 0)))
     (nreverse (cons (substring string start) parts))))
-
-;; Emacs 20.1/XEmacs 20.3 (but first appeared in Epoch?): (functionp OBJECT)
-(defun-maybe functionp (object)
-  "Non-nil if OBJECT is a type of object that can be called as a function."
-  (or (subrp object) (byte-code-function-p object)
-      (eq (car-safe object) 'lambda)
-      (and (symbolp object) (fboundp object))))
 
 
 ;;; @ Window commands emulation. (lisp/window.el)