Revert "Backwards compatibility: don't defalias special forms"
authorBastien Guerry <bzg@altern.org>
Sun, 13 Jan 2013 08:24:43 +0000 (09:24 +0100)
committerBastien Guerry <bzg@altern.org>
Sun, 13 Jan 2013 08:24:43 +0000 (09:24 +0100)
This reverts commit b63275350f524df5e33c2aa915de4415f312f409.

lisp/org-compat.el

index 5dba12a..17f2a75 100644 (file)
@@ -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'