おのたく日記 YouTubeも始めました→

■ [Meadow]Cygwinのgitでannotateが取れない。

gitで管理しているソースをMeadow(emacs)のvcで見ると、「-rmasterなんてオプションがない」とエラーになるので、調べてみたら、"-r master"としないとエラーになるようなので、とりあえず

(defun vc-git-annotate-command (file buf &optional rev)

;; FIXME: rev is ignored

(let ((name (file-relative-name file)))

(vc-git-command buf 0 name "blame" (if rev "-r" ) (if rev rev))))

[meadow3/lisp/vc-git.elより引用]

と書き換えた。

本当は、リストをうまく返すLispを知っていれば「if rev」を二回やる必要はないのだけど…