* 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 (file)
--- 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.
 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 (file)
--- a/poe.el
+++ b/poe.el
@@ -75,7 +75,6 @@
    (or (fboundp 'si:require)
        (progn
         (fset 'si:require (symbol-function 'require))
    (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.
         (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))
               (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)
 
 ;; Emacs 19.29 and later: (plist-get PLIST PROP)
 ;; (defun-maybe plist-get (plist prop)