bug#16617: 24.3.50; REGRESSION: `C-q ?' pops up annoying *Char Help* buffer

[Stefan Monnier]

> Can I fix it in emacs-24 along these lines? Thanks.   - Leo

Yes, please.


        Stefan


> === modified file 'lisp/simple.el'
> --- lisp/simple.el    2014-04-02 15:14:50 +0000
> +++ lisp/simple.el    2014-04-03 13:31:12 +0000
> @@ -658,11 +658,17 @@
>  The optional argument PROMPT specifies a string to use to prompt the user.
>  The variable `read-quoted-char-radix' controls which radix to use
>  for numeric input."
> -  (let ((message-log-max nil) done (first t) (code 0) translated)
> +  (let ((message-log-max nil)
> +     (help-events (delq nil (mapcar (lambda (c) (unless (characterp c) c))
> +                                    help-event-list)))
> +     done (first t) (code 0) translated)
>      (while (not done)
>        (let ((inhibit-quit first)
> -         ;; Don't let C-h get the help message--only help function keys.
> +         ;; Don't let C-h or other help chars get the help
> +         ;; message--only help function keys. See bug#16617.
>           (help-char nil)
> +         (help-event-list help-events)
>           (help-form
>            "Type the special character you want to use,
>  or the octal character code.