Переглянути джерело

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.
Achim Gratz 12 роки тому
батько
коміт
2e4bcfc50d
1 змінених файлів з 2 додано та 2 видалено
  1. 2 2
      lisp/org-compat.el

+ 2 - 2
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)))