# HG changeset patch # User Glenn Morris # Date 1288592023 25200 # Node ID d1cffc3c49f50d3ea761858e9c7465a0139646f0 # Parent cb908fcc9f00b0f060d934a1fd74277311ec2db2 Fix some declarations. * lisp/gnus/nnimap.el (gnutls-negotiate): * lisp/gnus/nntp.el (netrc-parse): Fix declarations. * lisp/faces.el (xw-defined-colors, x-setup-function-keys): * lisp/mouse-sel.el (x-select-text): * lisp/term/w32console.el (x-setup-function-keys): Update declarations. diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/ChangeLog Sun Oct 31 23:13:43 2010 -0700 @@ -1,5 +1,9 @@ 2010-11-01 Glenn Morris + * faces.el (xw-defined-colors, x-setup-function-keys): + * mouse-sel.el (x-select-text): + * term/w32console.el (x-setup-function-keys): Update declarations. + * progmodes/ruby-mode.el (ruby-syntax-propertize-heredoc): Declare. * textmodes/ispell.el (comment-add): Declare. diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/faces.el --- a/lisp/faces.el Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/faces.el Sun Oct 31 23:13:43 2010 -0700 @@ -30,7 +30,7 @@ (eval-when-compile (require 'cl)) -(declare-function xw-defined-colors "term/x-win" (&optional frame)) +(declare-function xw-defined-colors "term/common-win" (&optional frame)) (defvar help-xref-stack-item) @@ -1957,7 +1957,7 @@ (list (cons 'cursor-color fg))))))) (declare-function x-create-frame "xfns.c" (parms)) -(declare-function x-setup-function-keys "term/x-win" (frame)) +(declare-function x-setup-function-keys "term/common-win" (frame)) (defun x-create-frame-with-faces (&optional parameters) "Create and return a frame with frame parameters PARAMETERS. @@ -2570,5 +2570,4 @@ (provide 'faces) -;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6 ;;; faces.el ends here diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 23:13:43 2010 -0700 @@ -1,3 +1,8 @@ +2010-11-01 Glenn Morris + + * nnimap.el (gnutls-negotiate): + * nntp.el (netrc-parse): Fix declarations. + 2010-11-01 Katsumi Yamaoka * gnus-util.el (gnus-string-match-p): New function, that is an alias to diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/gnus/nnimap.el --- a/lisp/gnus/nnimap.el Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/gnus/nnimap.el Sun Oct 31 23:13:43 2010 -0700 @@ -299,7 +299,8 @@ (* 5 60))) (nnimap-send-command "NOOP"))))))) -(declare-function gnutls-negotiate "subr" (fn file &optional arglist fileonly)) +(declare-function gnutls-negotiate "gnutls" + (proc type &optional priority-string trustfiles keyfiles)) (defun nnimap-open-connection (buffer) (unless nnimap-keepalive-timer diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/gnus/nntp.el --- a/lisp/gnus/nntp.el Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/gnus/nntp.el Sun Oct 31 23:13:43 2010 -0700 @@ -1,8 +1,8 @@ ;;; nntp.el --- nntp access for Gnus -;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, -;; 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, -;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, +;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news @@ -1172,7 +1172,7 @@ reading." (nntp-send-command "^.*\n" "MODE READER")) -(declare-function netrc-parse "netrc" (file)) +(declare-function netrc-parse "netrc" (&optional file)) (declare-function netrc-machine "netrc" (list machine &optional port defaultport)) (declare-function netrc-get "netrc" (alist type)) diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/mouse-sel.el --- a/lisp/mouse-sel.el Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/mouse-sel.el Sun Oct 31 23:13:43 2010 -0700 @@ -1,7 +1,7 @@ ;;; mouse-sel.el --- multi-click selection support for Emacs 19 -;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Mike Williams ;; Keywords: mouse @@ -299,7 +299,7 @@ SELECTION-THING-SYMBOL = name of variable where the current selection type for this selection should be stored.") -(declare-function x-select-text "term/x-win" (text)) +(declare-function x-select-text "term/common-win" (text)) (defvar mouse-sel-set-selection-function (if (eq mouse-sel-default-bindings 'interprogram-cut-paste) @@ -314,7 +314,7 @@ SELECTION, the name of the selection concerned, and VALUE, the text to store. -This sets the selection, unless `mouse-sel-default-bindings' +This sets the selection, unless `mouse-sel-default-bindings' is `interprogram-cut-paste'.") (declare-function x-selection-value "term/x-win" ()) @@ -749,5 +749,4 @@ (provide 'mouse-sel) -;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7 ;;; mouse-sel.el ends here diff -r cb908fcc9f00 -r d1cffc3c49f5 lisp/term/w32console.el --- a/lisp/term/w32console.el Sun Oct 31 23:00:04 2010 -0700 +++ b/lisp/term/w32console.el Sun Oct 31 23:13:43 2010 -0700 @@ -45,7 +45,7 @@ ("white" 15 65535 65535 65535)) "A list of VGA console colors, their indices and 16-bit RGB values.") -(declare-function x-setup-function-keys "w32-fns" (frame)) +(declare-function x-setup-function-keys "term/common-win" (frame)) (defun terminal-init-w32console () "Terminal initialization function for w32 console." @@ -62,4 +62,4 @@ (tty-set-up-initial-frame-faces) (run-hooks 'terminal-init-w32-hook)) -;; arch-tag: 3195fd5e-ab86-4a46-b1dc-4f7a8c8deff3 +;;; w32console.el ends here