Re: ILC2005: McCarthy denounces Common Lisp, "Lisp", XML, and Rahul

[Pascal Bourguignon <pjb@informatimago.com>]

Ivan Boldyrev <boldyrev+nospam@cgitftp.uiggm.nsc.ru> 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