From c09836dbea6f0aff65f72fc9c3ef9d9bdad43590 Mon Sep 17 00:00:00 2001 From: Frank Fischer Date: Mon, 20 Apr 2015 14:14:22 +0200 Subject: evilupdate: add support for old `defadvice` --- scripts/evilupdate | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/scripts/evilupdate b/scripts/evilupdate index abc0bc7..a2f1a1c 100755 --- a/scripts/evilupdate +++ b/scripts/evilupdate @@ -94,11 +94,16 @@ (yaoddmuse-post-current-buffer nil) (evilupdate-done)))) +(unless (require 'nadvice nil t) + (defadvice yaoddmuse-display-page (around evilupdate activate) + (evilupdate-wiki-trace (ad-get-arg 0)))) + (defun evilupdate-update-emacswiki () "Update the version information on the EmacsWiki page." (setq yaoddmuse-wikis '(("EmacsWiki" "http://www.emacswiki.org/emacs" utf-8 "uihnscuskc=1;"))) - (advice-add 'yaoddmuse-display-page :after 'evilupdate-wiki-trace) + (when (featurep 'nadvice) + (advice-add 'yaoddmuse-display-page :after 'evilupdate-wiki-trace)) (yaoddmuse-edit "EmacsWiki" evilupdate-wiki-page t) (evilupdate-wait)) -- cgit v1.0