14
14
(d (file-name-directory f)))
15
15
(setq default-directory d)
24
18
;; get the current branch nick and revno from bzr
25
19
(insert (concat (shell-command-to-string "bzr nick") "-"
26
20
(shell-command-to-string "bzr revno"))))
29
25
"-cannot_determine_precise_VM_version.")))