diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/wid-browse.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/wid-browse.el')
| -rw-r--r-- | lisp/wid-browse.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index 23396a900c0..b765e46b9c6 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el @@ -189,7 +189,7 @@ The :value of the widget shuld be the widget to be browsed." :value-create 'widget-browse-value-create :action 'widget-browse-action) -(defun widget-browse-action (widget &optional event) +(defun widget-browse-action (widget &optional _event) ;; Create widget browser for WIDGET's :value. (widget-browse (widget-get widget :value))) @@ -205,12 +205,12 @@ The :value of the widget shuld be the widget to be browsed." ;;; Keyword Printer Functions. -(defun widget-browse-widget (widget key value) +(defun widget-browse-widget (_widget _key value) "Insert description of WIDGET's KEY VALUE. VALUE is assumed to be a widget." (widget-create 'widget-browse value)) -(defun widget-browse-widgets (widget key value) +(defun widget-browse-widgets (_widget _key value) "Insert description of WIDGET's KEY VALUE. VALUE is assumed to be a list of widgets." (while value @@ -220,7 +220,7 @@ VALUE is assumed to be a list of widgets." (when value (widget-insert " ")))) -(defun widget-browse-sexp (widget key value) +(defun widget-browse-sexp (_widget _key value) "Insert description of WIDGET's KEY VALUE. Nothing is assumed about value." (let ((pp (condition-case signal @@ -236,7 +236,7 @@ Nothing is assumed about value." (widget-insert pp) (widget-create 'push-button :tag "show" - :action (lambda (widget &optional event) + :action (lambda (widget &optional _event) (with-output-to-temp-buffer "*Pp Eval Output*" (princ (widget-get widget :value)))) |