; Silence byte-compiler during bootstrap

This commit is contained in:
Stefan Kangas 2025-02-28 18:42:18 +01:00
parent 85ef06392a
commit 3a5cf24735
6 changed files with 6 additions and 1 deletions

View file

@ -81,6 +81,7 @@ if any, or the value of EXP."
(eval (let ((sv (get symbol 'saved-value)))
(if sv (car sv) exp)))))))
(declare-function widget-apply "wid-edit" (widget property &rest args))
(defun custom-initialize-reset (symbol exp)
"Initialize SYMBOL based on EXP.
Set the symbol, using its `:set' function (or `set-default-toplevel-value'

View file

@ -514,6 +514,7 @@ The variable `electric-layout-rules' says when and how to insert newlines."
;; The default :value-create produces "list of numbers" when given "list
;; of characters", this prints them as characters.
(declare-function widget-get "wid-edit" (widget property))
(defun electric--print-list-of-chars (widget)
(let ((print-integers-as-characters t))
(princ (widget-get widget :value) (current-buffer))))

View file

@ -93,7 +93,6 @@ ARGS are passed to `message'."
(get symbol 'widget-type))
(autoload 'widget-create-child-value "wid-edit")
(autoload 'widget-convert "wid-edit")
(autoload 'widget-default-get "wid-edit")
;; Note: The format of `gmm-tool-bar-item' may change if some future Emacs

View file

@ -33,6 +33,7 @@
(eval-when-compile (require 'cl-lib))
(defvar dos-codepage)
(autoload 'widget-put "wid-edit")
(autoload 'widget-value "wid-edit")
;;; MULE related key bindings and menus.

View file

@ -88,6 +88,8 @@
(eval-when-compile (require 'cl-lib))
(declare-function widget-put "wid-edit" (widget property value))
;;; Completion table manipulation
;; New completion-table operation.

View file

@ -30,6 +30,7 @@
(eval-when-compile (require 'cl-lib))
(declare-function widget-apply "wid-edit" (widget property &rest args))
(declare-function widget-convert "wid-edit" (type &rest args))
;;; From compile.el