瀏覽代碼

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.
Achim Gratz 12 年之前
父節點
當前提交
66057bd2a8
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      lisp/org-compat.el

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