Ivan Boldyrev <[EMAIL PROTECTED]> writes: > On 9162 day of my life Pascal Bourguignon wrote: >>>> [ Now, if anybody could explain me why it doesn't work automatically >>>> when I put this in my ~/.emacs: >>>> >>>> (case window-system >>>> ((nil) >>>> (message "houra") >>>> (normal-erase-is-backspace-mode)) ; never works :-( >>> >>> Does at least (message "houra") work? >>> Try also to use (normal-erase-is-backspace-mode 1) >> >> Yes, houra is logged. And with: >> (setq inhibit-default-init t) ; and >> (normal-erase-is-backspace-mode 1) ; it still leaves >> C-h bound to delete-backward-char, and >> DEL translated to C-d bound to delete-char > > What about > > (add-hook 'emacs-startup-hook > (lambda () > (case window-system > ...)))
(add-hook 'emacs-startup-hook (lambda () (message "setting up the keyboard") (case window-system ((nil) (message "houra") (normal-erase-is-backspace-mode 1)) ((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))))) I get: setting up the keyboard houra in the *Message*, but C-h is still delete-backward-char and DEL delete-char. -- __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