From c906dc57dcc46ae0c6e165f8eeee09ee82282902 Mon Sep 17 00:00:00 2001 From: shuhei Date: Fri, 24 Dec 1999 22:02:48 +0000 Subject: [PATCH] (functionp): Define it before loading "localhook". --- ChangeLog | 5 +++++ poe.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index ba73cf8..bbd5a15 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-12-24 Shuhei KOBAYASHI + + * poe.el (functionp): Define it before loading "localhook". + + 1999-12-24 Yuuichi Teranishi * 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) -- 1.7.10.4