Mercurial > emacs
comparison lisp/vc-bzr.el @ 104618:7c3b132bf9bb
* vc.el (vc-default-prettify-state-info): Remove function, unused.
* vc-bzr.el (vc-bzr-prettify-state-info): Remove function, unused.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 26 Aug 2009 07:42:11 +0000 |
| parents | cfc336042c1b |
| children | b3c2589ed19e |
comparison
equal
deleted
inserted
replaced
| 104617:abce8d2d9707 | 104618:7c3b132bf9bb |
|---|---|
| 592 (with-temp-buffer | 592 (with-temp-buffer |
| 593 (cons | 593 (cons |
| 594 (apply #'process-file command nil (list (current-buffer) nil) nil args) | 594 (apply #'process-file command nil (list (current-buffer) nil) nil args) |
| 595 (buffer-substring (point-min) (point-max))))) | 595 (buffer-substring (point-min) (point-max))))) |
| 596 | 596 |
| 597 (defun vc-bzr-prettify-state-info (file) | |
| 598 "Bzr-specific version of `vc-prettify-state-info'." | |
| 599 (if (eq 'edited (vc-state file)) | |
| 600 (concat "(" (symbol-name (or (vc-file-getprop file 'vc-bzr-state) | |
| 601 'edited)) ")") | |
| 602 ;; else fall back to default vc.el representation | |
| 603 (vc-default-prettify-state-info 'Bzr file))) | |
| 604 | |
| 605 (defstruct (vc-bzr-extra-fileinfo | 597 (defstruct (vc-bzr-extra-fileinfo |
| 606 (:copier nil) | 598 (:copier nil) |
| 607 (:constructor vc-bzr-create-extra-fileinfo (extra-name)) | 599 (:constructor vc-bzr-create-extra-fileinfo (extra-name)) |
| 608 (:conc-name vc-bzr-extra-fileinfo->)) | 600 (:conc-name vc-bzr-extra-fileinfo->)) |
| 609 extra-name) ;; original name for rename targets, new name for | 601 extra-name) ;; original name for rename targets, new name for |