ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Achim Gratz 2013-06-10 20:13:43 +02:00
parent 66057bd2a8
commit d7eed32784
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-compat.el
View File

@ -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)