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

[Pascal Bourguignon]

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