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
[email protected]
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
