From 12c7071c31ee37d908f4e3f2b104332e3b543784 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 5 Jan 1994 20:31:27 +0000 Subject: [PATCH] (eval-after-load): Do nothing if FORM is already on the list. --- lisp/subr.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 943c82f4941..b4f43ff9867 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -513,10 +513,13 @@ list of hooks to run in HOOK, then nothing is done. See `add-hook'." (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'. +It does nothing if FORM is already on the list for FILE. FILE should be the name of a library, with no directory name." (or (assoc file after-load-alist) (setq after-load-alist (cons (list file) after-load-alist))) - (nconc (assoc file after-load-alist) (list form)) + (let ((elt (assoc file after-load-alist))) + (or (member form (cdr elt)) + (nconc elt (list form)))) form) (defun eval-next-after-load (file) -- 2.39.5