Question

For example we have buffer provided by emacs widget example. So I want to obtain function which will return associated list of ‘((widget-name . widget-value) … )

Some thing like:

(widget-create 'push-button
               :notify 'get-widgets-alist
               "Get Widgets")

Answer 1

I’m not entirely sure what you’re asking. In your first paragraph you seem to be asking for a function that will return all the widgets in a buffer. But then your example suggests that you want a widget notification function. So, what do you really want?

(require 'cl)
(defun get-widgets ()
  "Return a list of widgets in the current buffer."
  (save-excursion
    (goto-char (point-min))
    (loop while (not (eobp))
          for new = (widget-at)
          and old = nil then new
          when (and new (not (eq new old))) collect new
          do (goto-char (next-overlay-change (point))))))