Ver código fonte

Revert "Backwards compatibility: don't defalias special forms"

This reverts commit b63275350f524df5e33c2aa915de4415f312f409.
Bastien Guerry 12 anos atrás
pai
commit
3a5a4ddd41
1 arquivos alterados com 4 adições e 5 exclusões
  1. 4 5
      lisp/org-compat.el

+ 4 - 5
lisp/org-compat.el

@@ -447,13 +447,12 @@ With two arguments, return floor and remainder of their quotient."
 
 ;; `condition-case-unless-debug' has been introduced in Emacs 24.1
 ;; `condition-case-no-debug' has been introduced in Emacs 23.1
-(defmacro org-condition-case-unless-debug (var bodyform &rest handlers)
-  (declare (debug condition-case) (indent 2))
+(defalias 'org-condition-case-unless-debug
   (or (and (fboundp 'condition-case-unless-debug)
-	   `(condition-case-unless-debug ,var ,bodyform ,@handlers))
+	   'condition-case-unless-debug)
       (and (fboundp 'condition-case-no-debug)
-	   `(condition-case-no-debug ,var ,bodyform ,@handlers))
-      `(condition-case ,var ,bodyform ,@handlers)))
+	   'condition-case-no-debug)
+      'condition-case))
 
 ;; RECURSIVE has been introduced with Emacs 23.2.
 ;; This is copying and adapted from `tramp-compat-delete-directory'