mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-compat.el: Augment earlier commit 

* lisp/org-compat.el (org-condition-case-unless-debug): Alias
to `condition-case' when both `condition-case-no-debug' and
`condition-case-unless-debug' is unavailable.
This commit is contained in:
Jambunathan K 2012-07-19 19:15:42 +05:30
parent 137cd87e4d
commit 16d23c07dd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-compat.el
View File

@ -446,10 +446,13 @@ With two arguments, return floor and remainder of their quotient."
(funcall 'switch-to-buffer buffer-or-name norecord)))
;; `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
(if (fboundp 'condition-case-unless-debug)
'condition-case-unless-debug
'condition-case-no-debug))
(or (and (fboundp 'condition-case-unless-debug)
'condition-case-unless-debug)
(and (fboundp 'condition-case-no-debug)
'condition-case-no-debug)
'condition-case))
(provide 'org-compat)