define a keybinding for "find next alternate definition of last tag specified"

define a keybinding for "find next alternate definition of last tag specified"

[Burkhard Schultheis]

I want to have a single keystroke for the keystroke sequence C-u m-. 
(find next alternate definition of last tag specified). as far as I see 
there is no command associated with this action.

How can I define a global key in my .emacs file for this action?

Thank you in advance!

Regards
Burkhard

Re: define a keybinding for "find next alternate definition of last tag specified"

[Burkhard Schultheis]

Am 27.02.2013 13:36, schrieb Burkhard Schultheis:
> I want to have a single keystroke for the keystroke sequence C-u m-.
> (find next alternate definition of last tag specified). as far as I see
> there is no command associated with this action.
>
> How can I define a global key in my .emacs file for this action?
>
> Thank you in advance!
>

In the meantime I've tried it several ways, last test was:

(defun find-next-tag ()
   "Find next tag with TAGS file"
   ((kdb <C-u>) (kbd <M-.>)))

(global-set-key [M-f9] 'find-next-tag)

If a try Alt-F9 I get an error message reading "Wrong type argument: 
commandp, find-next-tag"

I've tried it with the function names, too, but I got every time the 
same error message.

What's wrong and how to do it right?

Regards
Burkhard

RE: define a keybinding for "find next alternate definition of lasttag specified"

[Drew Adams]

> (defun find-next-tag ()
>    "Find next tag with TAGS file"
>    ((kdb <C-u>) (kbd <M-.>)))
> 
> (global-set-key [M-f9] 'find-next-tag)
> 
> If a try Alt-F9 I get an error message reading "Wrong type argument: 
> commandp, find-next-tag"
> 
> I've tried it with the function names, too, but I got every time the 
> same error message.  What's wrong and how to do it right?

First, the error msg means that your function needs to have an `interactive'
spec.  That's what makes an EmacsLisp function be a command.  See node `Using
Interactive' of the Elisp manual.

Second, the function body is no good.  This is what I would do:

(defun find-next-tag ()
  "..."
  (interactive)
  (find-tag t))

The non-nil argument tells `find-tag' that you want the next definition.

You can find this out by doing `C-h k M-.'.  That tells you that the function
you need to call is `find-tag', and it tells you that a non-nil first argument
NEXT-P corresponds to providing a prefix argument interactively.

Re: define a keybinding for "find next alternate definition of last tag specified"

[Jambunathan K]

You can let Emacs define stuff for you.

    (fset 'find-alt-tag
       (lambda (&optional arg) "Keyboard macro." (interactive "p") 
         (kmacro-exec-ring-item (quote ("\256" 0 "%d")) arg)))

    (global-set-key [27 f9] (quote find-alt-tag))

Esc-F9 will find the alternate tag.

I have used kbd macros 
  C-x (  do something C-x )
  C-x C-k n
  M-x insert-kbd-macro 

followed by

    M-x global-set-key RET
    M-x list-command-history RET

For background reading do this.  Note the capital "K"

    C-h K C-x (
    C-h K C-x C-k n

ps: Gnus will truncate a C-u in the find-alt-tag definition above.  But
you have the recipe now, so...


Burkhard Schultheis <burkhard.schultheis@web.de> writes:

> Am 27.02.2013 13:36, schrieb Burkhard Schultheis:
>> I want to have a single keystroke for the keystroke sequence C-u m-.
>> (find next alternate definition of last tag specified). as far as I see
>> there is no command associated with this action.
>>
>> How can I define a global key in my .emacs file for this action?
>>
>> Thank you in advance!
>>
>
> In the meantime I've tried it several ways, last test was:
>
> (defun find-next-tag ()
>   "Find next tag with TAGS file"
>   ((kdb <C-u>) (kbd <M-.>)))
>
> (global-set-key [M-f9] 'find-next-tag)
>
> If a try Alt-F9 I get an error message reading "Wrong type argument:
> commandp, find-next-tag"
>
> I've tried it with the function names, too, but I got every time the
> same error message.
>
> What's wrong and how to do it right?
>
> Regards
> Burkhard
>
>

-- 

Re: define a keybinding for "find next alternate definition of lasttag specified"

[Burkhard Schultheis]

Am 27.02.2013 20:23, schrieb Drew Adams:
>
> Second, the function body is no good.  This is what I would do:
>
> (defun find-next-tag ()
>    "..."
>    (interactive)
>    (find-tag t))
>

I've tried now

(defun find-next-tag ()
     "..."
     (interactive)
     (find-tag 0 t))

and this works as desired!

Thank you and Jambunathan, too!

Regards
Burkhard

Re: define a keybinding for "find next alternate definition of last tag specified"

[Kevin Rodgers]

On 2/27/13 6:53 AM, Burkhard Schultheis wrote:
> Am 27.02.2013 13:36, schrieb Burkhard Schultheis:
>> I want to have a single keystroke for the keystroke sequence C-u m-.
>> (find next alternate definition of last tag specified). as far as I see
>> there is no command associated with this action.
>>
>> How can I define a global key in my .emacs file for this action?
>>
>> Thank you in advance!
>>
>
> In the meantime I've tried it several ways, last test was:
>
> (defun find-next-tag ()
> "Find next tag with TAGS file"
> ((kdb <C-u>) (kbd <M-.>)))

It looks like you're intending to set the function binding to a key
sequence, which effectively defines find-next-tag as keyboard macro.

But it needs to be a proper string or vector of keyboard events, not a
lambda form (which is what defun installs) so you need to use fset:

(fset 'find-next-tag "\C-u\M-.")

(fset 'find-next-tag [?\C-u ?\M-.])

> (global-set-key [M-f9] 'find-next-tag)
>
> If a try Alt-F9 I get an error message reading "Wrong type argument: commandp,
> find-next-tag"
>
> I've tried it with the function names, too, but I got every time the same error
> message.
>
> What's wrong and how to do it right?
>
> Regards
> Burkhard
>
>


-- 
Kevin Rodgers
Denver, Colorado, USA