Lines Matching +defs:function +defs:list
47 ;; * Find clean way to implement variable length list. See
48 ;; `TeX-printer-list' for an explanation.
53 ;; browse-url-browser-function' set up appropriately.]
210 "Choose an item from a list.
212 First argument TITLE is the name of the list.
213 Second argument ITEMS is a list whose members are either
227 (list title (cons "" items))))
254 (function (cdr choice)))
256 (define-key map (vector next-digit) function)
303 (defun widget-remove-if (predictate list)
304 (let (result (tail list))
324 Using before hooks also means that the :notify function can't know the
414 "Help-echo callback for widgets whose :help-echo is a function."
533 (cons (list (car vals)) (cdr vals)))
551 (setq widget (list widget)))
561 This is only meaningful for radio buttons or checkboxes in a list."
572 (defun widget-map-buttons (function &optional buffer maparg)
588 (if (and widget (funcall function widget maparg))
635 (push (list :type (car elt) :file (concat image ext)) specs)))
745 (list type)
762 (setcdr current (list :args (cdr current)))
982 ;; its action function.
1136 "Default function to call for completion inside fields."
1138 :type 'function
1165 (defvar widget-field-list nil
1167 (make-variable-buffer-local 'widget-field-list)
1183 widget-field-list (cons field widget-field-list))
1236 ;; active when this function is called
1253 (let ((fields widget-field-list)
1365 (list (widget-create-child-value widget
1440 "Call the value of the :complete-function property of WIDGET.
1442 (call-interactively (or (widget-get widget :complete-function)
1628 "Wrap value in a list unless it is inline."
1631 (list (widget-value widget))))
1705 (defun widget-sublist (list start &optional end)
1708 (if (> start 0) (setq list (nthcdr start list)))
1711 (setq list (copy-sequence list))
1712 (setcdr (nthcdr (- end start 1) list) nil)
1713 list)
1714 (copy-sequence list)))
1802 ;;; The `function-link' Widget.
1804 (define-widget 'function-link 'link
1805 "A link to an Emacs function."
1806 :action 'widget-function-link-action)
1808 (defun widget-function-link-action (widget &optional event)
1809 "Show the function specified by WIDGET."
1810 (describe-function (widget-value widget)))
1923 (unless (memq widget widget-field-list)
1933 "Remove the widget from the list of active editing fields."
1934 (setq widget-field-list (delq widget widget-field-list))
2009 (widget-put widget :children (list (widget-create-child-value
2017 (widget-put widget :children (list (widget-create-child-value
2024 (widget-put widget :children (list (widget-create-child-and-convert
2047 ;; Empty or singleton list, just return the value.
2053 ;; Reasonable sized list, use menu.
2293 (setq rest (append rest (list (car values)))
2453 (widget-put widget :buttons (nconc buttons (list button))))
2455 (widget-put widget :children (nconc children (list child))))
2542 "An insert button for the `editable-list' widget."
2544 :help-echo "Insert a new item into the list at this position."
2555 "A delete button for the `editable-list' widget."
2557 :help-echo "Delete this item from the list."
2565 ;;; The `editable-list' Widget.
2567 ;; (defcustom widget-editable-list-gui nil
2568 ;; "If non-nil, use GUI push-buttons in editable list when available."
2572 (define-widget 'editable-list 'default
2573 "A variable list of widgets of the same type."
2578 :format-handler 'widget-editable-list-format-handler
2580 :value-create 'widget-editable-list-value-create
2581 :value-get 'widget-editable-list-value-get
2583 :match 'widget-editable-list-match
2584 :match-inline 'widget-editable-list-match-inline
2585 :insert-before 'widget-editable-list-insert-before
2586 :delete-at 'widget-editable-list-delete-at)
2588 (defun widget-editable-list-format-handler (widget escape)
2590 ;; (let ((widget-push-button-gui widget-editable-list-gui))
2602 (defun widget-editable-list-value-create (widget)
2612 (setq children (cons (widget-editable-list-entry-create
2623 (defun widget-editable-list-value-get (widget)
2628 (defun widget-editable-list-match (widget value)
2629 ;; Value must be a list and all the members must match the type.
2631 (null (cdr (widget-editable-list-match-inline widget value)))))
2633 (defun widget-editable-list-match-inline (widget value)
2645 (defun widget-editable-list-insert-before (widget before)
2646 ;; Insert a new child in the list of children.
2656 (let ((child (widget-editable-list-entry-create
2669 (defun widget-editable-list-delete-at (widget child)
2670 ;; Delete child from list of children.
2697 (defun widget-editable-list-entry-create (widget value conv)
2698 ;; Create a new entry to the list.
2700 ;; (widget-push-button-gui widget-editable-list-gui)
2751 :value-get 'widget-editable-list-value-get
2854 (describe-function symbol)
2870 The value should be a function. The function will be called with one
2873 :type 'function
2945 (widget-put widget :buttons (list button)))
2970 (define-widget 'function-item 'const
2971 "An immutable function name."
3001 :complete-function 'ispell-complete-word
3031 :complete-function 'widget-file-complete
3057 (message "Making completion list...")
3059 (display-completion-list
3063 (message "Making completion list...%s" "done")))))
3104 :complete-function 'lisp-complete-symbol
3127 (defvar widget-function-prompt-value-history nil
3128 "History of input to `widget-function-prompt-value'.")
3130 (define-widget 'function 'restricted-sexp
3131 "A Lisp function."
3132 :complete-function (lambda ()
3138 :prompt-history 'widget-function-prompt-value-history
3143 (widget-put widget :error (format "Invalid function: %S"
3156 :complete-function (lambda ()
3173 :complete-function (lambda ()
3189 (mapcar #'list (coding-system-list t)) nil nil nil
3236 (interactive (list
3241 (tr (and (keymapp function-key-map)
3242 (lookup-key function-key-map (vector ev)))))
3252 (setq ev (key-description (list ev)))
3254 (setq tr (key-description (list (aref tr 0))))
3259 (insert (key-description (list ev2)) " "))))
3415 (define-widget 'list 'group
3416 "A Lisp list."
3439 (list (car value) (cdr value)))
3472 themselves. A list, for example, is defined as either nil, or a cons
3473 cell whose cdr itself is a list. The obvious way to translate this
3476 (define-widget 'my-list 'choice
3477 \"A list of sexps.\"
3478 :tag \"Sexp list\"
3479 :args '((const nil) (cons :value (nil) sexp my-list)))
3481 Here we attempt to define my-list as a choice of either the constant
3488 (define-widget 'sexp-list 'lazy
3489 \"A list of sexps.\"
3490 :tag \"Sexp list\"
3491 :type '(choice (const nil) (cons :value (nil) sexp sexp-list)))"
3510 (define-widget 'plist 'list
3511 "A property list."
3523 (other `(editable-list :inline t
3528 (list `(checklist :inline t
3533 (list other))))
3555 (define-widget 'alist 'list
3556 "An association list."
3568 (other `(editable-list :inline t
3573 (list `(checklist :inline t
3578 (list other))))
3653 (define-widget 'repeat 'editable-list
3654 "A variable length homogeneous list."
3659 "A list of members from a fixed set."
3697 (list (or facemenu-color-alist (defined-colors)))
3698 (completion (try-completion prefix list)))
3706 (message "Making completion list...")
3708 (display-completion-list (all-completions prefix list nil)
3710 (message "Making completion list...done")))))
3717 (list (cons 'foreground-color value))