[nongnu] elpa/vm b845c4b1d4 7/8: use a message rather than an warn if version or commit is not avaliable

[ELPA Syncer]

branch: elpa/vm
commit b845c4b1d40d6c358e2337e62fbf4cef1b3af2ad
Author: Mark Diekhans <ma...@ucsc.edu>
Commit: Mark Diekhans <ma...@ucsc.edu>

    use a message rather than an warn if version or commit is not avaliable
---
 lisp/vm-version.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/vm-version.el b/lisp/vm-version.el
index dd28db7643..03632f9b40 100644
--- a/lisp/vm-version.el
+++ b/lisp/vm-version.el
@@ -60,22 +60,22 @@
     (warn "Can't obtain vm-version-commit from package or 
vm-version-conf.el")))
 
 (defun vm-version ()
-  "Return the value of the variable `vm-version'."
+  "Display and return the value of the variable `vm-version'."
   (interactive)
   (when (vm-interactive-p)
-    (unless vm-version
-      (warn "VM version was not discovered when VM was loaded"))
-    (message "VM version is: %s" vm-version))
-  vm-version)
+    (if vm-version
+        (message "VM version is: %s" vm-version)
+      (message "VM version was not discovered when VM was loaded"))
+  vm-version))
 
 (defun vm-version-commit ()
-  "Return the value of the variable `vm-version-commit'."
+  "Display and the value of the variable `vm-version-commit'."
   (interactive)
   (when (vm-interactive-p)
-    (unless vm-version-commit
-      (warn "VM commit was not discovered when VM was loaded"))
-    (message "VM commit is: %s" vm-version-commit))
-  vm-version-commit)
+    (if vm-version-commit
+        (message "VM commit is: %s" vm-version-commit)
+      (message "VM commit was not discovered when VM was loaded"))
+  vm-version-commit))
 
 (defun vm-menu-can-eval-item-name ()
   (and (featurep 'xemacs)