Ver código fonte

show installation path or org-install.el to avoid mishaps with multiple installations

	* lisp/org.el (org-version): show the full path to org-install.el
	in the version string to avoid confusion if multiple installations
	exist or a previously loaded org-install.el has already defined a
	version string that is now out of date.
Achim Gratz 13 anos atrás
pai
commit
cb8600b1ba
1 arquivos alterados com 7 adições e 2 exclusões
  1. 7 2
      lisp/org.el

+ 7 - 2
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)))