[elpa] externals/bbdb 92d8f1eaa3: Silence the compiler

[Roland Winkler]

branch: externals/bbdb
commit 92d8f1eaa3d382e80e73cbb3d39a4a0094373036
Author: Arash Esbati <arash@gnu.org>
Commit: Roland Winkler <winkler@gnu.org>

    Silence the compiler
---
 lisp/bbdb-com.el | 18 +++++++++---------
 lisp/bbdb.el     | 24 ++++++++++++------------
 2 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el
index 3ce285ea91..f11c2b2494 100644
--- a/lisp/bbdb-com.el
+++ b/lisp/bbdb-com.el
@@ -874,9 +874,9 @@ but does ensure that there will not be name collisions."
 (defun bbdb-read-name (&optional first-and-last dfirst dlast ident)
   "Read name for a record from minibuffer.
 FIRST-AND-LAST controls the reading mode:
-If it is 'first-last read first and last name separately.
-If it is 'last-first read last and first name separately.
-If it is 'fullname read full name at once.
+If it is \\='first-last read first and last name separately.
+If it is \\='last-first read last and first name separately.
+If it is \\='fullname read full name at once.
 If it is t read name parts separately, obeying
 `bbdb-read-name-format' if possible.
 Otherwise use `bbdb-read-name-format'.
@@ -896,7 +896,7 @@ Return cons with first and last name."
                       (let (fn ln)
                         (setq ln (bbdb-read-string l-prompt dlast)
                               fn (bbdb-read-string f-prompt dfirst))
-                       (cons fn ln)))
+                        (cons fn ln)))
                      ((eq first-and-last 'first-last)
                       (cons (bbdb-read-string f-prompt dfirst)
                             (bbdb-read-string l-prompt dlast)))
@@ -1283,7 +1283,7 @@ the identifier from the name or mail address of RECORD."
 (defun bbdb-edit-foo (record field &optional nvalue)
   "For RECORD edit some FIELD (mostly interactively).
 FIELD may take the same values as the elements of the variable `bbdb-edit-foo'.
-If FIELD is 'phone or 'address, NVALUE should be an integer in order to edit
+If FIELD is \\='phone or \\='address, NVALUE should be an integer in order to 
edit
 the NVALUEth phone or address field; otherwise insert a new phone or address
 field.
 
@@ -1961,7 +1961,7 @@ and `bbdb-mail-name'.  However, if both the first name 
and last name
 are constituents of the address as in John.Doe@Some.Host,
 and `bbdb-mail-avoid-redundancy' is non-nil, then the address is used as is
 and `bbdb-mail-name-format' and `bbdb-mail-name' are ignored.
-If `bbdb-mail-avoid-redundancy' is 'mail-only the name is never included.
+If `bbdb-mail-avoid-redundancy' is \\='mail-only the name is never included.
 MAIL may be a mail address to be used for RECORD.
 If MAIL is an integer, use the MAILth mail address of RECORD.
 If MAIL is nil use the first mail address of RECORD."
@@ -2005,9 +2005,9 @@ If MAIL is nil use the first mail address of RECORD."
                           (or (string-match (concat "\\`[^!@%]*\\b" fnq
                                                     "\\b[^!%@]+\\b" lnq "\\b")
                                             mail)
-                            (string-match (concat "\\`[^!@%]*\\b" lnq
-                                                  "\\b[^!%@]+\\b" fnq "\\b")
-                                          mail))))
+                              (string-match (concat "\\`[^!@%]*\\b" lnq
+                                                    "\\b[^!%@]+\\b" fnq "\\b")
+                                            mail))))
                        ((or fn ln)
                         (string-match (concat "\\`[^!@%]*\\b"
                                               (regexp-quote (or fn ln)) "\\b")
diff --git a/lisp/bbdb.el b/lisp/bbdb.el
index 280d985e81..e18c54b76c 100644
--- a/lisp/bbdb.el
+++ b/lisp/bbdb.el
@@ -217,7 +217,7 @@ If this file is newer than `bbdb-file', BBDB will offer to 
revert."
   :type 'hook)
 
 (defcustom bbdb-create-hook nil
-  "*Hook run each time a new BBDB record is created.
+  "Hook run each time a new BBDB record is created.
 Run with one argument, the new record.  This is called before the record is
 added to the database, followed by a call of `bbdb-change-hook'.
 
@@ -228,7 +228,7 @@ and class of the mail address according to 
`bbdb-message-headers'."
   :type 'hook)
 
 (defcustom bbdb-change-hook nil
-  "*Hook run each time a BBDB record is changed.
+  "Hook run each time a BBDB record is changed.
 Run with one argument, the record.  This is called before the database
 is modified.  If a new bbdb record is created, `bbdb-create-hook' is called
 first, followed by a call of this hook."
@@ -306,7 +306,7 @@ See also `bbdb-mua-pop-up-window-size'."
 
 (defcustom bbdb-dedicated-window nil
   "Make *BBDB* window a dedicated window.
-Allowed values include nil (not dedicated) 'bbdb (weakly dedicated)
+Allowed values include nil (not dedicated) \\='bbdb (weakly dedicated)
 and t (strongly dedicated)."
   :group 'bbdb-record-display
   :type '(choice (const :tag "BBDB window not dedicated" nil)
@@ -338,7 +338,7 @@ OPTION-ALIST specifies the options for the layout.  Valid 
options are:
     Format                  one-line        multi-line        default if unset
 ------------------------------------------------------------------------------
  (toggle . BOOL)                 +               +              nil
- (order . FIELD-LIST)            +               +              '(phone ...)
+ (order . FIELD-LIST)            +               +              \\='(phone ...)
  (omit . FIELD-LIST)             +               +              nil
  (name-end . INTEGER)            +               -              40
  (indentation . INTEGER)         -               +              21
@@ -602,8 +602,8 @@ See `locate-file'."
 
 (defcustom bbdb-read-name-format 'fullname
   "Default format for reading names via `bbdb-read-name'.
-If it is 'first-last read first and last name separately.
-If it is 'last-first read last and first name separately.
+If it is \\='first-last read first and last name separately.
+If it is \\='last-first read last and first name separately.
 With any other value read full name at once.
 See also `bbdb-name-format'."
   :group 'bbdb-record-display
@@ -661,7 +661,7 @@ or if a prefix argument is given to the command 
`bbdb-insert-field'."
 
 (defcustom bbdb-phone-style 'nanp
   "Phone numbering plan assumed by BBDB.
-The value 'nanp refers to the North American Numbering Plan.
+The value \\='nanp refers to the North American Numbering Plan.
 The value nil refers to a free-style numbering plan.
 
 You can have both styles of phone number in your database by providing a
@@ -1334,7 +1334,7 @@ See also `bbdb-auto-notes-ignore-messages'."
 (define-obsolete-variable-alias 'bbdb-message-pop-up 'bbdb-mua-pop-up "3.0")
 (defcustom bbdb-mua-pop-up t
   "If non-nil, display an auto-updated BBDB window while using a MUA.
-If 'horiz, stack the window horizontally if there is room.
+If \\='horiz, stack the window horizontally if there is room.
 If this is nil, BBDB is updated silently.
 
 See also `bbdb-mua-pop-up-window-size' and `bbdb-horiz-pop-up-window-size'."
@@ -1505,7 +1505,7 @@ first: Generate one alias \"<alias>\" that expands to the 
first mail address
        of a record.
 star:  Generate a second alias \"<alias>*\" that expands to all mail addresses
        of a record.
-all:   Generate the aliases \"<alias>\" and \"<alias>*\" (as for 'star)
+all:   Generate the aliases \"<alias>\" and \"<alias>*\" (as for \\='star)
        and aliases \"<alias>n\" for each mail address, where n is the position
        of the mail address of a record."
   :group 'bbdb-sendmail
@@ -2200,7 +2200,7 @@ May be used as value of variable `bbdb-multiple-buffers'."
 (defsubst bbdb-add-job (spec record string)
   "Internal function: Evaluate SPEC for RECORD and STRING.
 If SPEC is a function call it with args RECORD and STRING.  Return value.
-If SPEC is a regexp, return 'query unless SPEC matches STRING.
+If SPEC is a regexp, return \\='query unless SPEC matches STRING.
 Otherwise return SPEC.
 Used with variable `bbdb-add-name' and friends."
   (cond ((functionp spec)
@@ -2213,7 +2213,7 @@ Used with variable `bbdb-add-name' and friends."
 
 (defsubst bbdb-eval-spec (spec prompt)
   "Internal function: Evaluate SPEC using PROMPT.
-Return t if either SPEC equals t, or SPEC equals 'query and `bbdb-silent'
+Return t if either SPEC equals t, or SPEC equals \\='query and `bbdb-silent'
 is non-nil or `y-or-no-p' returns t using PROMPT.
 Used with return values of `bbdb-add-job'."
   (or (eq spec t)
@@ -4373,7 +4373,7 @@ Finds the largest window on the screen, splits it, 
displaying the
 the *BBDB* buffer is already visible, in which case do nothing.)
 Select this window if SELECT is non-nil.
 
-If `bbdb-mua-pop-up' is 'horiz, and the first window matching
+If `bbdb-mua-pop-up' is \\='horiz, and the first window matching
 the predicate HORIZ-P is wider than the car of `bbdb-horiz-pop-up-window-size'
 then the window will be split horizontally rather than vertically."
   (let ((buffer (get-buffer bbdb-buffer-name)))