(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'
;; 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))))
(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
(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.
(eval-when-compile (require 'cl-lib))
+(declare-function widget-put "wid-edit" (widget property value))
+
;;; Completion table manipulation
;; New completion-table operation.
(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