Key binding

Key binding

[Florian Lindner]

Hi!
I try to bind the shell-command function to the C-c v key (in pascal-mode)
The command should execute a file after compilation.

(define-key pascal-mode-map "\C-c\v" '(shell-command 
(file-name-sans-extension (buffer-file-name))))

But this somehow don't work...
Thx,
Florian

Re: Key binding

[Kai Großjohann]

Florian Lindner <Florian.Lindner@xgm.de> writes:

> (define-key pascal-mode-map "\C-c\v" '(shell-command 
> (file-name-sans-extension (buffer-file-name))))

(defun fl-execute-current-buffer ()
  "doc string here"
  (interactive)
  (shell-command (file-name-sans-extension (buffer-file-name))))
(define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)

kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: Key binding

[Florian Lindner]

Kai Großjohann wrote:

> Florian Lindner <Florian.Lindner@xgm.de> writes:
> 
>> (define-key pascal-mode-map "\C-c\v" '(shell-command
>> (file-name-sans-extension (buffer-file-name))))
> 
> (defun fl-execute-current-buffer ()
>   "doc string here"
>   (interactive)
>   (shell-command (file-name-sans-extension (buffer-file-name))))
> (define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)

Thanks,
it's not really working.
That's how it looks like now:

(add-hook 'pascal-mode-hook
          (lambda()
             [..]           
            (defun fl-execute-current-buffer ()
              "Executes the compiled file"
              (interactive)
              (shell-command (file-name-sans-extension buffer-file-name)))
            (define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)))


I've I execute this it just displays in the minibuffer:

Filename: Runtime error 201 at 0x0805C0DA
(some more hex codes)

Filename is the output my program gives right before it is waiting for 
input.
If I just execute the program in a bash shell it works ok, I can enter 
something.
A weird problem also apperas if I try to execute the program in the shell 
mode (M-x shell), it scrolling thousands of lines with withspaces down.
Everything works on a normal shell.
Any ideas?
Thanks,
Florian

Re: Key binding

[Kai Großjohann]

Florian Lindner <Florian.Lindner@xgm.de> writes:

> That's how it looks like now:
>
> (add-hook 'pascal-mode-hook
>           (lambda()
>              [..]           
>             (defun fl-execute-current-buffer ()
>               "Executes the compiled file"
>               (interactive)
>               (shell-command (file-name-sans-extension buffer-file-name)))
>             (define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)))

I meant:

(require 'pascal)  ; or is it pascal-mode?
(defun ...)
(define-key ...)

Without a mode hook.

> I've I execute this it just displays in the minibuffer:
>
> Filename: Runtime error 201 at 0x0805C0DA
> (some more hex codes)
>
> Filename is the output my program gives right before it is waiting for 
> input.
> If I just execute the program in a bash shell it works ok, I can enter 
> something.
> A weird problem also apperas if I try to execute the program in the shell 
> mode (M-x shell), it scrolling thousands of lines with withspaces down.
> Everything works on a normal shell.

Maybe that's because with M-x shell-command RET (also known as M-!)
you can't interact with the program.

Try M-x comint-run RET.

kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

Re: Key binding

[Kevin Rodgers]

Florian Lindner wrote:

> it's not really working.
> That's how it looks like now:
> 
> (add-hook 'pascal-mode-hook
>           (lambda()
>              [..]           
>             (defun fl-execute-current-buffer ()
>               "Executes the compiled file"
>               (interactive)
>               (shell-command (file-name-sans-extension buffer-file-name)))
>             (define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)))
> 
> 
> I've I execute this it just displays in the minibuffer:
> 
> Filename: Runtime error 201 at 0x0805C0DA
> (some more hex codes)
> 
> Filename is the output my program gives right before it is waiting for 
> input.
> If I just execute the program in a bash shell it works ok, I can enter 
> something.


I believe `shell-command' executes the COMMAND with standard input bound to
/dev/null.  Try `comint-run' instead.


> A weird problem also apperas if I try to execute the program in the shell 
> mode (M-x shell), it scrolling thousands of lines with withspaces down.
> Everything works on a normal shell.
> Any ideas?


Perhaps your program assumes that it is connected to a terminal.  You could
try using `term' (instead of `comint-run' or `shell-command').

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>

Re: Key binding

[Florian Lindner]

Kai Großjohann wrote:

> Florian Lindner <Florian.Lindner@xgm.de> writes:
> 
>> That's how it looks like now:
>>
>> (add-hook 'pascal-mode-hook
>>           (lambda()
>>              [..]
>>             (defun fl-execute-current-buffer ()
>>               "Executes the compiled file"
>>               (interactive)
>>               (shell-command (file-name-sans-extension
>>               buffer-file-name)))
>>             (define-key pascal-mode-map (kbd "C-c v")
>>             'fl-execute-current-buffer)))
> 
> I meant:
> 
> (require 'pascal)  ; or is it pascal-mode?
> (defun ...)
> (define-key ...)

I'm using pascal-mode

> 
> Without a mode hook.
> 
>> I've I execute this it just displays in the minibuffer:
>>
>> Filename: Runtime error 201 at 0x0805C0DA
>> (some more hex codes)
>>
>> Filename is the output my program gives right before it is waiting for
>> input.
>> If I just execute the program in a bash shell it works ok, I can enter
>> something.
>> A weird problem also apperas if I try to execute the program in the shell
>> mode (M-x shell), it scrolling thousands of lines with withspaces down.
>> Everything works on a normal shell.
> 
> Maybe that's because with M-x shell-command RET (also known as M-!)
> you can't interact with the program.
> 
> Try M-x comint-run RET.

comint-run has the same problem. Scrolling down thousands of blank lines.

term works.
But two more questions:
1) If the programs exits and I try to close the buffer (C-c 1) emacs just 
says "current buffer has no process" or "minibuffer not active" I can close 
the buffer via the menu, but not with C-c 1
2) How can I make the term buffer split the screen and not to take the 
entire screen?
Thanks,

Re: Key binding

[Florian Lindner]

Kevin Rodgers wrote:

> Florian Lindner wrote:
> 
>> it's not really working.
>> That's how it looks like now:
>> 
>> (add-hook 'pascal-mode-hook
>>           (lambda()
>>              [..]
>>             (defun fl-execute-current-buffer ()
>>               "Executes the compiled file"
>>               (interactive)
>>               (shell-command (file-name-sans-extension
>>               buffer-file-name)))
>>             (define-key pascal-mode-map (kbd "C-c v")
>>             'fl-execute-current-buffer)))
>> 
>> 
>> I've I execute this it just displays in the minibuffer:
>> 
>> Filename: Runtime error 201 at 0x0805C0DA
>> (some more hex codes)
>> 
>> Filename is the output my program gives right before it is waiting for
>> input.
>> If I just execute the program in a bash shell it works ok, I can enter
>> something.
> 
> 
> I believe `shell-command' executes the COMMAND with standard input bound
> to
> /dev/null.  Try `comint-run' instead.

comint-run has the same problem. Scrolling down thousands of blank lines.

>> A weird problem also apperas if I try to execute the program in the shell
>> mode (M-x shell), it scrolling thousands of lines with withspaces down.
>> Everything works on a normal shell.
>> Any ideas?
> 
> 
> Perhaps your program assumes that it is connected to a terminal.  You
> could try using `term' (instead of `comint-run' or `shell-command').

term works, Thanks.
But two more questions:
1) If the programs exits and I try to close the buffer (C-c 1) emacs just 
says "current buffer has no process" or "minibuffer not active" I can close 
the buffer via the menu, but not with C-c 1
2) How can I make the term buffer split the screen and not to take the 
entire screen?
Thanks,
Florian

Re: Key binding

[Kevin Rodgers]

Florian Lindner wrote:

> 2) How can I make the term buffer split the screen and not to take the 
> entire screen?


C-x 2


-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>

Re: Key binding

[fabrice bauzac]

> Florian Lindner wrote:

> >2) How can I make the term buffer split the screen and not to take the 
> >entire screen?

Maybe C-c 2 ?

-- 
fabrice bauzac
Software should be free.  http://www.gnu.org/philosophy/why-free.html

Re: Key binding

[Florian Lindner]

Kevin Rodgers wrote:

> Florian Lindner wrote:
> 
>> 2) How can I make the term buffer split the screen and not to take the
>> entire screen?
> 
> 
> C-x 2

split-window-vertically just splits the window and uses both parts for the 
current window.
I want that the new windows takes about the half of the current window, like 
the compile function.
Thx,
Florian

Re: Key binding

[Kester Clegg]

Florian Lindner <Florian.Lindner@xgm.de> writes:

> > C-x 2
> 
> split-window-vertically just splits the window and uses both parts for the 
> current window.
> I want that the new windows takes about the half of the current window, like 
> the compile function.


Do you mean you want the second window to be smaller than C-x 2 gives
you?

Define your own function and call it:

(defun littleSplit ()
  "Split in two unequal windows"
  (interactive)
  (split-window nil 52 nil))

-- 
************************************************************************
Kester Clegg				Dept. of Computer Science,
Research Assistant (UTC)		University of York, 
Tel (01904) 43 27 49			email: kester at cs.york.ac.uk
************************************************************************

Re: Key binding

[Kai Großjohann]

Kester Clegg <kester@cs.york.ac.uk> writes:

> Florian Lindner <Florian.Lindner@xgm.de> writes:
>
>> > C-x 2
>> 
>> split-window-vertically just splits the window and uses both parts for the 
>> current window.
>> I want that the new windows takes about the half of the current window, like 
>> the compile function.
>
> Do you mean you want the second window to be smaller than C-x 2 gives
> you?

I think he means that C-x 2 produces two windows with the same
content.  But he wants different content in one window.

I think C-x 2 M-x term RET will do that.  Starts term in one of the
two windows, the other is left alone (displaying the scratch buffer,
or whatever).

kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)

key binding

[Jason]

How to bind f5 to debug command(e.g gdb) and f7 to compile command(e.g
compile)?
Thanks.
                        Jason

Re: key binding

[Eli Zaretskii]

> From: "Jason" <realsong@hotmail.com>
> Newsgroups: gnu.emacs.help
> Date: Thu, 27 Nov 2003 13:35:30 +0800
> 
> How to bind f5 to debug command(e.g gdb) and f7 to compile command(e.g
> compile)?

The node "Init Rebinding" in the Emacs manual shows how to bind keys
to commands.  Please read it, and if something there is unclear,
please ask specific questions.

(I found that node in the manual by typing "i key binding RET" in the
Emacs manual.  I suggest to get familiar with the `i' command and use
it frequently.)

Re: key binding

[Jason]

OK! I will read it carefully. :)
I inserted some commands to .emacs and emacs do the thing he should do. the
commands i inserted:

     (add-hook 'c++-mode-hook
       (lambda ()
        (local-set-key (quote [f5]) (quote compile))))
     (add-hook 'c++-mode-hook
       (lambda ()
        (local-set-key (quote [f7]) (quote gdb))))

But now something else appear, after i press f5, emacs ask me if i want to
run my command like this "Compile command: make -k". It's a goodwill but I
hope it run the command as default forever. So I don't want to press another
key anymore.
how to ?
thanks!
                        Jason

Re: key binding

[Eli Zaretskii]

> From: "Jason" <realsong@hotmail.com>
> Newsgroups: gnu.emacs.help
> Date: Thu, 27 Nov 2003 15:43:06 +0800
> 
> But now something else appear, after i press f5, emacs ask me if i want to
> run my command like this "Compile command: make -k". It's a goodwill but I
> hope it run the command as default forever. So I don't want to press another
> key anymore.
> how to ?

I'm not sure I understand: is the command `recompile' what you want?

Re: key binding

[Jason]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 568 bytes --]


"Eli Zaretskii" <eliz@elta.co.il> дÈëÓʼþ
news:mailman.726.1069946597.399.help-gnu-emacs@gnu.org...
> > From: "Jason" <realsong@hotmail.com>
> > Newsgroups: gnu.emacs.help
> > Date: Thu, 27 Nov 2003 15:43:06 +0800
> >
> > But now something else appear, after i press f5, emacs ask me if i want
to
> > run my command like this "Compile command: make -k". It's a goodwill but
I
> > hope it run the command as default forever. So I don't want to press
another
> > key anymore.
> > how to ?
>
> I'm not sure I understand: is the command `recompile' what you want?

Yes!

Re: key binding

[leo]

"Eli Zaretskii" <eliz@elta.co.il> wrote in message
news:mailman.699.1069919563.399.help-gnu-emacs@gnu.org...
> (I found that node in the manual by typing "i key binding RET" in the
> Emacs manual.  I suggest to get familiar with the `i' command and use
> it frequently.)

wow, Info-index isreally quite good, thanks!

leo

key binding

[Mickey Ferguson]

I want to bind the key sequence Esc-F3 (or Alt-F3) to the function I have defined that will compare windows, ignoring whitespace.  The lambda that I've defined works fine.  I found the following lisp line of code that will make this key mapping:

(global-set-key (kbd "<escape><f3>") (lambda () (interactive)
                                       (compare-windows t)))

Unfortunately, it has the side effect of killing the other Esc-<something> types of commands.  For example, I frequently use Esc-> and Esc-< to move to the end of beginning of a buffer, and they no longer work.  I've confirmed that this one line is the culprit by commenting out the command, keeping the rest of my initialization intact, and all is well.  So can anyone else suggest how I can safely map the Esc-F3 (Alt-F3) key combination?  Replies to Mickey (dot) Ferguson (at) CassidianCommunications (dot) com.

Re: key binding

[Stefan Monnier]

> (global-set-key (kbd "<escape><f3>") (lambda () (interactive)
>                                        (compare-windows t)))

Try
   (global-set-key [M-f3] (lambda () (interactive) (compare-windows t)))
or
   (global-set-key [?\e f3] (lambda () (interactive) (compare-windows t)))

The problem with your binding is that it uses the `escape' event.
This event is normally unbound and turned (via function-key-map) into an
ESC event (the "ASCII char 27 known as 'escape'") to which lots of
things are bound.  This mapping is because ESC is what is received in
a text terminal when you press the `escape' key, so some code somewhere
needs to "unify" the ESC char (from the tty) and the `escape' event
(from the GUI library).


        Stefan

RE: key binding

[Mickey Ferguson]

Stefan Monnier wrote:

>Post by Mickey Ferguson
>(global-set-key (kbd "<escape><f3>") (lambda () (interactive)
>(compare-windows t)))

>Try
>(global-set-key [M-f3] (lambda () (interactive) (compare-windows t)))
>or
>(global-set-key [?\e f3] (lambda () (interactive) (compare-windows t)))

>The problem with your binding is that it uses the `escape' event.
>This event is normally unbound and turned (via function-key-map) into an
>ESC event (the "ASCII char 27 known as 'escape'") to which lots of
>things are bound. This mapping is because ESC is what is received in
>a text terminal when you press the `escape' key, so some code somewhere
>needs to "unify" the ESC char (from the tty) and the `escape' event
>(from the GUI library).

Thanks, Stefan.  The latter suggestion worked.  And since my problem is
now solved, I'm happy!  :-)  And thanks also for the great explanation of
what was wrong with my original attempt.  A lot of stuff I didn't know.