From 1bdf227087a80e107a3ebc19b57e2d853d655d8b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 10 Oct 2000 13:22:40 +0000 Subject: [PATCH] * poe.el (require): Update `current-load-list'. ;; Patch from KOBAYASHI-san . --- ChangeLog | 4 ++++ poe.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index fc74706..4604dba 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-10-06 Shuhei KOBAYASHI + + * poe.el (require): Update `current-load-list'. + 2000-10-10 Keiichi Suzuki * 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) -- 1.7.10.4