org-compat: strip last argument from define-obsolete-{function,variable}-alias for XEmacs

* lisp/org-compat.el (define-obsolete-variable-alias,
  define-obsolete-function-alias): Actually remove the third (and any
  following) argument from the argument list before calling the
  advised function.
This commit is contained in:
Achim Gratz 2013-06-10 19:45:14 +02:00
parent 5c6f4fd130
commit 66057bd2a8
1 changed files with 2 additions and 0 deletions

View File

@ -138,12 +138,14 @@ Don't do the aliasing when `defvaralias' is not bound."
(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)
ad-do-it)
(defvar customize-package-emacs-version-alist nil)
(defvar temporary-file-directory (temp-directory)))