diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-08 15:36:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-08 15:36:18 -0400 |
| commit | baaacd92fff4e6a49bbb1fea3caed25004490559 (patch) | |
| tree | 274f7faf1a5d9ddefbb6b7f3d14dcceadba1fba7 /lisp/emacs-lisp/nadvice.el | |
| parent | 0d5e83611e5157800fd855fe8e3f60c8eff0af7c (diff) | |
| download | emacs-baaacd92fff4e6a49bbb1fea3caed25004490559.tar.gz emacs-baaacd92fff4e6a49bbb1fea3caed25004490559.tar.bz2 emacs-baaacd92fff4e6a49bbb1fea3caed25004490559.zip | |
* nadvice.el: Add ourselves to package--builtin-versions
Diffstat (limited to 'lisp/emacs-lisp/nadvice.el')
| -rw-r--r-- | lisp/emacs-lisp/nadvice.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el index bb647b012e1..2278e389cef 100644 --- a/lisp/emacs-lisp/nadvice.el +++ b/lisp/emacs-lisp/nadvice.el @@ -36,6 +36,11 @@ ;;; Code: +;; The autoloads.el mechanism which adds package--builtin-versions +;; maintenance to loaddefs.el doesn't work for preloaded packages (such +;; as this one), so we have to do it by hand! +(push (purecopy '(nadvice 1 0)) package--builtin-versions) + ;;;; Lightweight advice/hook (defvar advice--where-alist '((:around "\300\301\302\003#\207" 5) @@ -241,6 +246,8 @@ different, but `function-equal' will hopefully ignore those differences.") (if (local-variable-p var) (symbol-value var) (setq advice--buffer-local-function-sample ;; This function acts like the t special value in buffer-local hooks. + ;; FIXME: Provide an `advice-bottom' function that's like + ;; `advice-cd*r' but also follows through this proxy. (lambda (&rest args) (apply (default-value var) args))))) (eval-and-compile |