[elpa] master 04de2ed 1/2: Fix gnorb-version command

[Eric Abrahamsen]

branch: master
commit 04de2ed1ec962bc8676c87e6ac3c3084d4a5813a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix gnorb-version command
    
    * packages/gnorb/gnorb-utils.el (gnorb-version): If that used to
      work, it doesn't now. Use the package-* approach.
---
 packages/gnorb/gnorb-utils.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/gnorb/gnorb-utils.el b/packages/gnorb/gnorb-utils.el
index 4a734cb..36bab54 100644
--- a/packages/gnorb/gnorb-utils.el
+++ b/packages/gnorb/gnorb-utils.el
@@ -80,11 +80,15 @@ with `gnorb-window-conf'.")
 
 (defun gnorb-version ()
   "Return the version of currently-installed Gnorb.
-
 Only works for Gnorb installed via the package manager."
   (interactive)
+  (if (memq 'gnorb package-activated-list)
+      (let ((pkg (nth 1 (assq 'gnorb package-alist))))
+       (message (package-desc-full-name pkg)))
+    (message "Gnorb not installed via package manager."))
   (pkg-info-package-version "gnorb"))
 
+
 ;;; this is just ghastly, but the value of this var is single regexp
 ;;; group containing various header names, and we want our value
 ;;; inside that group.