aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2025-02-28 18:42:18 +0100
committerStefan Kangas2025-02-28 18:57:17 +0100
commit3a5cf24735809d79a8603f6b17079708fa0cce0a (patch)
treeb7efcab47b72e6831100d72e9d2d8af56b698cd2
parent85ef06392a07e2405dd03c7a1efe76348e001d19 (diff)
downloademacs-3a5cf24735809d79a8603f6b17079708fa0cce0a.tar.gz
emacs-3a5cf24735809d79a8603f6b17079708fa0cce0a.zip
; Silence byte-compiler during bootstrap
-rw-r--r--lisp/custom.el1
-rw-r--r--lisp/electric.el1
-rw-r--r--lisp/gnus/gmm-utils.el1
-rw-r--r--lisp/international/mule-cmds.el1
-rw-r--r--lisp/minibuffer.el2
-rw-r--r--lisp/simple.el1
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.
86Set the symbol, using its `:set' function (or `set-default-toplevel-value' 87Set 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