Mercurial > emacs
comparison lisp/pcvs-info.el @ 70709:45029a5165ac
(cvs-fileinfo-pp): Insert trailing newline.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Thu, 18 May 2006 12:08:15 +0000 |
| parents | 2b77fa42947f |
| children | b2e5081b9320 a8190f7e546e |
comparison
equal
deleted
inserted
replaced
| 70708:e5bae689766e | 70709:45029a5165ac |
|---|---|
| 377 ;; or the head-rev | 377 ;; or the head-rev |
| 378 (when (and head (not (string= head base))) head) | 378 (when (and head (not (string= head base))) head) |
| 379 ;; or nothing | 379 ;; or nothing |
| 380 ""))) | 380 ""))) |
| 381 (format "%-11s %s %-11s %-11s %s" | 381 (format "%-11s %s %-11s %-11s %s" |
| 382 side status type base file))))))) | 382 side status type base file)))) |
| 383 "\n"))) | |
| 383 | 384 |
| 384 | 385 |
| 385 (defun cvs-fileinfo-update (fi fi-new) | 386 (defun cvs-fileinfo-update (fi fi-new) |
| 386 "Update FI with the information provided in FI-NEW." | 387 "Update FI with the information provided in FI-NEW." |
| 387 (let ((type (cvs-fileinfo->type fi-new)) | 388 (let ((type (cvs-fileinfo->type fi-new)) |