[Emacs-diffs] /srv/bzr/emacs/trunk r104122: Declaration fixes.

[Glenn Morris]

------------------------------------------------------------
revno: 104122
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-05-04 23:35:41 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/net/network-stream.el
  lisp/progmodes/gud.el
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-05 06:27:24 +0000
+++ b/lisp/ChangeLog    2011-05-05 06:35:41 +0000
@@ -1,5 +1,11 @@
 2011-05-05  Glenn Morris  <address@hidden>
 
+       * 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
 

=== modified file 'lisp/net/network-stream.el'
--- a/lisp/net/network-stream.el        2011-05-04 01:44:58 +0000
+++ b/lisp/net/network-stream.el        2011-05-05 06:35:41 +0000
@@ -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)

=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el     2011-04-22 18:44:26 +0000
+++ b/lisp/progmodes/gud.el     2011-05-05 06:35:41 +0000
@@ -3042,8 +3042,6 @@
 
 (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.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-05-03 01:52:52 +0000
+++ b/lisp/simple.el    2011-05-05 06:35:41 +0000
@@ -2707,7 +2707,8 @@
 (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)