diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2013-06-10 19:45:14 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2013-06-10 19:45:55 +0200 |
commit | 66057bd2a887cb3cd94c94c0030114e57578c263 (patch) | |
tree | ebbbd15d6a6e5622a3faba14476b82eb4722362f | |
parent | 5c6f4fd13086ade59d32f9ac50bebfeb754b15eb (diff) | |
download | org-mode-66057bd2a887cb3cd94c94c0030114e57578c263.tar.gz |
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.
-rw-r--r-- | lisp/org-compat.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 4b14231..5401625 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -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))) |