소스 검색

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