Re: C-h, F1, Backspace, and splash screen

[Kevin Rodgers]

Stefan Monnier wrote:
> > Nevertheless, if you look back at my first post in this thread
> > (http://lists.gnu.org/archive/html/emacs-devel/2009-05/msg00569.html), isn't
> > there a bug in the way startup.el prepares the splash screen?
>
> Yes, indeed.
> I've just installed the patch below which should address this problem.
>
>
>         Stefan
>
>
> --- startup.el.~1.530.~ 2009-04-28 14:57:44.000000000 -0400
> +++ startup.el  2009-05-28 21:26:50.000000000 -0400
> @@ -1824,6 +1824,11 @@
>  
>    ;; If keys have their default meanings,
>    ;; use precomputed string to save lots of time.
> +  (let ((c-h-accessible
> +         ;; If normal-erase-is-backspace is used on a tty, there's
> +         ;; no way to invoke C-h and you have to use F1 instead.
> +         (or (not (char-table-p keyboard-translate-table))
> +             (eq (aref keyboard-translate-table ?\C-h) ?\C-h))))
>    (if (and (eq (key-binding "\C-h") 'help-command)
>            (eq (key-binding "\C-xu") 'advertised-undo)
>            (eq (key-binding "\C-x\C-c") 'save-buffers-kill-terminal)
> @@ -1831,34 +1836,33 @@
>            (eq (key-binding "\C-hi") 'info)
>            (eq (key-binding "\C-hr") 'info-emacs-manual)
>            (eq (key-binding "\C-h\C-n") 'view-emacs-news))
> -      (progn
> +        (let ((help (if c-h-accessible "C-h" "<f1>")))
>         (insert "
> -Get help\t   C-h  (Hold down CTRL and press h)
> +Get help\t   " help "  (Hold down CTRL and press h)

That can lead to the following confusing text:

Get help           <f1> (Hold down CTRL and press h)

--
Kevin Rodgers
Denver, Colorado, USA