[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Stefan Monnier
Subject: [elpa] externals/gnorb 5a88948 382/449: Fix gnorb-version command
Date: Fri, 27 Nov 2020 23:16:16 -0500 (EST)

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."
+  (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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]