diff --git a/lisp/org.el b/lisp/org.el index 988815787..13801484c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -111,6 +111,7 @@ (declare-function org-at-clock-log-p "org-clock" ()) (declare-function org-clock-timestamps-up "org-clock" ()) (declare-function org-clock-timestamps-down "org-clock" ()) +(declare-function find-library-name "find-func") ;; babel (require 'ob) @@ -208,6 +209,7 @@ identifier." ;;; Version +;;;###autoload (defun org-version (&optional here) "Show the org-mode version in the echo area. With prefix arg HERE, insert it at point." @@ -215,8 +217,11 @@ With prefix arg HERE, insert it at point." (let* ((origin default-directory) (version (if (boundp 'org-release) org-release "N/A")) (git-version (if (boundp 'org-git-version) org-git-version "N/A")) - (dir (concat (file-name-directory (locate-library "org")) "../" ))) - (setq version (format "Org-mode version %s (%s)" version git-version)) + (org-install (ignore-errors (find-library-name "org-install")))) + (setq version (format "Org-mode version %s (%s @ %s)" + version + git-version + (if org-install org-install "org-install.el can not be found!"))) (if here (insert version)) (message version)))