From 8fff8988e612e861e1d9be9e624823013dcb8850 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 30 Nov 2007 07:49:56 +0000 Subject: [PATCH] (bbdb-phone-location, bbdb-record-phones) (bbdb-address-city, bbdb-address-state, bbdb-address-zip) (bbdb-address-location, bbdb-record-addresses): Pass non-nil fourth arg to declare-function. --- lisp/ChangeLog | 20 ++++++++++++++++++++ lisp/net/eudcb-bbdb.el | 14 +++++++------- 2 files changed, 27 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e8a3bd526bc..40311f8b804 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,23 @@ +2007-11-30 Glenn Morris + + * emacs-lisp/byte-run.el (declare-function): Add optional fourth + argument and document it. + + * emacs-lisp/bytecomp.el (byte-compile-declare-function): + Third argument to declare-function must be a list to specify arglist. + + * emacs-lisp/check-declare.el (check-declare-scan): Doc fix. + Handle declare-function third argument `t' and fourth argument. + (check-declare-verify): Doc fix. Handle `fileonly' case. + Use progn rather than prog1. + + * desktop.el (uniquify-item-base): Declare as a function. + + * net/eudcb-bbdb.el (bbdb-phone-location, bbdb-record-phones) + (bbdb-address-city, bbdb-address-state, bbdb-address-zip) + (bbdb-address-location, bbdb-record-addresses): Pass non-nil + fourth arg to declare-function. + 2007-11-29 Alexandre Julliard * vc-git.el (vc-git-dir-state): Fix the git command arguments. diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 222ed132162..4a1b865736a 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -104,16 +104,16 @@ record))) ;; External. -(declare-function bbdb-phone-location "ext:bbdb") ; via bbdb-defstruct +(declare-function bbdb-phone-location "ext:bbdb" t) ; via bbdb-defstruct (declare-function bbdb-phone-string "ext:bbdb" (phone)) -(declare-function bbdb-record-phones "ext:bbdb") ; via bbdb-defstruct +(declare-function bbdb-record-phones "ext:bbdb" t) ; via bbdb-defstruct ;; FIXME: bbdb-address-street1/2/3 don't seem to exist in current ;; bbdb, so this code is probably broken. -(declare-function bbdb-address-city "ext:bbdb") ; via bbdb-defstruct -(declare-function bbdb-address-state "ext:bbdb") ; via bbdb-defstruct -(declare-function bbdb-address-zip "ext:bbdb") ; via bbdb-defstruct -(declare-function bbdb-address-location "ext:bbdb") ; via bbdb-defstruct -(declare-function bbdb-record-addresses "ext:bbdb") ; via bbdb-defstruct +(declare-function bbdb-address-city "ext:bbdb" t) ; via bbdb-defstruct +(declare-function bbdb-address-state "ext:bbdb" t) ; via bbdb-defstruct +(declare-function bbdb-address-zip "ext:bbdb" t) ; via bbdb-defstruct +(declare-function bbdb-address-location "ext:bbdb" t) ; via bbdb-defstruct +(declare-function bbdb-record-addresses "ext:bbdb" t) ; via bbdb-defstruct (declare-function bbdb-records "ext:bbdb" (&optional dont-check-disk already-in-db-buffer)) -- 2.39.2