From 66057bd2a887cb3cd94c94c0030114e57578c263 Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Mon, 10 Jun 2013 19:45:14 +0200 Subject: [PATCH] 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. --- lisp/org-compat.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 4b1423166..54016253b 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)))