diff options
| author | Stefan Kangas | 2025-02-28 18:42:18 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-02-28 18:57:17 +0100 |
| commit | 3a5cf24735809d79a8603f6b17079708fa0cce0a (patch) | |
| tree | b7efcab47b72e6831100d72e9d2d8af56b698cd2 | |
| parent | 85ef06392a07e2405dd03c7a1efe76348e001d19 (diff) | |
| download | emacs-3a5cf24735809d79a8603f6b17079708fa0cce0a.tar.gz emacs-3a5cf24735809d79a8603f6b17079708fa0cce0a.zip | |
; Silence byte-compiler during bootstrap
| -rw-r--r-- | lisp/custom.el | 1 | ||||
| -rw-r--r-- | lisp/electric.el | 1 | ||||
| -rw-r--r-- | lisp/gnus/gmm-utils.el | 1 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 1 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 2 | ||||
| -rw-r--r-- | lisp/simple.el | 1 |
6 files changed, 6 insertions, 1 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 9e6eb930467..dee55d9ed11 100644 --- a/lisp/custom.el +++ b/lisp/custom.el | |||
| @@ -81,6 +81,7 @@ if any, or the value of EXP." | |||
| 81 | (eval (let ((sv (get symbol 'saved-value))) | 81 | (eval (let ((sv (get symbol 'saved-value))) |
| 82 | (if sv (car sv) exp))))))) | 82 | (if sv (car sv) exp))))))) |
| 83 | 83 | ||
| 84 | (declare-function widget-apply "wid-edit" (widget property &rest args)) | ||
| 84 | (defun custom-initialize-reset (symbol exp) | 85 | (defun custom-initialize-reset (symbol exp) |
| 85 | "Initialize SYMBOL based on EXP. | 86 | "Initialize SYMBOL based on EXP. |
| 86 | Set the symbol, using its `:set' function (or `set-default-toplevel-value' | 87 | Set the symbol, using its `:set' function (or `set-default-toplevel-value' |
diff --git a/lisp/electric.el b/lisp/electric.el index 8ddd982930e..39e13e1ca0c 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -514,6 +514,7 @@ The variable `electric-layout-rules' says when and how to insert newlines." | |||
| 514 | 514 | ||
| 515 | ;; The default :value-create produces "list of numbers" when given "list | 515 | ;; The default :value-create produces "list of numbers" when given "list |
| 516 | ;; of characters", this prints them as characters. | 516 | ;; of characters", this prints them as characters. |
| 517 | (declare-function widget-get "wid-edit" (widget property)) | ||
| 517 | (defun electric--print-list-of-chars (widget) | 518 | (defun electric--print-list-of-chars (widget) |
| 518 | (let ((print-integers-as-characters t)) | 519 | (let ((print-integers-as-characters t)) |
| 519 | (princ (widget-get widget :value) (current-buffer)))) | 520 | (princ (widget-get widget :value) (current-buffer)))) |
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el index 11a7a8bbd61..5293cff93ed 100644 --- a/lisp/gnus/gmm-utils.el +++ b/lisp/gnus/gmm-utils.el | |||
| @@ -93,7 +93,6 @@ ARGS are passed to `message'." | |||
| 93 | (get symbol 'widget-type)) | 93 | (get symbol 'widget-type)) |
| 94 | 94 | ||
| 95 | (autoload 'widget-create-child-value "wid-edit") | 95 | (autoload 'widget-create-child-value "wid-edit") |
| 96 | (autoload 'widget-convert "wid-edit") | ||
| 97 | (autoload 'widget-default-get "wid-edit") | 96 | (autoload 'widget-default-get "wid-edit") |
| 98 | 97 | ||
| 99 | ;; Note: The format of `gmm-tool-bar-item' may change if some future Emacs | 98 | ;; Note: The format of `gmm-tool-bar-item' may change if some future Emacs |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 8b373ec11a5..6a4bc590922 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -33,6 +33,7 @@ | |||
| 33 | (eval-when-compile (require 'cl-lib)) | 33 | (eval-when-compile (require 'cl-lib)) |
| 34 | 34 | ||
| 35 | (defvar dos-codepage) | 35 | (defvar dos-codepage) |
| 36 | (autoload 'widget-put "wid-edit") | ||
| 36 | (autoload 'widget-value "wid-edit") | 37 | (autoload 'widget-value "wid-edit") |
| 37 | 38 | ||
| 38 | ;;; MULE related key bindings and menus. | 39 | ;;; MULE related key bindings and menus. |
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 76061652161..8caf696a21b 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -88,6 +88,8 @@ | |||
| 88 | 88 | ||
| 89 | (eval-when-compile (require 'cl-lib)) | 89 | (eval-when-compile (require 'cl-lib)) |
| 90 | 90 | ||
| 91 | (declare-function widget-put "wid-edit" (widget property value)) | ||
| 92 | |||
| 91 | ;;; Completion table manipulation | 93 | ;;; Completion table manipulation |
| 92 | 94 | ||
| 93 | ;; New completion-table operation. | 95 | ;; New completion-table operation. |
diff --git a/lisp/simple.el b/lisp/simple.el index 25c4bd36123..2d36062e9c2 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -30,6 +30,7 @@ | |||
| 30 | 30 | ||
| 31 | (eval-when-compile (require 'cl-lib)) | 31 | (eval-when-compile (require 'cl-lib)) |
| 32 | 32 | ||
| 33 | (declare-function widget-apply "wid-edit" (widget property &rest args)) | ||
| 33 | (declare-function widget-convert "wid-edit" (type &rest args)) | 34 | (declare-function widget-convert "wid-edit" (type &rest args)) |
| 34 | 35 | ||
| 35 | ;;; From compile.el | 36 | ;;; From compile.el |