|
@@ -443,6 +443,23 @@ With two arguments, return floor and remainder of their quotient."
|
|
'condition-case-unless-debug
|
|
'condition-case-unless-debug
|
|
'condition-case-no-debug))
|
|
'condition-case-no-debug))
|
|
|
|
|
|
|
|
+(defmacro org-check-version ()
|
|
|
|
+ "Try very hard to provide sensible version strings."
|
|
|
|
+ (let* ((org-dir (org-find-library-dir "org"))
|
|
|
|
+ (org-version.el (concat org-dir "org-version.el"))
|
|
|
|
+ (org-fixup.el (concat org-dir "../UTILITIES/org-fixup.el")))
|
|
|
|
+ (if (require 'org-version org-version.el 'noerror)
|
|
|
|
+ '(progn
|
|
|
|
+ (autoload 'org-release "org-version.el")
|
|
|
|
+ (autoload 'org-git-version "org-version.el"))
|
|
|
|
+ (if (require 'org-fixup org-fixup.el 'noerror)
|
|
|
|
+ '(org-fixup)
|
|
|
|
+ ;; provide fallback definitions and complain
|
|
|
|
+ (warn "Could not define org version correctly. Check installation!")
|
|
|
|
+ '(progn
|
|
|
|
+ (defun org-release () "N/A")
|
|
|
|
+ (defun org-git-version () "N/A !!check installation!!"))))))
|
|
|
|
+
|
|
(provide 'org-compat)
|
|
(provide 'org-compat)
|
|
|
|
|
|
;;; org-compat.el ends here
|
|
;;; org-compat.el ends here
|