From fb77502f695331501fb32e686424c3aec3c7b1a3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 16 Jun 2015 20:33:48 -0400 Subject: [PATCH] Address some check-declare warnings. * lisp/simple.el (tabulated-list-print): * lisp/progmodes/elisp-mode.el (xref-collect-matches): * lisp/term/ns-win.el (ns-selection-owner-p, ns-selection-exists-p) (ns-get-selection): Update declarations. --- lisp/progmodes/elisp-mode.el | 2 +- lisp/simple.el | 2 +- lisp/term/ns-win.el | 9 +++------ 3 files changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 11c9b16a3c9..76f32decb17 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -582,7 +582,7 @@ It can be quoted, or be inside a quoted form." (declare-function xref-make-bogus-location "xref" (message)) (declare-function xref-make "xref" (description location)) -(declare-function xref-collect-matches "xref" (input dir &optional kind)) +(declare-function xref-collect-matches "xref" (symbol dir)) (declare-function xref-collect-references "xref" (symbol dir)) (defun elisp-xref-find (action id) diff --git a/lisp/simple.el b/lisp/simple.el index 46023a575f0..48451aacbd6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3521,7 +3521,7 @@ support pty association, if PROGRAM is nil." (defvar tabulated-list-sort-key) (declare-function tabulated-list-init-header "tabulated-list" ()) (declare-function tabulated-list-print "tabulated-list" - (&optional remember-pos)) + (&optional remember-pos update)) (defvar process-menu-query-only nil) diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index f603f3e0f6d..a21c105fb98 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -930,12 +930,9 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (declare-function ns-own-selection-internal "nsselect.m" (selection value)) (declare-function ns-disown-selection-internal "nsselect.m" (selection)) -(declare-function ns-selection-owner-p "nsselect.m" - (&optional selection terminal)) -(declare-function ns-selection-exists-p "nsselect.m" - (&optional selection terminal)) -(declare-function ns-get-selection "nsselect.m" - (selection-symbol target-type &optional time-stamp terminal)) +(declare-function ns-selection-owner-p "nsselect.m" (&optional selection)) +(declare-function ns-selection-exists-p "nsselect.m" (&optional selection)) +(declare-function ns-get-selection "nsselect.m" (selection-symbol target-type)) (cl-defmethod gui-backend-set-selection (selection value &context (window-system (eql ns))) -- 2.39.2