diff options
| author | Frank Fischer <frank-fischer@shadow-soft.de> | 2015-04-20 14:14:22 +0200 |
|---|---|---|
| committer | Frank Fischer <frank-fischer@shadow-soft.de> | 2015-04-20 14:14:22 +0200 |
| commit | c09836dbea6f0aff65f72fc9c3ef9d9bdad43590 (patch) | |
| tree | 30a3f47277b375c5fd42ea49aaf7574d56085e28 /scripts | |
| parent | 9d53b4804da3b0b2cbba5eb8d4f873a64f8959c2 (diff) | |
evilupdate: add support for old `defadvice`
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/evilupdate | 7 |
1 files changed, 6 insertions, 1 deletions
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)) |