Re: Simple useful function

[Deniz Dogan]

2010/7/5 Andrea Crotti <andrea.crotti.0@gmail.com>:
> I write it here because I hope someone will find it useful...
>
> I wrote this function to open all the files listed in my git repository
>
> --8<---------------cut here---------------start------------->8---
> (defun open-git-files ()
>  "Visit all the files in the current git project"
>  (interactive)
>  (dolist
>      (file (split-string (shell-command-to-string "git ls-files")))
>    (message "Opening %s" file)
>    ;; we have to keep the original position
>    (find-file file)))
> --8<---------------cut here---------------end--------------->8---
>
> The problem is that if I understand well when I find the file I also
> change the current directory, and then nothing works anymore...
>
> I also tried to store the start point and concatenate it but it also
> doesn't work.
>
> Is there a smarter way to do it? (maybe not using git ls-files at all?)
>
>
>

Just wrap the call to `find-file' in `save-excursion' and you're good.

(save-excursion
  (find-file file))

-- 
Deniz Dogan