• R/O
  • SSH
  • HTTPS

fsvn: Commit


Commit MetaInfo

Revision316 (tree)
Time2014-11-14 20:58:39
Authormhayashi1120

Log Message

fix problem

Change Summary

Incremental Difference

--- trunk/fsvn-ui.el (revision 315)
+++ trunk/fsvn-ui.el (revision 316)
@@ -948,7 +948,8 @@
948948
949949 (defun fsvn-ui-fancy-install ()
950950 (fsvn-let*
951- ((file buffer-file-name)
951+ ((fsvn-ui-fancy-file-state-in-modeline)
952+ (file buffer-file-name)
952953 (status (fsvn-ui-fancy--get-status file))
953954 (color (fsvn-ui-fancy--interpret-state-mode-color status)))
954955 ;; fancy mode line depend on vc
--- trunk/fsvn-env.el (revision 315)
+++ trunk/fsvn-env.el (revision 316)
@@ -413,6 +413,7 @@
413413 (string-match "\\` SVN" vc-mode)))
414414
415415 (defun fsvn-vc-registered (file)
416+ (vc-mode-line file)
416417 (vc-registered file))
417418
418419
--- trunk/fsvn-data.el (revision 315)
+++ trunk/fsvn-data.el (revision 316)
@@ -205,8 +205,7 @@
205205 (lambda (logentry)
206206 (setq rev (fsvn-xml-log->logentry.revision logentry))
207207 (catch 'done
208- (let ((target current)
209- next)
208+ (let ((target current))
210209 (mapc
211210 (lambda (path)
212211 (unless (string= (fsvn-xml-log->logentry->path.copyfrom-path path) "")
@@ -221,10 +220,11 @@
221220 ((string-match (concat "\\`" (regexp-quote logpath) "/") target)
222221 ;; match to ancestor of the target
223222 ;; may exact match to target
224- (setq next (fsvn-expand-url (substring target (match-end 0)) copyfrom)))))))
225- (fsvn-xml-log->logentry->paths logentry))
226- (when next
227- (setq ret (cons (cons rev next) ret))))))
223+ (let ((old-fn (substring target (match-end 0))))
224+ (setq current (fsvn-expand-url old-fn copyfrom)))
225+ (setq ret (cons (cons rev current) ret))
226+ (throw 'done t))))))
227+ (fsvn-xml-log->logentry->paths logentry)))))
228228 log-entries)
229229 (nreverse ret)))
230230
--- trunk/ChangeLog (revision 315)
+++ trunk/ChangeLog (revision 316)
@@ -1,3 +1,11 @@
1+2014-11-14 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com>
2+
3+ * Fix: Creating log chain problem.
4+
5+2014-11-02 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com>
6+
7+ * Fix: Explicitly vc-mode on
8+
19 2014-10-30 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com>
210
311 * Fix: Register to vc-mode
Show on old repository browser