• R/O
  • SSH
  • HTTPS

fsvn: Commit


Commit MetaInfo

Revision320 (tree)
Time2015-03-12 22:33:14
Authormhayashi1120

Log Message

fix small problem for process list

Change Summary

Incremental Difference

--- trunk/fsvn-proclist.el (revision 319)
+++ trunk/fsvn-proclist.el (revision 320)
@@ -127,6 +127,11 @@
127127 (defun fsvn-process-list-get-buffer ()
128128 (get-buffer-create fsvn-process-list-buffer-name))
129129
130+(defun fsvn-process-list-display-process-p (proc)
131+ (or (eq fsvn-process-list-display-p-function t)
132+ (and fsvn-process-list-display-p-function
133+ (funcall fsvn-process-list-display-p-function proc))))
134+
130135 (defun fsvn-process-list-point-process ()
131136 (catch 'found
132137 (mapc
@@ -177,9 +182,7 @@
177182 (fsvn-header-tail-fill-line))
178183 (mapc
179184 (lambda (p)
180- (when (or (eq fsvn-process-list-display-p-function t)
181- (and fsvn-process-list-display-p-function
182- (funcall fsvn-process-list-display-p-function p)))
185+ (when (fsvn-process-list-display-process-p p)
183186 (fsvn-process-list-insert-process p)
184187 (setq processes (cons p processes))))
185188 (fsvn-union (process-list) fsvn-process-list-processes 'memq)))
@@ -251,7 +254,7 @@
251254
252255 (replace-match (format "%s %s" sizestr status) nil nil nil 1)
253256 (goto-char prev)))))
254- ((funcall fsvn-process-list-display-p-function p)
257+ ((fsvn-process-list-display-process-p p)
255258 (goto-char (point-max))
256259 (let (buffer-read-only)
257260 (fsvn-process-list-insert-process p)
--- trunk/ChangeLog (revision 319)
+++ trunk/ChangeLog (revision 320)
@@ -1,3 +1,7 @@
1+2015-03-10 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com>
2+
3+ * Fix: Check fsvn-process-list-display-p-function is function
4+
15 2015-02-22 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com>
26
37 * Fix: searching log chain problem. Rename parent directory cause error.
Show on old repository browser