Trying to bind a new key in C mode

Trying to bind a new key in C mode

[Jim Hunter]

I would like to bind C-c c to run the 'compile' function in C mode 
(and, ultimately, C-c r to run 'recompile'), but cannot get it to
work.  Unfortunately, I know nothing about Lisp, so I simply copied
the example from the Emacs info page "Local Keymaps" and modified it
to this (in my .emacs file):

(add-hook 'c-mode-hook
		'(lambda ()
		   (define-key c-mode-map "\C-cc" 'compile)))

Any help would be greatly appreciated

Jim Hunter

Re: Trying to bind a new key in C mode

[August]

On fre, 2005-02-11 at 18:09 -0600, Jim Hunter wrote:
> I would like to bind C-c c to run the 'compile' function in C mode 
> (and, ultimately, C-c r to run 'recompile'), but cannot get it to
> work.  Unfortunately, I know nothing about Lisp, so I simply copied
> the example from the Emacs info page "Local Keymaps" and modified it
> to this (in my .emacs file):
> 
> (add-hook 'c-mode-hook
> 		'(lambda ()
> 		   (define-key c-mode-map "\C-cc" 'compile)))
> 

Try

(add-hook 'c-mode-hook
          '(lambda () (local-set-key "\C-cc" 'compile)))

Since compiling and running a program are such common operations I
instead have the following definitions in my `.emacs'. The global key
settings apply to all buffers in all modes.

(global-set-key [f11] 'compile)
(global-set-key [f12] 'my-shell-command)

(defun my-shell-command ()
  "Similar to `shell-command', but shows previous command as initial
contents or (if there is no previous command) guesses the name of the
program you want to run based on the name of the current buffer and
inserts that as initial contents."
  (interactive)
  (shell-command 
   (read-from-minibuffer "Shell command: " 
                         (let ((f (buffer-file-name)))
                           (when f
                             (let ((bin (file-name-sans-extension 
                                         (file-name-nondirectory f))))
                               (cond (shell-command-history 
                                      (car shell-command-history))
                                     (t
                                      (concat "./" bin " &"))))))
                         nil nil 'shell-command-history)))

-- 
August

Re: Trying to bind a new key in C mode

[Jim Hunter]

August <fusionfive@comhem.se> writes:

> On fre, 2005-02-11 at 18:09 -0600, Jim Hunter wrote:
> > I would like to bind C-c c to run the 'compile' function in C mode 
> > (and, ultimately, C-c r to run 'recompile'), but cannot get it to
> > work.  Unfortunately, I know nothing about Lisp, so I simply copied
> > the example from the Emacs info page "Local Keymaps" and modified it
> > to this (in my .emacs file):
> > 
> > (add-hook 'c-mode-hook
> > 		'(lambda ()
> > 		   (define-key c-mode-map "\C-cc" 'compile)))
> > 
> 
> Try
> 
> (add-hook 'c-mode-hook
>           '(lambda () (local-set-key "\C-cc" 'compile)))
> 
[snip]

Thanks very much for the reply.  When your example also didn't work,
I realized that cc-mode might be loading before that part of .emacs was
processed.  Moving the add-hook call before my desktop was loaded fixed
it -- both for your example and the original example.

Thanks again!

Jim