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)) |