# HG changeset patch # User Stefan Monnier # Date 1243560700 0 # Node ID 2ebd7d8c8506b640c4b38d5aec86241ad53e0926 # Parent 220750e4fe9a93db9c67b4dede0c74af4bf77562 (normal-no-mouse-startup-screen): Use F1 rather than C-h if C-h is remapped to something else like DEL. diff -r 220750e4fe9a -r 2ebd7d8c8506 lisp/ChangeLog --- a/lisp/ChangeLog Thu May 28 20:36:03 2009 +0000 +++ b/lisp/ChangeLog Fri May 29 01:31:40 2009 +0000 @@ -1,7 +1,11 @@ +2009-05-29 Stefan Monnier + + * startup.el (normal-no-mouse-startup-screen): Use F1 rather than C-h + if C-h is remapped to something else like DEL. + 2009-05-26 Chong Yidong - * edmacro.el (edmacro-parse-keys): Fix 2008-08-19 - change (Bug#3387). + * edmacro.el (edmacro-parse-keys): Fix 2008-08-19 change (Bug#3387). * view.el (view-recenter): Allow recenter to compute window height normally. @@ -12,8 +16,8 @@ 2009-05-26 Kenichi Handa - * textmodes/table.el (table--unibyte-char-to-multibyte): Function - deleted. + * textmodes/table.el (table--unibyte-char-to-multibyte): + Delete function. (*table--cell-self-insert-command, *table--cell-quoted-insert): Don't call table--unibyte-char-to-multibyte (Bug#3372). @@ -47,8 +51,8 @@ (grep-apply-setting): New function. (grep-highlight-matches, grep-command, grep-template) (grep-use-null-device, grep-find-command, grep-find-template): - Clarify role of grep-compute-defaults in docstrings. Use - grep-apply-setting to apply changes (Bug#3343). + Clarify role of grep-compute-defaults in docstrings. + Use grep-apply-setting to apply changes (Bug#3343). 2009-05-21 Glenn Morris diff -r 220750e4fe9a -r 2ebd7d8c8506 lisp/startup.el --- a/lisp/startup.el Thu May 28 20:36:03 2009 +0000 +++ b/lisp/startup.el Fri May 29 01:31:40 2009 +0000 @@ -1824,64 +1824,68 @@ ;; If keys have their default meanings, ;; use precomputed string to save lots of time. - (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) - (eq (key-binding "\C-ht") 'help-with-tutorial) - (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 - (insert " -Get help\t C-h (Hold down CTRL and press h) + (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) + (eq (key-binding "\C-ht") 'help-with-tutorial) + (eq (key-binding "\C-hi") 'info) + (eq (key-binding "\C-hr") 'info-emacs-manual) + (eq (key-binding "\C-h\C-n") 'view-emacs-news)) + (let ((help (if c-h-accessible "C-h" ""))) + (insert " +Get help\t " help " (Hold down CTRL and press h) ") - (insert-button "Emacs manual" - 'action (lambda (button) (info-emacs-manual)) - 'follow-link t) - (insert " C-h r\t") - (insert-button "Browse manuals" - 'action (lambda (button) (Info-directory)) - 'follow-link t) - (insert "\t C-h i + (insert-button "Emacs manual" + 'action (lambda (button) (info-emacs-manual)) + 'follow-link t) + (insert " " help " r\t") + (insert-button "Browse manuals" + 'action (lambda (button) (Info-directory)) + 'follow-link t) + (insert "\t " help " i ") - (insert-button "Emacs tutorial" - 'action (lambda (button) (help-with-tutorial)) - 'follow-link t) - (insert " C-h t\tUndo changes\t C-x u + (insert-button "Emacs tutorial" + 'action (lambda (button) (help-with-tutorial)) + 'follow-link t) + (insert " " help " t\tUndo changes\t C-x u ") - (insert-button "Buy manuals" - 'action (lambda (button) (view-order-manuals)) - 'follow-link t) - (insert "\t C-h C-m\tExit Emacs\t C-x C-c")) + (insert-button "Buy manuals" + 'action (lambda (button) (view-order-manuals)) + 'follow-link t) + (insert "\t " help " C-m\tExit Emacs\t C-x C-c")) - (insert (format " + (insert (format " Get help\t %s " - (let ((where (where-is-internal - 'help-command nil t))) - (if where - (key-description where) - "M-x help")))) - (insert-button "Emacs manual" - 'action (lambda (button) (info-emacs-manual)) - 'follow-link t) - (insert (substitute-command-keys"\t \\[info-emacs-manual]\t")) - (insert-button "Browse manuals" - 'action (lambda (button) (Info-directory)) - 'follow-link t) - (insert (substitute-command-keys "\t \\[info] + (let ((where (where-is-internal 'help-command nil t))) + (if where + (key-description where) + "M-x help")))) + (insert-button "Emacs manual" + 'action (lambda (button) (info-emacs-manual)) + 'follow-link t) + (insert (substitute-command-keys"\t \\[info-emacs-manual]\t")) + (insert-button "Browse manuals" + 'action (lambda (button) (Info-directory)) + 'follow-link t) + (insert (substitute-command-keys "\t \\[info] ")) - (insert-button "Emacs tutorial" - 'action (lambda (button) (help-with-tutorial)) - 'follow-link t) - (insert (substitute-command-keys - "\t \\[help-with-tutorial]\tUndo changes\t \\[advertised-undo] + (insert-button "Emacs tutorial" + 'action (lambda (button) (help-with-tutorial)) + 'follow-link t) + (insert (substitute-command-keys + "\t \\[help-with-tutorial]\tUndo changes\t \\[advertised-undo] ")) - (insert-button "Buy manuals" - 'action (lambda (button) (view-order-manuals)) - 'follow-link t) - (insert (substitute-command-keys - "\t \\[view-order-manuals]\tExit Emacs\t \\[save-buffers-kill-terminal]"))) + (insert-button "Buy manuals" + 'action (lambda (button) (view-order-manuals)) + 'follow-link t) + (insert (substitute-command-keys + "\t \\[view-order-manuals]\tExit Emacs\t \\[save-buffers-kill-terminal]")))) ;; Say how to use the menu bar with the keyboard. (insert "\n")