*scratch* "corrupt

*scratch* "corrupt

[B. T. Raven]

>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

Re: *scratch* "corrupt

[Michael Cadilhac]

"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 |

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

Re: *scratch* "corrupt

[Jason Rumney]

"B. T. Raven" <ecinmn@peoplepc.com> writes:

> (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

1. You are running the insert commands in your .emacs. That will be
what is overwriting the *scratch* buffer.

2. You can't set a key definition to the result of a function with
arguments.

Either define functions without arguments that insert each of those
characters, and quote them in the global-set-key statement, or use a
lambda() form.

(defun insert-emdash () "Insert an emdash"
  (interactive)
  (insert ?—))
(global-set-key [(super -)] 'insert-emdash)

or

(global-set-key [(super -)] (lambda () (insert ?—)))

Re: *scratch* "corrupt

[Ryan Yeske]

jasonr (Jason Rumney) @  f2s.com writes:

> (global-set-key [(super -)] (lambda () (insert ?—)))

The above won't work.  You need to bind keys to commands (interactive
functions).

(global-set-key [(super -)] (lambda () (interactive) (insert ?—)))

Re: *scratch* "corrupt

[B. T. Raven]

"Ryan Yeske" <rcyeske@gmail.com> wrote in message
news:877jcgmsgz.fsf@cut.bc.hsia.telus.net...
> jasonr (Jason Rumney) @  f2s.com writes:
>
> > (global-set-key [(super -)] (lambda () (insert ?—)))
>
> The above won't work.  You need to bind keys to commands (interactive
> functions).
>
> (global-set-key [(super -)] (lambda () (interactive) (insert ?—)))

Thanks Ryan and Jason. I had already tried to wrap the inserts into
interactive functions but that didn't work either. Apparently, the super
key can modify only alpha characters.

Re: *scratch* "corrupt

[Ryan Yeske]

"B. T. Raven" <ecinmn@peoplepc.com> writes:

>> (global-set-key [(super -)] (lambda () (interactive) (insert ?—)))
>
> Thanks Ryan and Jason. I had already tried to wrap the inserts into
> interactive functions but that didn't work either. Apparently, the super
> key can modify only alpha characters.

Hmm, it works for me here.  What does C-h k s-- give you?

    s-- runs the command (lambda nil (interactive) (insert 342388))
       which is an interactive Lisp function.
    It is bound to s--.
    (anonymous)

When I press s-- it inserts —.

Re: *scratch* "corrupt

[Stefan Monnier]

> (global-set-key [(super -)] (lambda () (insert ?—)))

I'd just do (global-set-key [(super -)] "—").


        Stefan