From 16d23c07dd3697db790b14e6873c65404c912e3f Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Thu, 19 Jul 2012 19:15:42 +0530 Subject: [PATCH] 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. --- lisp/org-compat.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index b4fb2cc76..dc3eff544 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -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)