From d7eed32784085e8ec85b9d3e539d0c627304263e Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Mon, 10 Jun 2013 20:13:43 +0200 Subject: [PATCH] org-compat: remove argument lists from defadvice, use positional arguments instead org-compat (custom-handle-keyword, define-obsolete-variable-alias, define-obsolete-function-alias): Remove argument lists from defadvice and use positional arguments instead of named arguments. --- lisp/org-compat.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 54016253b..a01f0425d 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -127,22 +127,20 @@ Don't do the aliasing when `defvaralias' is not bound." (when (featurep 'xemacs) (defadvice custom-handle-keyword - (around org-custom-handle-keyword (symbol keyword value type) + (around org-custom-handle-keyword activate preactivate) "Remove custom keywords not recognized to avoid producing an error." (cond - ((eq keyword :package-version)) + ((eq (ad-get-arg 1) :package-version)) (t ad-do-it))) (defadvice define-obsolete-variable-alias (around org-define-obsolete-variable-alias - (obsolete-name current-name &optional docstring) activate preactivate) "Declare arguments defined in later versions of Emacs." (setcdr (cdr (ad-get-args 0)) nil) ad-do-it) (defadvice define-obsolete-function-alias (around org-define-obsolete-function-alias - (obsolete-name current-name when &optional docstring) activate preactivate) "Declare arguments defined in later versions of Emacs." (setcdr (cdr (ad-get-args 0)) nil) -- 2.11.4.GIT