[elpa] externals/ebdb c07f50b 2/9: Get rid of ebdb-version

[Eric Abrahamsen]

branch: externals/ebdb
commit c07f50bdbb0baf1c2500b0faccd832bfd574f6e5
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Get rid of ebdb-version
    
    * ebdb.el: Removing ebdb-version (function and variable) and
      ebdb-version-date. Sort of pointless with a package.
---
 ebdb-migrate.el |  4 ++--
 ebdb.el         | 19 +------------------
 2 files changed, 3 insertions(+), 20 deletions(-)

diff --git a/ebdb-migrate.el b/ebdb-migrate.el
index 35247c2..8010c3d 100644
--- a/ebdb-migrate.el
+++ b/ebdb-migrate.el
@@ -642,8 +642,8 @@ BBDB sets the default of that option."
         (unless file-format ; current file-format, but no file-format: line.
           (error "BBDB corrupted: no file-format line"))
         (if (> file-format ebdb-file-format)
-            (error "EBDB version %s understands file format %s but not %s."
-                   ebdb-version ebdb-file-format file-format)
+            (error "EBDB understands file format %s but not %s."
+                   ebdb-file-format file-format)
           (setq migrate (< file-format ebdb-file-format)))
        (unless (re-search-forward "^\\[" nil t)
          (error "Unreadabe BBDB file: no contacts found"))
diff --git a/ebdb.el b/ebdb.el
index c3318db..4174e24 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -93,12 +93,6 @@ of the `ebdb-field-role' field class.")
     "Enable debugging if non-nil during compile time.
 You really should not disable debugging.  But it will speed things up."))
 
-(defvar ebdb-version "e"
-  "EBDB version.")
-
-(defvar ebdb-version-date "October 15, 2016"
-  "Date this version of EBDB was released.")
-
 (defvar ebdb-silent-internal nil
   "Bind this to t to quiet things down - do not set it.
 See also `ebdb-silent'.")
@@ -5096,22 +5090,11 @@ If PROMPT is non-nil prompt before saving."
        (set-buffer-modified-p nil))))
   (message "Saving the EBDB... done"))
 
-;;;###autoload
-(defun ebdb-version (&optional arg)
-  "Return string describing the version of EBDB.
-With prefix ARG, insert string at point."
-  (interactive (list (or (and current-prefix-arg 1) t)))
-  (let ((version-string (format "EBDB version %s (%s)"
-                                ebdb-version ebdb-version-date)))
-    (cond ((numberp arg) (insert (message version-string)))
-          ((eq t arg) (message version-string))
-          (t version-string))))
-
 
 ;;; Searching EBDB
 
 (defvar ebdb-search-invert nil
-  "Bind this variable to t in order to invert the result of `ebdb-search'.")
+  "Bind to t to invert the result of `ebdb-search'.")
 
 ;; Char folding: a simplified version of what happens in char-fold.el.