From cc0f2ece4753d6e15eaa9519dc672b9ef332a55d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 21 Jan 2014 20:50:40 -0500 Subject: [PATCH] Fix some function declarations * lisp/calc/calc-embed.el (thing-at-point-looking-at): * lisp/emacs-lisp/map-ynp.el (x-popup-dialog): * lisp/obsolete/lmenu.el (x-popup-dialog): * lisp/emacs-lisp/package.el (url-recreate-url): * lisp/mail/mailclient.el (clipboard-kill-ring-save): * lisp/subr.el (x-popup-dialog): Update declaration. * lisp/mail/rmail.el (rmail-mime-message-p): * lisp/window.el (tool-bar-lines-needed): Remove unnecessary declaration. --- lisp/ChangeLog | 11 +++++++++++ lisp/calc/calc-embed.el | 3 ++- lisp/emacs-lisp/map-ynp.el | 2 +- lisp/emacs-lisp/package.el | 2 +- lisp/mail/mailclient.el | 3 ++- lisp/mail/rmail.el | 1 - lisp/obsolete/lmenu.el | 2 +- lisp/subr.el | 2 +- lisp/window.el | 1 - 9 files changed, 19 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6bdf4463a6f..b87d79bb573 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2014-01-22 Glenn Morris + + * calc/calc-embed.el (thing-at-point-looking-at): + * emacs-lisp/map-ynp.el (x-popup-dialog): + * obsolete/lmenu.el (x-popup-dialog): + * emacs-lisp/package.el (url-recreate-url): + * mail/mailclient.el (clipboard-kill-ring-save): + * subr.el (x-popup-dialog): Update declaration. + * mail/rmail.el (rmail-mime-message-p): + * window.el (tool-bar-lines-needed): Remove unnecessary declaration. + 2014-01-21 Daniel Colascione * progmodes/sh-script.el (sh--inside-noncommand-expression): diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index e6fbb18dd8a..52d2f4c0611 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -30,7 +30,8 @@ (require 'calc-macs) ;; Declare functions which are defined elsewhere. -(declare-function thing-at-point-looking-at "thingatpt" (regexp)) +(declare-function thing-at-point-looking-at "thingatpt" + (regexp &optional distance)) (defun calc-show-plain (n) diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 5ab42621ded..7e4534a1f42 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -34,7 +34,7 @@ ;;; Code: -(declare-function x-popup-dialog "xmenu.c" (position contents &optional header)) +(declare-function x-popup-dialog "menu.c" (position contents &optional header)) (defun map-y-or-n-p (prompter actor list &optional help action-alist no-cursor-in-echo-area) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 118cf69e9cd..1daa9c04083 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -210,7 +210,7 @@ If VERSION is nil, the package is not loaded (it is \"disabled\")." (declare-function lm-header "lisp-mnt" (header)) (declare-function lm-commentary "lisp-mnt" (&optional file)) (defvar url-http-end-of-headers) -(declare-function url-recreate-url "url" (urlobj)) +(declare-function url-recreate-url "url-parse" (urlobj)) (defvar url-http-target-url) (defcustom package-archives '(("gnu" . "http://elpa.gnu.org/packages/")) diff --git a/lisp/mail/mailclient.el b/lisp/mail/mailclient.el index ce613fe70af..62285591470 100644 --- a/lisp/mail/mailclient.el +++ b/lisp/mail/mailclient.el @@ -99,7 +99,8 @@ supported. Defaults to non-nil on Windows, nil otherwise." (mail-strip-quoted-names field) "\, *")) result))))) -(declare-function clipboard-kill-ring-save "menu-bar.el" (beg end)) +(declare-function clipboard-kill-ring-save "menu-bar.el" + (beg end &optional region)) ;;;###autoload (defun mailclient-send-it () diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index cfde976ea0b..6692028c272 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -4121,7 +4121,6 @@ The message should be narrowed to just the headers." (autoload 'mail-position-on-field "sendmail") -(declare-function rmail-mime-message-p "rmailmm" ()) (declare-function rmail-mime-toggle-raw "rmailmm" (&optional state)) (defun rmail-retry-failure () diff --git a/lisp/obsolete/lmenu.el b/lisp/obsolete/lmenu.el index 632d3386867..8f676e00e43 100644 --- a/lisp/obsolete/lmenu.el +++ b/lisp/obsolete/lmenu.el @@ -131,7 +131,7 @@ (setq menu-items (cdr menu-items))) menu)) -(declare-function x-popup-dialog "xmenu.c" (position contents &optional header)) +(declare-function x-popup-dialog "menu.c" (position contents &optional header)) ;; XEmacs compatibility function (defun popup-dialog-box (data) diff --git a/lisp/subr.el b/lisp/subr.el index 40465556531..6709ebf0d02 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2177,7 +2177,7 @@ floating point support." nil)))))) ;; Behind display-popup-menus-p test. -(declare-function x-popup-dialog "xmenu.c" (position contents &optional header)) +(declare-function x-popup-dialog "menu.c" (position contents &optional header)) (defun y-or-n-p (prompt) "Ask user a \"y or n\" question. Return t if answer is \"y\". diff --git a/lisp/window.el b/lisp/window.el index 29f38538855..9bc929109d4 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -6811,7 +6811,6 @@ See also `fit-frame-to-buffer-margins'." :group 'help) (declare-function x-display-pixel-height "xfns.c" (&optional terminal)) -(declare-function tool-bar-lines-needed "xdisp.c" (&optional frame)) (defun window--sanitize-margin (margin left right) "Return MARGIN if it's a number between LEFT and RIGHT." -- 2.39.2