From xemacs-m  Thu Feb 27 10:45:43 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id KAA06788
	for <xemacs-beta@xemacs.org>; Thu, 27 Feb 1997 10:45:42 -0600 (CST)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id RAA11870; Thu, 27 Feb 1997 17:35:18 +0100
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id RAA16695; Thu, 27 Feb 1997 17:44:04 +0100
Sender: abraham@dina.kvl.dk
To: xemacs-beta@xemacs.org
Subject: Re: Several minor bugs.
References: <kig914axpbk.fsf@jagor.srce.hr>
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 27 Feb 1997 17:44:03 +0100
In-Reply-To: Hrvoje Niksic's message of 27 Feb 1997 16:04:47 +0100
Message-ID: <rjlo8adwrw.fsf@zuse.dina.kvl.dk>
Lines: 77
X-Mailer: Gnus v5.4.14/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit


Hrvoje Niksic <hniksic@srce.hr> writes:

> eval-after-load<f>

This one is easy:

Thu Feb 27 17:41:57 1997  Per Abrahamsen  <abraham@dina.kvl.dk>

	* subr.el (eval-after-load): Enable.
	(eval-next-after-load): Ditto.

*** prim/subr.el~	Sat Jan  4 22:20:06 1997
--- prim/subr.el	Thu Feb 27 17:35:17 1997
***************
*** 541,570 ****
  
  ;;;; Specifying things to do after certain files are loaded.
  
! ;(defun eval-after-load (file form)
! ;  "Arrange that, if FILE is ever loaded, FORM will be run at that time.
! ;This makes or adds to an entry on `after-load-alist'.
! ;If FILE is already loaded, evaluate FORM right now.
! ;It does nothing if FORM is already on the list for FILE.
! ;FILE should be the name of a library, with no directory name."
! ;  ;; Make sure there is an element for FILE.
! ;  (or (assoc file after-load-alist)
! ;      (setq after-load-alist (cons (list file) after-load-alist)))
! ;  ;; Add FORM to the element if it isn't there.
! ;  (let ((elt (assoc file after-load-alist)))
! ;    (or (member form (cdr elt))
! ;	(progn
! ;	  (nconc elt (list form))
! ;	  ;; If the file has been loaded already, run FORM right away.
! ;	  (and (assoc file load-history)
! ;	       (eval form)))))
! ;  form)
! ;
! ;(defun eval-next-after-load (file)
! ;  "Read the following input sexp, and run it whenever FILE is loaded.
! ;This makes or adds to an entry on `after-load-alist'.
! ;FILE should be the name of a library, with no directory name."
! ;  (eval-after-load file (read)))
  
  ; alternate names (not obsolete)
  (if (not (fboundp 'mod)) (define-function 'mod '%))
--- 541,570 ----
  
  ;;;; Specifying things to do after certain files are loaded.
  
! (defun eval-after-load (file form)
!   "Arrange that, if FILE is ever loaded, FORM will be run at that time.
! This makes or adds to an entry on `after-load-alist'.
! If FILE is already loaded, evaluate FORM right now.
! It does nothing if FORM is already on the list for FILE.
! FILE should be the name of a library, with no directory name."
!   ;; Make sure there is an element for FILE.
!   (or (assoc file after-load-alist)
!       (setq after-load-alist (cons (list file) after-load-alist)))
!   ;; Add FORM to the element if it isn't there.
!   (let ((elt (assoc file after-load-alist)))
!     (or (member form (cdr elt))
! 	(progn
! 	  (nconc elt (list form))
! 	  ;; If the file has been loaded already, run FORM right away.
! 	  (and (assoc file load-history)
! 	       (eval form)))))
!   form)
! 
! (defun eval-next-after-load (file)
!   "Read the following input sexp, and run it whenever FILE is loaded.
! This makes or adds to an entry on `after-load-alist'.
! FILE should be the name of a library, with no directory name."
!   (eval-after-load file (read)))
  
  ; alternate names (not obsolete)
  (if (not (fboundp 'mod)) (define-function 'mod '%))

