Ivan Boldyrev <[EMAIL PROTECTED]> writes: > On 9163 day of my life Pascal Bourguignon wrote: >> (add-hook 'emacs-startup-hook >> (lambda () >> (message "setting up the keyboard") >> (case window-system >> ((nil) >> (message "houra") >> (normal-erase-is-backspace-mode 1)) >> >> I get: >> setting up the keyboard >> houra >> in the *Message*, but C-h is still delete-backward-char and DEL delete-char. > > Then use after-init-hook or clean up you default.el :)
The only thing that my defaults.el files contain is this: ;;;BEGIN gcl addition (autoload 'dbl "dbl" "Make a debugger to run lisp, maxima and or gdb in" t) ;;;END gcl addition And I even don't have a defaults.el for 22.0.50... Now, with: (add-hook 'after-init-hook ; emacs-startup-hook (lambda () (message "setting up the keyboard") (case window-system ((nil) (message "houra") (normal-erase-is-backspace-mode 1) (message "C-h = %S" (key-binding "\C-h")) (message "DEL = %S" (key-binding "\C-?"))) ((x) (define-key global-map [(delete)] "\C-d") (make-face-bold 'bold-italic)) ((mac) (setq mac-command-key-is-meta nil mac-reverse-ctrl-meta nil) (set-keyboard-coding-system 'mac-roman))))) the *Message* end with: Loading erc-ring (source)...done Loading erc-nickserv (source)...done Loading erc-track (source)...done C-h = help-command <------- DEL = vm-scroll-backward <------- .EMACS DONE setting up the keyboard houra C-h = help-command <------- DEL = delete-backward-char <------- Loading jit-lock...done For information about the GNU Project and its goals, type C-h C-p. and with: M-x (progn (message "C-h = %S" (key-binding "\C-h")) (message "DEL = %S" (key-binding "\C-?"))) RET It adds: C-h = help-command DEL = delete-backward-char BUT C-h still deletes the backward char !!! M-x describe-key RET C-h RET gives: DEL runs the command delete-backward-char ... whatever the combination of ticks on the xterm options: Backarrow key (BS/DEL) Delete is DEL C-q C-h inserts ^? Note that as soon as I quit emacs, C-v C-h enters ^H as expected: the terminal works correctly... Or as soon as I M-x normal-erase-is-backspace-mode RET manually, it behaves as expected: C-q C-h inserts ^H and C-h gives the help prefix. Perhaps the modes are reset even after after-init-hook? -- __Pascal Bourguignon__ http://www.informatimago.com/ This is a signature virus. Add me to your signature and help me to live _______________________________________________ Help-gnu-emacs mailing list Help-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnu-emacs