Browse Source

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.
Jambunathan K 12 years ago
parent
commit
16d23c07dd
1 changed files with 6 additions and 3 deletions
  1. 6 3
      lisp/org-compat.el

+ 6 - 3
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)