procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Note that :custom-show is obsolete.

Browse source 
Fixes: debbugs:75
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-07 17:59:00 +02:00
parent a8815b00dc
commit af0905c84a
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/cus-edit.el
View file

@ -1829,6 +1829,7 @@ item in another window.\n\n"))
;; We want simple widgets to be displayed by default, but complex
;; widgets to be hidden.
;; This widget type is obsolete as of Emacs 24.1.
(widget-put (get 'item 'widget-type) :custom-show t)
(widget-put (get 'editable-field 'widget-type)
:custom-show (lambda (_widget value)
@ -2257,6 +2258,7 @@ and `face'."
(setq widget nil)))))
(widget-setup))
(make-obsolete 'custom-show "this widget type is no longer supported." "24.1")
(defun custom-show (widget value)
"Non-nil if WIDGET should be shown with VALUE by default."
(let ((show (widget-get widget :custom-show)))