| Revision | 320 (tree) |
|---|---|
| Time | 2015-03-12 22:33:14 |
| Author | mhayashi1120 |
fix small problem for process list
trunk/fsvn-proclist.el (diff) trunk/ChangeLog (diff)| @@ -127,6 +127,11 @@ | ||
| 127 | 127 | (defun fsvn-process-list-get-buffer () |
| 128 | 128 | (get-buffer-create fsvn-process-list-buffer-name)) |
| 129 | 129 | |
| 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 | + | |
| 130 | 135 | (defun fsvn-process-list-point-process () |
| 131 | 136 | (catch 'found |
| 132 | 137 | (mapc |
| @@ -177,9 +182,7 @@ | ||
| 177 | 182 | (fsvn-header-tail-fill-line)) |
| 178 | 183 | (mapc |
| 179 | 184 | (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) | |
| 183 | 186 | (fsvn-process-list-insert-process p) |
| 184 | 187 | (setq processes (cons p processes)))) |
| 185 | 188 | (fsvn-union (process-list) fsvn-process-list-processes 'memq))) |
| @@ -251,7 +254,7 @@ | ||
| 251 | 254 | |
| 252 | 255 | (replace-match (format "%s %s" sizestr status) nil nil nil 1) |
| 253 | 256 | (goto-char prev))))) |
| 254 | - ((funcall fsvn-process-list-display-p-function p) | |
| 257 | + ((fsvn-process-list-display-process-p p) | |
| 255 | 258 | (goto-char (point-max)) |
| 256 | 259 | (let (buffer-read-only) |
| 257 | 260 | (fsvn-process-list-insert-process p) |
| @@ -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 | + | |
| 1 | 5 | 2015-02-22 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com> |
| 2 | 6 | |
| 3 | 7 | * Fix: searching log chain problem. Rename parent directory cause error. |