[elpa] externals/gnorb 5a88948 382/449: Fix gnorb-version command

[Stefan Monnier]

branch: externals/gnorb
commit 5a88948c33e04072ead4daeaad0031a02a01bcd4
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

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

diff --git a/gnorb-utils.el b/gnorb-utils.el
index 4a734cb..36bab54 100644
--- a/gnorb-utils.el
+++ b/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.