diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2013-06-10 20:47:41 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2013-06-10 20:47:41 +0200 |
commit | 2e4bcfc50db4ebe804903c624f53f044543dc21f (patch) | |
tree | 753b9fede74fde8f4eecaa466137aa2f5241cb5d | |
parent | d7eed32784085e8ec85b9d3e539d0c627304263e (diff) | |
download | org-mode-2e4bcfc50db4ebe804903c624f53f044543dc21f.tar.gz |
org-compat: XEmacs actually needs the argument lists...
org-compat (define-obsolete-variable-alias,
define-obsolete-function-alias): Re-introduce argument lists as
XEmacs' byte-compiler otherwise stops compilation.
This means that no other advices must modify these functions with a
different argument list.
-rw-r--r-- | lisp/org-compat.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index a01f042..3ebe584 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -135,15 +135,15 @@ Don't do the aliasing when `defvaralias' is not bound." (t ad-do-it))) (defadvice define-obsolete-variable-alias (around org-define-obsolete-variable-alias + (obsolete-name current-name &optional when 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 &optional when 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))) |