diff options
author | Richard M. Stallman <[email protected]> | 1994-01-05 20:31:27 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-01-05 20:31:27 +0000 |
commit | 12c7071c31ee37d908f4e3f2b104332e3b543784 (patch) | |
tree | 997937e204699a047581bf41ceeab4df70283e81 /lisp/subr.el | |
parent | d06752db2d8f4f15250624031574f7719a0b3df8 (diff) |
(eval-after-load): Do nothing if FORM is already on the list.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 943c82f494..b4f43ff986 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) |