Silence some compilation warnings
* lisp/emacs-lisp/check-declare.el (compilation-forget-errors): * lisp/emulation/cua-base.el (delete-active-region): * lisp/net/net-utils.el (w32-get-console-output-codepage): * lisp/term/ns-win.el (ns-own-selection-internal) (ns-disown-selection-internal, ns-selection-owner-p) (ns-selection-exists-p, ns-get-selection): Declare for compiler..
This commit is contained in:
parent
ce7ff436ff
commit
e22f333ddb
4 changed files with 15 additions and 0 deletions
|
@ -284,6 +284,8 @@ TYPE is a string giving the nature of the error. Warning is displayed in
|
|||
type)
|
||||
nil check-declare-warning-buffer)))
|
||||
|
||||
(declare-function compilation-forget-errors "compile" ())
|
||||
|
||||
(defun check-declare-files (&rest files)
|
||||
"Check veracity of all `declare-function' statements in FILES.
|
||||
Return a list of any errors found."
|
||||
|
|
|
@ -790,6 +790,8 @@ Repeating prefix key when region is active works as a single prefix key."
|
|||
|
||||
;;; Region specific commands
|
||||
|
||||
(declare-function delete-active-region "delsel" (&optional killp))
|
||||
|
||||
(defun cua-delete-region ()
|
||||
"Delete the active region.
|
||||
Save a copy in register 0 if `cua-delete-copy-to-register-0' is non-nil."
|
||||
|
|
|
@ -326,6 +326,8 @@ This variable is only used if the variable
|
|||
(insert filtered-string)
|
||||
(set-marker (process-mark process) (point))))))
|
||||
|
||||
(declare-function w32-get-console-output-codepage "w32proc.c" ())
|
||||
|
||||
(defun net-utils-run-program (name header program args)
|
||||
"Run a network information program."
|
||||
(let ((buf (get-buffer-create (concat "*" name "*")))
|
||||
|
|
|
@ -930,6 +930,15 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
|
|||
(gui-method-define window-system-initialization ns
|
||||
#'ns-initialize-window-system)
|
||||
|
||||
(declare-function ns-own-selection-internal "nsselect.m" (selection value))
|
||||
(declare-function ns-disown-selection-internal "nsselect.m" (selection))
|
||||
(declare-function ns-selection-owner-p "nsselect.m"
|
||||
(&optional selection terminal))
|
||||
(declare-function ns-selection-exists-p "nsselect.m"
|
||||
(&optional selection terminal))
|
||||
(declare-function ns-get-selection "nsselect.m"
|
||||
(selection-symbol target-type &optional time-stamp terminal))
|
||||
|
||||
(gui-method-define gui-set-selection ns
|
||||
(lambda (selection value)
|
||||
(if value (ns-own-selection-internal selection value)
|
||||
|
|
Loading…
Add table
Reference in a new issue