mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
Fix el-get-symbol customization widget
This commit is contained in:
parent
da23a4c80f
commit
7a23356096
|
@ -410,16 +410,13 @@ returning a list that contains it (and only it)."
|
||||||
:value-to-internal 'el-get-repeat-value-to-internal
|
:value-to-internal 'el-get-repeat-value-to-internal
|
||||||
:match 'el-get-repeat-match)
|
:match 'el-get-repeat-match)
|
||||||
|
|
||||||
(defun el-get-symbol-value-to-internal (widget string-or-symbol)
|
|
||||||
(el-get-as-symbol string-or-symbol))
|
|
||||||
|
|
||||||
(defun el-get-symbol-match (widget value)
|
(defun el-get-symbol-match (widget value)
|
||||||
(or (symbolp value) (stringp value)))
|
(or (symbolp value) (stringp value)))
|
||||||
|
|
||||||
(define-widget 'el-get-symbol 'symbol
|
(define-widget 'el-get-symbol 'symbol
|
||||||
"A string or a symbol, rendered as a symbol"
|
"A string or a symbol, rendered as a symbol"
|
||||||
:value-to-internal 'el-get-symbol-value-to-internal
|
:match 'el-get-symbol-match
|
||||||
:match 'el-get-symbol-match)
|
)
|
||||||
;;; END "Fuzzy" data structure support
|
;;; END "Fuzzy" data structure support
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user