From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.emacs.bugs Subject: bug#8756: 23.3; vc-git.el doesn't use --follow argument in vc-git-print-log Date: Sun, 12 Jan 2014 00:32:56 +0100 Message-ID: References: <87sjrxl0r1.fsf@dod.no> <878vn0yp42.fsf@dod.no> <87vcq2ygzs.fsf@dod.no> <87wragnf08.fsf@dod.no> <87sjl4neez.fsf@dod.no> <87ob3i61vx.fsf@dod.no> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1389483190 25363 80.91.229.3 (11 Jan 2014 23:33:10 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 11 Jan 2014 23:33:10 +0000 (UTC) Cc: 8756@debbugs.gnu.org To: Dan Nicolaescu Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jan 12 00:33:16 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1W283H-00030n-Vn for geb-bug-gnu-emacs@m.gmane.org; Sun, 12 Jan 2014 00:33:16 +0100 Original-Received: from localhost ([::1]:35870 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W283H-0002IF-Ib for geb-bug-gnu-emacs@m.gmane.org; Sat, 11 Jan 2014 18:33:15 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:38291) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W2839-0002I7-Mw for bug-gnu-emacs@gnu.org; Sat, 11 Jan 2014 18:33:12 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1W2834-0002M4-IA for bug-gnu-emacs@gnu.org; Sat, 11 Jan 2014 18:33:07 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:33203) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W2834-0002Lz-Eb for bug-gnu-emacs@gnu.org; Sat, 11 Jan 2014 18:33:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1W2833-0003Mp-Qf for bug-gnu-emacs@gnu.org; Sat, 11 Jan 2014 18:33:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Steinar Bang Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 11 Jan 2014 23:33:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8756 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 8756-submit@debbugs.gnu.org id=B8756.138948317312924 (code B ref 8756); Sat, 11 Jan 2014 23:33:01 +0000 Original-Received: (at 8756) by debbugs.gnu.org; 11 Jan 2014 23:32:53 +0000 Original-Received: from localhost ([127.0.0.1]:47222 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1W282u-0003MO-Fg for submit@debbugs.gnu.org; Sat, 11 Jan 2014 18:32:52 -0500 Original-Received: from rainey.bang.priv.no ([212.110.185.190]:60149) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1W282r-0003MD-Pc for 8756@debbugs.gnu.org; Sat, 11 Jan 2014 18:32:50 -0500 In-Reply-To: <87ob3i61vx.fsf@dod.no> (Steinar Bang's message of "Sat, 11 Jan 2014 15:15:14 +0100") User-Agent: Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.3 (windows-nt) X-SA-Exim-Connect-IP: 84.208.248.210 X-SA-Exim-Rcpt-To: too long (recipient list exceeded maximum allowed size of 8 bytes) X-SA-Exim-Mail-From: sb@dod.no X-SA-Exim-Version: 4.2.1 (built Mon, 26 Dec 2011 16:57:07 +0000) X-SA-Exim-Scanned: Yes (on rainey.bang.priv.no) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:83320 Archived-At: >>>>> Steinar Bang : > To get the sha1/path infomation one can do the command > git log --follow --name-only --pretty=oneline path-to-current-version-of-the-file > and then parse out the sha1/path pairs. Some example code: (let ((git-result (split-string (shell-command-to-string "cd ~/git/renametest/;git log --follow --name-only --pretty=oneline application/main.txt") "\r?\n")) (sha1-path-map) (sha1) (path)) (while git-result (setq sha1 (car (split-string (car git-result)))) (setq git-result (cdr git-result)) (setq path (car git-result)) (setq git-result (cdr git-result)) (add-to-list 'sha1-path-map (cons sha1 path))) (cdr sha1-path-map)) Which results in the following alist of sha1-to-path: (("e5984c6a9e8e015dc521fb6a1756a88d5ffd676d" . "hoved.txt") ("b35723cfbc91a3108469091c8c77ee91107e1ab8" . "hoved.txt") ("2b0f570422db1e0fac39697d908b31eb70e895f5" . "main.txt") ("dd99483cda11b4ab040135767655c07c5cf07efb" . "main.txt") ("9b47cdca956a59b4582c67d24f9474a576aff7b9" . "main.txt") ("313aa2f727fefc9e50354380cb9fb3a70401b5f3" . "application/main.txt") ("09d1bf6aa4dcd20dd36ca7668b75809e794428e0" . "application/main.txt")) (The cdr on the return value, is because the list was headed by a (nil) and I couldn't figure out where it came from)