たとえば、emacs widget exampleによって提供されるバッファがあります。だから私は '((widget-name . widget-value) ... ) の関連リストを返す関数を取得したい
何かのようなもの:
(widget-create 'push-button
:notify 'get-widgets-alist
"Get Widgets")
たとえば、emacs widget exampleによって提供されるバッファがあります。だから私は '((widget-name . widget-value) ... ) の関連リストを返す関数を取得したい
何かのようなもの:
(widget-create 'push-button
:notify 'get-widgets-alist
"Get Widgets")
あなたが何を求めているのか完全にはわかりません。最初の段落では、バッファ内のすべてのウィジェットを返す関数を求めているようです。しかし、あなたの例は、ウィジェット通知機能が必要であることを示唆しています。それで、あなたは本当に何が欲しいですか?
(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))))))