Declaration fixes.

* lisp/net/network-stream.el (gnutls-negotiate): Fix declaration.

* lisp/simple.el (tabulated-list-print): Fix declaration.

* lisp/progmodes/gud.el (syntax-symbol, syntax-point):
Remove unnecessary and incorrect declarations.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d40325..7e13237 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2011-05-05  Glenn Morris  <rgm@gnu.org>
 
+       * net/network-stream.el (gnutls-negotiate):
+       * simple.el (tabulated-list-print): Fix declarations.
+
+       * progmodes/gud.el (syntax-symbol, syntax-point):
+       Remove unnecessary and incorrect declarations.
+
        * emacs-lisp/check-declare.el (check-declare-scan):
        Handle byte-compile-initial-macro-environment in bytecomp.el
 

diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index f3cfd7d..61e4630 100644 (file)
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -45,7 +45,7 @@
 (require 'tls)
 (require 'starttls)
 
-(declare-function gnutls-negotiate "gnutls" (&rest spec))
+(declare-function gnutls-negotiate "gnutls" t t) ; defun*
 
 ;;;###autoload
 (defun open-network-stream (name buffer host service &rest parameters)

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 74bdc98..f452730 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3042,8 +3042,6 @@ Link exprs of the form:
 
 (declare-function c-langelem-sym "cc-defs" (langelem))
 (declare-function c-langelem-pos "cc-defs" (langelem))
-(declare-function syntax-symbol  "gud"     (x))
-(declare-function syntax-point   "gud"     (x))
 
 (defun gud-find-class (f _line)
   "Find fully qualified class in file F at line LINE.

diff --git a/lisp/simple.el b/lisp/simple.el
index 9fd2218..dba0453 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2707,7 +2707,8 @@ support pty association, if PROGRAM is nil."
 (defvar tabulated-list-entries)
 (defvar tabulated-list-sort-key)
 (declare-function tabulated-list-init-header  "tabulated-list" ())
-(declare-function tabulated-list-print "tabulated-list" ())
+(declare-function tabulated-list-print "tabulated-list"
+                  (&optional remember-pos))
 
 (defvar process-menu-query-only nil)