mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-24 10:38:41 +00:00
Code

Backwards compatibility: don't defalias special forms

Browse Source 
* lisp/org-compat.el (org-condition-case-unless-debug): Do not use
  defalias for special forms, the Emacs 22 byte-compiler does not
  recognize them correctly when compiling macros.  Use a macro instead
  and rely on macro expansion.  That however makes the decision at
  compile time, which should be acceptable in this case since it only
  affects debugging.
This commit is contained in:
Achim Gratz 2012-12-19 19:35:19 +01:00 committed by Bastien Guerry
parent 40cb44e795
commit b63275350f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-compat.el
View File

@ -448,12 +448,13 @@ 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
(defalias 'org-condition-case-unless-debug
(defmacro org-condition-case-unless-debug (var bodyform &rest handlers)
(declare (debug condition-case) (indent 2))
(or (and (fboundp 'condition-case-unless-debug)
'condition-case-unless-debug)
`(condition-case-unless-debug ,var ,bodyform ,@handlers))
(and (fboundp 'condition-case-no-debug)
'condition-case-no-debug)
'condition-case))
`(condition-case-no-debug ,var ,bodyform ,@handlers))
`(condition-case ,var ,bodyform ,@handlers)))
;;;###autoload
(defmacro org-check-version ()