Commit cc0f2ece authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent 1bf6ecf2
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):
......@@ -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)
......@@ -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
......@@ -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" . ""))
......@@ -99,7 +99,8 @@ supported. Defaults to non-nil on Windows, nil otherwise."
(mail-strip-quoted-names field) "\, *"))
(declare-function clipboard-kill-ring-save "menu-bar.el" (beg end))
(declare-function clipboard-kill-ring-save "menu-bar.el"
(beg end &optional region))
(defun mailclient-send-it ()
......@@ -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 ()
......@@ -131,7 +131,7 @@
(setq menu-items (cdr menu-items)))
(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)
......@@ -2177,7 +2177,7 @@ floating point support."
;; 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\".
......@@ -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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment