فهرست منبع

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 13 سال پیش
والد
کامیت
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)))