[elpa] externals/ebdb 70ef68e 22/33: Fix compiler warnings

[Eric Abrahamsen]

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

    Fix compiler warnings
    
    * ebdb-com.el (ebdb-edit-field-customize): This was actually a stupid
      bug.
    * ebdb-migrate.el:
    * ebdb.el (ebdb-record-insert-field): defvars, declare-functions, etc.
---
 ebdb-com.el     | 2 +-
 ebdb-migrate.el | 2 ++
 ebdb.el         | 3 ++-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index b716af4..d5747f0 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1570,7 +1570,7 @@ the record, change the name of the record."
     (ebdb-record-delete-field r field)
     (condition-case nil
        (eieio-customize-object field)
-      (error (ebdb-record-insert-field rec f))))
+      (error (ebdb-record-insert-field r field))))
   (setq ebdb-custom-field-record record))
 
 (cl-defmethod eieio-done-customizing ((f ebdb-field))
diff --git a/ebdb-migrate.el b/ebdb-migrate.el
index 990aa75..71b19e0 100644
--- a/ebdb-migrate.el
+++ b/ebdb-migrate.el
@@ -26,6 +26,8 @@
 
 (require 'ebdb)
 (autoload 'calendar-absolute-from-gregorian "calendar")
+(declare-function make-gnorb-ebdb-link "ext:gnorb-ebdb")
+(defvar url-handler-regexp)
 ;;; Migrating the EBDB
 
 ;; Unused
diff --git a/ebdb.el b/ebdb.el
index 7b4a678..a7eab85 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -61,6 +61,7 @@
 (autoload 'org-agenda-list "org-agenda")
 (autoload 'org-make-tags-matcher "org")
 (defvar ebdb-i18n-countries)
+(defvar ebdb-i18n-countries-pref-scripts)
 
 ;; These are the most important internal variables, holding EBDB's
 ;; data structures.
@@ -2727,7 +2728,7 @@ by the field, or else raising the error 
`ebdb-related-unfound'.")
 
 (cl-defmethod ebdb-record-insert-field ((record ebdb-record)
                                        (field ebdb-field-singleton)
-                                       &optional slot)
+                                       &optional _slot)
   (let ((existing (ebdb-record-field record (eieio-object-class field))))
     (when existing
       (ebdb-record-delete-field record existing))