forked from mirrors/org-mode
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:
parent
137cd87e4d
commit
16d23c07dd
|
@ -446,10 +446,13 @@ With two arguments, return floor and remainder of their quotient."
|
||||||
(funcall 'switch-to-buffer buffer-or-name norecord)))
|
(funcall 'switch-to-buffer buffer-or-name norecord)))
|
||||||
|
|
||||||
;; `condition-case-unless-debug' has been introduced in Emacs 24.1
|
;; `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
|
(defalias 'org-condition-case-unless-debug
|
||||||
(if (fboundp 'condition-case-unless-debug)
|
(or (and (fboundp 'condition-case-unless-debug)
|
||||||
'condition-case-unless-debug
|
'condition-case-unless-debug)
|
||||||
'condition-case-no-debug))
|
(and (fboundp 'condition-case-no-debug)
|
||||||
|
'condition-case-no-debug)
|
||||||
|
'condition-case))
|
||||||
|
|
||||||
(provide 'org-compat)
|
(provide 'org-compat)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue