From: yamaoka <yamaoka>
Date: Tue, 10 Oct 2000 13:22:40 +0000 (+0000)
Subject: * poe.el (require): Update `current-load-list'.
X-Git-Tag: apel-10_3~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1bdf227087a80e107a3ebc19b57e2d853d655d8b;p=elisp%2Fapel.git

* poe.el (require): Update `current-load-list'.
;; Patch from KOBAYASHI-san <shuhei@aqua.ocn.ne.jp>.
---

diff --git a/ChangeLog b/ChangeLog
index fc74706..4604dba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-06  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
+
+	* poe.el (require): Update `current-load-list'.
+
 2000-10-10  Keiichi Suzuki  <keiichi@mdcnet.co.jp>
 
 	* product.el (product-version-as-string): New function.
diff --git a/poe.el b/poe.el
index c324dde..e118c91 100644
--- a/poe.el
+++ b/poe.el
@@ -75,7 +75,6 @@
    (or (fboundp 'si:require)
        (progn
 	 (fset 'si:require (symbol-function 'require))
-	 (put 'require 'defun-maybe t)
 	 (defun require (feature &optional filename noerror)
 	   "\
 If feature FEATURE is not loaded, load it from FILENAME.
@@ -90,7 +89,10 @@ Normally the return value is FEATURE."
 	       (condition-case nil
 		   (si:require feature filename)
 		 (file-error))
-	     (si:require feature filename)))))))
+	     (si:require feature filename)))
+	 ;; for `load-history'.
+	 (setq current-load-list (cons 'require current-load-list))
+	 (put 'require 'defun-maybe t)))))
 
 ;; Emacs 19.29 and later: (plist-get PLIST PROP)
 ;; (defun-maybe plist-get (plist prop)