Seiji Zenitani
zenit****@users*****
2006年 7月 7日 (金) 20:13:47 JST
Index: CarbonEmacsPackage/GPL/psvn.el diff -u CarbonEmacsPackage/GPL/psvn.el:1.3 CarbonEmacsPackage/GPL/psvn.el:1.4 --- CarbonEmacsPackage/GPL/psvn.el:1.3 Fri Jun 30 00:00:59 2006 +++ CarbonEmacsPackage/GPL/psvn.el Fri Jul 7 20:13:47 2006 @@ -2,7 +2,7 @@ ;; Copyright (C) 2002-2006 by Stefan Reichoer ;; Author: Stefan Reichoer, <stefa****@xstev*****> -;; $Id: psvn.el 20284 2006-06-28 19:15:19Z xsteve $ +;; $Id: psvn.el 20460 2006-07-06 19:32:38Z xsteve $ ;; psvn.el is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -202,7 +202,7 @@ (require 'diff-mode)) (error nil)) -(defconst svn-psvn-revision "$Id: psvn.el 20284 2006-06-28 19:15:19Z xsteve $" +(defconst svn-psvn-revision "$Id: psvn.el 20460 2006-07-06 19:32:38Z xsteve $" "The revision number of psvn.") ;;; user setable variables @@ -2561,10 +2561,10 @@ (defun svn-status-get-file-information () "Find out about the file under point. The result may be parsed with the various `svn-status-line-info->...' functions. -When called from a *svn-status* buffer, do the same as `svn-status-get-file-information'. +When called from a *svn-status* buffer, do the same as `svn-status-get-line-information'. When called from a file buffer provide a structure that contains the filename." (cond ((eq major-mode 'svn-status-mode) - (svn-status-get-file-information)) + (svn-status-get-line-information)) (t ;; a fake strukture that contains the buffername for the current buffer (svn-status-make-line-info (buffer-file-name (current-buffer)))))) @@ -2962,7 +2962,8 @@ (when current-prefix-arg (setq revision (svn-status-read-revision-string "Blame for version: " "BASE"))) (unless revision (setq revision "BASE")) - (svn-run t t 'blame "blame" "-r" revision (svn-status-line-info->filename (svn-status-get-file-information)))) + (svn-run t t 'blame "blame" "-r" revision (svn-status-line-info->filename + (svn-status-get-file-information)))) (defun svn-status-show-svn-diff (arg) "Run `svn diff' on the current file.
