mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-03 11:33:46 +00:00
Code

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

Browse Source 
This reverts commit b63275350f.
This commit is contained in:
Bastien Guerry 2013-01-13 09:24:43 +01:00
parent 04eb4b08c3
commit 3a5a4ddd41
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-compat.el
View 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'