mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

wid-edit.el (widget-default-get): Work for inlined elements (Bug#12670)

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-01-07 11:24:35 +00:00
parent b49eebcc07
commit 3bee311e97
2 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-01-07 Katsumi Yamaoka <yamaoka@jpl.org>
* wid-edit.el (widget-default-get): Work for inlined elements.
(Bug#12670)
2013-01-07 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-default-host-alist): New defcustom.
@ -11,7 +16,7 @@
(tramp-adb-execute-adb-command, tramp-adb-maybe-open-connection):
Use `tramp-file-name-host' instead of `tramp-adb-file-name-host'.
* net/tramp-sh.el : Move eshell integration code to tramp.el.
* net/tramp-sh.el: Move eshell integration code to tramp.el.
2013-01-06 Jürgen Hötzel <juergen@archlinux.org>

11
lisp/wid-edit.el
View file

@ -526,7 +526,16 @@ Otherwise, just return the value."
"Extract the default external value of WIDGET."
(widget-apply widget :value-to-external
(or (widget-get widget :value)
(widget-apply widget :default-get))))
(progn
(when (widget-get widget :args)
(let (args)
(dolist (arg (widget-get widget :args))
(setq args (append args
(if (widget-get arg :inline)
(widget-get arg :args)
(list arg)))))
(widget-put widget :args args)))
(widget-apply widget :default-get)))))
(defun widget-match-inline (widget vals)
"In WIDGET, match the start of VALS."