Richard Stallman wrote:
> 		 (default-keys
> 		   '(
> 		     ;; These are not mentioned but are basic:
> 		     (ESC-prefix [27])
> 		     (Control-X-prefix [?\C-x])
> 		     (mode-specific-command-prefix [?\C-c])
>
>
> Please put that constant list into a variable
> instead of embedding it inside the function.
>   
Done.
> 		 (sort-keys
> 		  (lambda(left right)
> 		    (let ((x (append (cadr left)  nil))
> 			  (y (append (cadr right) nil)))
> 		      (while (and x y
> 				  (equal (car x) (car y)))
> 			(setq x (cdr x))
> 			(setq y (cdr y)))
>
> Please give this a defun and give it a doc string that explains
> precisely what it tests.
>   
Done.
>                   (insert-button (car remark)
>                                  'action
>                                  (lambda(b) (interactive)
>                                    (let ((value (button-get b 'value)))
>                                      (help--describe-nonstandard-key value)))
>                                  'value (cdr remark)
>                                  'follow-link t
>                                  'face '(:inherit link
>                                                   :background "yellow"))
>
> What is the purpose of presenting that button?
> What does it do when the user clicks on it?
> Comments have to say such things.
>   
Done now - I hope the comments tell what is needed now.
> In general, your code has hardly any comments.  Please add comments enough
> to make it _clear_.
>   
Done.

I have attached the new version.

However I noticed a strange thing when testing this on w32 from 
2006-07-02. If I start with "emacs -Q", then load the attached file and 
evaluate it with eval-buffer, then the old `help-with-tutorial' from 
help-fns.el may still be bound to C-h t. (I actually used F1 t.)

I check this with "F1 k F1 t". If I now call eval-buffer again and "F1 k 
F1 t" the new definition of help-with-tutorial from the attached file 
will be shown.