[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master baaacd9: * nadvice.el: Add ourselves to package--bu
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master baaacd9: * nadvice.el: Add ourselves to package--builtin-versions |
Date: |
Mon, 8 Apr 2019 15:36:25 -0400 (EDT) |
branch: master
commit baaacd92fff4e6a49bbb1fea3caed25004490559
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* nadvice.el: Add ourselves to package--builtin-versions
---
lisp/emacs-lisp/nadvice.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index bb647b0..2278e38 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master baaacd9: * nadvice.el: Add ourselves to package--builtin-versions,
Stefan Monnier <=