branch: externals/ebdb
commit c07f50bdbb0baf1c2500b0faccd832bfd574f6e5
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
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.
