ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Achim Gratz 2013-06-10 19:45:14 +02:00
parent 5c6f4fd130
commit 66057bd2a8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-compat.el
View File

@ -138,12 +138,14 @@ Don't do the aliasing when `defvaralias' is not bound."
(obsolete-name current-name &optional docstring) (obsolete-name current-name &optional docstring)
activate preactivate) activate preactivate)
"Declare arguments defined in later versions of Emacs." "Declare arguments defined in later versions of Emacs."
(setcdr (cdr (ad-get-args 0)) nil)
ad-do-it) ad-do-it)
(defadvice define-obsolete-function-alias (defadvice define-obsolete-function-alias
(around org-define-obsolete-function-alias (around org-define-obsolete-function-alias
(obsolete-name current-name when &optional docstring) (obsolete-name current-name when &optional docstring)
activate preactivate) activate preactivate)
"Declare arguments defined in later versions of Emacs." "Declare arguments defined in later versions of Emacs."
(setcdr (cdr (ad-get-args 0)) nil)
ad-do-it) ad-do-it)
(defvar customize-package-emacs-version-alist nil) (defvar customize-package-emacs-version-alist nil)
(defvar temporary-file-directory (temp-directory))) (defvar temporary-file-directory (temp-directory)))