[elpa] externals/ebdb 86b386d 141/350: Compiler-inspired fixes

[Eric Abrahamsen]

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

    Compiler-inspired fixes
    
    * ebdb-com.el: Quote class names, delete unused variable, delete
      second identical definition of `ebdb-search-organization'.
---
 ebdb-com.el | 18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index c046d36..e0ea217 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -864,8 +864,7 @@ displayed records."
               (put-text-property start end
                                  'ebdb-record-number record-number)
               (setq start end
-                    record-number (1+ record-number))))
-          (setq first-record nil)))
+                    record-number (1+ record-number))))))
        (run-hooks 'ebdb-display-hook)))))
 
 (easy-menu-define
@@ -1985,12 +1984,12 @@ in either the name(s), organization, address, phone, 
mail, or xfields."
                        field-alist))
          (criterion (ebdb-search-read (cond ((null field)
                                              "any user field")
-                                            ((eql (cdr field) 
ebdb-field-user-simple)
+                                            ((eql (cdr field) 
'ebdb-field-user-simple)
                                              (format "%s field" (car field)))
                                             (t (cdr field))))))
      (list style
-          (or (cdr-safe field) ebdb-field-user)
-          (if (child-of-class-p (cdr-safe field) ebdb-field-user-simple)
+          (or (cdr-safe field) 'ebdb-field-user)
+          (if (child-of-class-p (cdr-safe field) 'ebdb-field-user-simple)
               (cons (car field) criterion)
             criterion)
            (ebdb-formatter-prefix))))
@@ -2000,15 +1999,6 @@ in either the name(s), organization, address, phone, 
mail, or xfields."
    fmt))
 
 ;;;###autoload
-(defun ebdb-search-organization (style regexp &optional fmt)
-  (interactive
-   (list
-    (ebdb-search-style)
-    (read-string "Search for organizations: ")
-    (ebdb-formatter-prefix)))
-  (ebdb-search-display style `((organization ,regexp)) fmt))
-
-;;;###autoload
 (defun ebdb-search-changed (&optional fmt)
   ;; FIXME: "changes" in EBDB lingo are often called "modifications"
   ;; in Emacs lingo