Re: *scratch* "corrupt

[B. T. Raven]

"Michael Cadilhac" <michael.cadilhac-@t-lrde.epita.fr> wrote in message
news:mailman.11237.1129223846.20277.help-gnu-emacs@gnu.org...
> "B. T. Raven" <ecinmn@peoplepc.com> writes:
>
> >>From a fresh start *scratch* is being generated with -u ** in the
mode
> > line. How can I get the old one back (i.e. with the 3 or 4 line
notice
> > at the top?
> >
> > Thanks,
> >
> > Ed
>
>   It's possible you disabled that by yourself :
>
> In startup.el:
>
>   ;; Maybe display a startup screen.
>   (unless (or inhibit-startup-message
>       noninteractive
>       emacs-quick-startup)
>     [...]
>     ;; If *scratch* is selected and it is empty, insert an
>     ;; initial message saying not to create a file there.
>     (when (and initial-scratch-message
>        (equal (buffer-name) "*scratch*")
>        (= 0 (buffer-size)))
>       (insert initial-scratch-message)
>       (set-buffer-modified-p nil))
>     [...]
>
>   Haven't you set inhibit-startup-message to t ?
>
> --
>     Michael Cadilhac, a.k.a. Micha [mika] |
>                     Epita/LRDE promo 2007 |  Please note that you
should
>   2 rue de la Convention | 08.70.65.13.14 |  s/-@t-/@/ my mail
address.
> 94270 Le Kremlin Bicetre | 06.23.20.31.30 |
>
>


No, that's still nil and initial-scratch-message's value is normal.
Meanwhile, I think I've found what's overwriting it. In my .emacs I
have:

[switched encoding of this reply to utf-8]

....
      w32-lwindow-modifier       'super   ;; Left Windows
      w32-rwindow-modifier       'super   ;; Right Windows
      w32-apps-modifier          'hyper)  ;; App-Menu (key to right of
Right Windows)
(global-set-key [(super g)] 'goto-line)
 ;; ^ this works

and then later

....


(global-set-key [(super 1)] (insert ?¹ ))
(global-set-key [(super 2)] (insert ?² ))
(global-set-key [(super 3)] (insert ?³ ))
(global-set-key [(super 4)] (insert ?⁴ ))
(global-set-key [(super 5)] (insert ?⁵ ))
(global-set-key [(super 6)] (insert ?⁶ ))
(global-set-key [(super 7)] (insert ?⁷ ))
(global-set-key [(super 8)] (insert ?⁸ ))
(global-set-key [(super 9)] (insert ?⁹ ))
(global-set-key [(super 0)] (insert ?⁰ ))
(global-set-key [(super -)] (insert ?— )) ;; mdash

these later forms are apparently causing the scratch message to be
overwritten but I don't know how. What's the preferred way to assign
these characters to the super keys?

Thanks