unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* *scratch* "corrupt
@ 2005-10-13 16:46 B. T. Raven
  2005-10-13 17:18 ` Michael Cadilhac
       [not found] ` <mailman.11237.1129223846.20277.help-gnu-emacs@gnu.org>
  0 siblings, 2 replies; 8+ messages in thread
From: B. T. Raven @ 2005-10-13 16:46 UTC (permalink / raw)


>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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-13 16:46 *scratch* "corrupt B. T. Raven
@ 2005-10-13 17:18 ` Michael Cadilhac
       [not found] ` <mailman.11237.1129223846.20277.help-gnu-emacs@gnu.org>
  1 sibling, 0 replies; 8+ messages in thread
From: Michael Cadilhac @ 2005-10-13 17:18 UTC (permalink / raw)
  Cc: help-gnu-emacs

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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
       [not found] ` <mailman.11237.1129223846.20277.help-gnu-emacs@gnu.org>
@ 2005-10-14  2:58   ` B. T. Raven
  2005-10-14  7:45     ` Jason Rumney
  0 siblings, 1 reply; 8+ messages in thread
From: B. T. Raven @ 2005-10-14  2:58 UTC (permalink / raw)



"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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-14  2:58   ` B. T. Raven
@ 2005-10-14  7:45     ` Jason Rumney
  2005-10-14  8:07       ` Ryan Yeske
  2005-10-17  1:49       ` Stefan Monnier
  0 siblings, 2 replies; 8+ messages in thread
From: Jason Rumney @ 2005-10-14  7:45 UTC (permalink / raw)


"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 ?—)))

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-14  7:45     ` Jason Rumney
@ 2005-10-14  8:07       ` Ryan Yeske
  2005-10-14 12:55         ` B. T. Raven
  2005-10-17  1:49       ` Stefan Monnier
  1 sibling, 1 reply; 8+ messages in thread
From: Ryan Yeske @ 2005-10-14  8:07 UTC (permalink / raw)


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 ?—)))

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-14  8:07       ` Ryan Yeske
@ 2005-10-14 12:55         ` B. T. Raven
  2005-10-14 21:11           ` Ryan Yeske
  0 siblings, 1 reply; 8+ messages in thread
From: B. T. Raven @ 2005-10-14 12:55 UTC (permalink / raw)



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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-14 12:55         ` B. T. Raven
@ 2005-10-14 21:11           ` Ryan Yeske
  0 siblings, 0 replies; 8+ messages in thread
From: Ryan Yeske @ 2005-10-14 21:11 UTC (permalink / raw)


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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: *scratch* "corrupt
  2005-10-14  7:45     ` Jason Rumney
  2005-10-14  8:07       ` Ryan Yeske
@ 2005-10-17  1:49       ` Stefan Monnier
  1 sibling, 0 replies; 8+ messages in thread
From: Stefan Monnier @ 2005-10-17  1:49 UTC (permalink / raw)


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

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


        Stefan

^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2005-10-17  1:49 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-10-13 16:46 *scratch* "corrupt B. T. Raven
2005-10-13 17:18 ` Michael Cadilhac
     [not found] ` <mailman.11237.1129223846.20277.help-gnu-emacs@gnu.org>
2005-10-14  2:58   ` B. T. Raven
2005-10-14  7:45     ` Jason Rumney
2005-10-14  8:07       ` Ryan Yeske
2005-10-14 12:55         ` B. T. Raven
2005-10-14 21:11           ` Ryan Yeske
2005-10-17  1:49       ` Stefan Monnier

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).