trouble writing small program

trouble writing small program

[jenia mtl]

Hello:

Using evil and ggtags, I want to be able to jump back, using C-o, to the
position where I execute
ggtags-find-tag-dwim.
I have wrote this small program:

  (defun ggtags-go-to-definition ()
    (interactive)
    (let ((current-pos (make-marker)))
      (add-to-list 'evil-jump-list current-pos)
      (ggtags-find-tag-dwim (thing-at-point 'symbol))))

But it gives me the error "Marker does not point anywhere".

Can someone please tell me, how do I write this program correctly? That
is, I want to store the position before executing `ggtags...` and then
be able to jump back (using "C-o" a.k.a "evil-jump-back").

Thanks in advance for your kind help.
Jenia

Re: trouble writing small program

[Pascal J. Bourguignon]

jenia mtl <jenia.ivlev@gmail.com> writes:

> Hello:
>
> Using evil and ggtags, I want to be able to jump back, using C-o, to the
> position where I execute
> ggtags-find-tag-dwim.
> I have wrote this small program:
>
>   (defun ggtags-go-to-definition ()
>     (interactive)
>     (let ((current-pos (make-marker)))
>       (add-to-list 'evil-jump-list current-pos)
>       (ggtags-find-tag-dwim (thing-at-point 'symbol))))
>
> But it gives me the error "Marker does not point anywhere".
>
> Can someone please tell me, how do I write this program correctly?
> That is,
> I want to store the position before executing `ggtags...` 

You can store it using set-marker.

-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk

RE: trouble writing small program

[Drew Adams]

>   (defun ggtags-go-to-definition ()
>     (interactive)
>     (let ((current-pos (make-marker)))
>       (add-to-list 'evil-jump-list current-pos)
>       (ggtags-find-tag-dwim (thing-at-point 'symbol))))
> 
> But it gives me the error "Marker does not point anywhere".

User `(point-marker)' to get a marker at point.  `make-marker'
creates a marker that doesn't point anywhere.