Luke Crook <l...@balooga.com> writes: > Luke Crook <luke <at> balooga.com> writes: > >> >> Eric Schulte <schulte.eric <at> gmail.com> writes: >> >> > #+begin_src emacs-lisp :var buf=(buffer-file-name (current-buffer)) >> > :exports >> both >> > (message "buffer %S!" buf) >> > #+end_src >> > > > The following code will now generate the commit log. > > #+begin_src emacs-lisp :var limit=-1 :var buf=(buffer-name (current-buffer)) > :exports results > ;; Most of this code is copied from vc.el vc-print-log > (when (vc-find-backend-function (vc-backend (buffer-file-name (get-buffer > buf))) > 'print-log) > (let ((limit -1) > (vc-fileset nil) > (backend nil) > (files nil)) > (with-current-buffer (get-buffer buf) > (setq vc-fileset (vc-deduce-fileset t)) ;FIXME: Why t? --Stef > (setq backend (car vc-fileset)) > (setq files (cadr vc-fileset))) > (with-temp-buffer > (let ((status (vc-call-backend backend > 'print-log > files > (current-buffer)))) > (when (and (processp status) ;; Make sure status is a process > (= 0 (process-exit-status status))) ;; And that it has not > terminated > (while (not (eq 'exit (process-status status))) ;; Loop and sleep > until complete > (sit-for 1 t))) > (buffer-string))))) > #+end_src
Great, Since this could be generally useful would you be willing to add it to the library of babel (org/contrib/babel/library-of-babel.org)? If so then if you could supply a few explanatory sentences, I'll add those and the code block to the library-of-babel.org distributed with Org-mode. Thanks -- Eric
