vc-bzr.el\lisp - delta/emacs.git - git.savannah.gnu.org: git/emacs.git

blob: cfb417519d3d8e966a11ede6c2133e17e4225151 (plain)

ofs	hex dump	ascii
0000	3b 3b 3b 20 76 63 2d 62 7a 72 2e 65 6c 20 2d 2d 2d 20 56 43 20 62 61 63 6b 65 6e 64 20 66 6f 72	;;;.vc-bzr.el.---.VC.backend.for
0020	20 74 68 65 20 62 7a 72 20 72 65 76 69 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 73 79 73 74 65 6d	.the.bzr.revision.control.system
0040	0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 36 2c 20 32 30 30 37 20 20 46	..;;.Copyright.(C).2006,.2007..F
0060	72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a 3b	ree.Software.Foundation,.Inc...;
0080	3b 20 41 75 74 68 6f 72 3a 20 44 61 76 65 20 4c 6f 76 65 20 3c 66 78 40 67 6e 75 2e 6f 72 67 3e	;.Author:.Dave.Love.<fx@gnu.org>
00a0	2c 20 52 69 63 63 61 72 64 6f 20 4d 75 72 72 69 20 3c 72 69 63 63 61 72 64 6f 2e 6d 75 72 72 69	,.Riccardo.Murri.<riccardo.murri
00c0	40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 74 6f 6f 6c 73 0a 3b	@gmail.com>.;;.Keywords:.tools.;
00e0	3b 20 43 72 65 61 74 65 64 3a 20 53 65 70 74 20 32 30 30 36 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a	;.Created:.Sept.2006.;;.Version:
0100	20 32 30 30 37 2d 30 38 2d 30 33 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 3a 2f 2f 6c 61 75 6e 63	.2007-08-03.;;.URL:.http://launc
0120	68 70 61 64 2e 6e 65 74 2f 76 63 2d 62 7a 72 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73	hpad.net/vc-bzr..;;.This.file.is
0140	20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69	.free.software;.you.can.redistri
0160	62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65	bute.it.and/or.modify.;;.it.unde
0180	72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50	r.the.terms.of.the.GNU.General.P
01a0	75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b	ublic.License.as.published.by.;;
01c0	20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65	.the.Free.Software.Foundation;.e
01e0	69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 2c 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74	ither.version.3,.or.(at.your.opt
0200	69 6f 6e 29 0a 3b 3b 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54	ion).;;.any.later.version...;;.T
0220	68 69 73 20 66 69 6c 65 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68	his.file.is.distributed.in.the.h
0240	6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62	ope.that.it.will.be.useful,.;;.b
0260	75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74	ut.WITHOUT.ANY.WARRANTY;.without
0280	20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b	.even.the.implied.warranty.of.;;
02a0	20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20	.MERCHANTABILITY.or.FITNESS.FOR.
02c0	41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b	A.PARTICULAR.PURPOSE...See.the.;
02e0	3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72	;.GNU.General.Public.License.for
0300	20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61	.more.details...;;.You.should.ha
0320	76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65	ve.received.a.copy.of.the.GNU.Ge
0340	6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69	neral.Public.License.;;.along.wi
0360	74 68 20 47 4e 55 20 45 6d 61 63 73 3b 20 73 65 65 20 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49	th.GNU.Emacs;.see.the.file.COPYI
0380	4e 47 2e 20 20 49 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 68 65 0a 3b 3b 20 46 72 65	NG...If.not,.write.to.the.;;.Fre
03a0	65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 31 20	e.Software.Foundation,.Inc.,.51.
03c0	46 72 61 6e 6b 6c 69 6e 20 53 74 72 65 65 74 2c 20 46 69 66 74 68 20 46 6c 6f 6f 72 2c 0a 3b 3b	Franklin.Street,.Fifth.Floor,.;;
03e0	20 42 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31 31 30 2d 31 33 30 31 2c 20 55 53 41 2e 0a 0a 0a 3b	.Boston,.MA.02110-1301,.USA....;
0400	3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 53 65 65 20 3c 55 52 4c 3a 68 74 74 70	;;.Commentary:..;;.See.<URL:http
0420	3a 2f 2f 62 61 7a 61 61 72 2d 76 63 73 2e 6f 72 67 2f 3e 20 63 6f 6e 63 65 72 6e 69 6e 67 20 62	://bazaar-vcs.org/>.concerning.b
0440	7a 72 2e 0a 0a 3b 3b 20 4c 6f 61 64 20 74 68 69 73 20 6c 69 62 72 61 72 79 20 74 6f 20 72 65 67	zr...;;.Load.this.library.to.reg
0460	69 73 74 65 72 20 62 7a 72 20 73 75 70 70 6f 72 74 20 69 6e 20 56 43 2e 20 20 49 74 20 63 6f 76	ister.bzr.support.in.VC...It.cov
0480	65 72 73 20 62 61 73 69 63 20 56 43 20 0a 3b 3b 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2c 20	ers.basic.VC..;;.functionality,.
04a0	62 75 74 20 77 61 73 20 6f 6e 6c 79 20 6c 69 67 68 74 6c 79 20 65 78 65 72 63 69 73 65 64 20 77	but.was.only.lightly.exercised.w
04c0	69 74 68 20 61 20 66 65 77 20 45 6d 61 63 73 2f 62 7a 72 0a 3b 3b 20 76 65 72 73 69 6f 6e 20 63	ith.a.few.Emacs/bzr.;;.version.c
04e0	6f 6d 62 69 6e 61 74 69 6f 6e 73 2c 20 6e 61 6d 65 6c 79 20 74 68 6f 73 65 20 63 75 72 72 65 6e	ombinations,.namely.those.curren
0500	74 20 6f 6e 20 74 68 65 20 61 75 74 68 6f 72 73 27 20 50 43 73 2e 0a 3b 3b 20 53 65 65 20 76 61	t.on.the.authors'.PCs..;;.See.va
0520	72 69 6f 75 73 20 46 69 78 6d 65 73 20 62 65 6c 6f 77 2e 0a 0a 0a 3b 3b 20 4b 6e 6f 77 6e 20 62	rious.Fixmes.below....;;.Known.b
0540	75 67 73 0a 3b 3b 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 57 68 65 6e 20 65 64 69 74 69	ugs.;;.==========..;;.When.editi
0560	74 69 6e 67 20 61 20 73 79 6d 6c 69 6e 6b 20 61 6e 64 20 2a 62 6f 74 68 2a 20 74 68 65 20 73 79	ting.a.symlink.and.both.the.sy
0580	6d 6c 69 6e 6b 20 61 6e 64 20 69 74 73 20 74 61 72 67 65 74 0a 3b 3b 20 61 72 65 20 62 7a 72 2d	mlink.and.its.target.;;.are.bzr-
05a0	76 65 72 73 69 6f 6e 65 64 2c 20 60 76 63 2d 62 7a 72 60 20 70 72 65 73 65 6e 74 6c 79 20 72 75	versioned,.`vc-bzr`.presently.ru
05c0	6e 73 20 60 62 7a 72 20 73 74 61 74 75 73 60 20 6f 6e 20 74 68 65 0a 3b 3b 20 73 79 6d 6c 69 6e	ns.`bzr.status`.on.the.;;.symlin
05e0	6b 2c 20 74 68 65 72 65 62 79 20 6e 6f 74 20 64 65 74 65 63 74 69 6e 67 20 77 68 65 74 68 65 72	k,.thereby.not.detecting.whether
0600	20 74 68 65 20 61 63 74 75 61 6c 20 63 6f 6e 74 65 6e 74 73 0a 3b 3b 20 28 74 68 61 74 20 69 73	.the.actual.contents.;;.(that.is
0620	2c 20 74 68 65 20 74 61 72 67 65 74 20 63 6f 6e 74 65 6e 74 73 29 20 61 72 65 20 63 68 61 6e 67	,.the.target.contents).are.chang
0640	65 64 2e 20 20 0a 3b 3b 20 53 65 65 20 68 74 74 70 73 3a 2f 2f 62 75 67 73 2e 6c 61 75 6e 63 68	ed....;;.See.https://bugs.launch
0660	70 61 64 2e 6e 65 74 2f 76 63 2d 62 7a 72 2f 2b 62 75 67 2f 31 31 36 36 30 37 0a 0a 3b 3b 20 46	pad.net/vc-bzr/+bug/116607..;;.F
0680	6f 72 20 61 6e 20 75 70 2d 74 6f 2d 64 61 74 65 20 6c 69 73 74 20 6f 66 20 62 75 67 73 2c 20 70	or.an.up-to-date.list.of.bugs,.p
06a0	6c 65 61 73 65 20 73 65 65 3a 0a 3b 3b 20 20 20 68 74 74 70 73 3a 2f 2f 62 75 67 73 2e 6c 61 75	lease.see:.;;...https://bugs.lau
06c0	6e 63 68 70 61 64 2e 6e 65 74 2f 76 63 2d 62 7a 72 2f 2b 62 75 67 73 0a 0a 0a 3b 3b 3b 20 43 6f	nchpad.net/vc-bzr/+bugs...;;;.Co
06e0	64 65 3a 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72 65 71 75 69	de:..(eval-when-compile...(requi
0700	72 65 20 27 63 6c 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 76 63 29 29 20 20 20 20 20 20 20 20	re.'cl)...(require.'vc))........
0720	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 66 6f 72 20 76 63 2d 65 78 65 63 2d 61 66	................;.for.vc-exec-af
0740	74 65 72 0a 0a 3b 3b 20 43 6c 65 61 72 20 75 70 20 74 68 65 20 63 61 63 68 65 20 74 6f 20 66 6f	ter..;;.Clear.up.the.cache.to.fo
0760	72 63 65 20 76 63 2d 63 61 6c 6c 20 74 6f 20 63 68 65 63 6b 20 61 67 61 69 6e 20 61 6e 64 20 64	rce.vc-call.to.check.again.and.d
0780	69 73 63 6f 76 65 72 0a 3b 3b 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 73 20 77 68 65 6e 20 77 65	iscover.;;.new.functions.when.we
07a0	20 72 65 6c 6f 61 64 20 74 68 69 73 20 66 69 6c 65 2e 0a 28 70 75 74 20 27 42 7a 72 20 27 76 63	.reload.this.file..(put.'Bzr.'vc
07c0	2d 66 75 6e 63 74 69 6f 6e 73 20 6e 69 6c 29 0a 0a 28 64 65 66 67 72 6f 75 70 20 76 63 2d 62 7a	-functions.nil)..(defgroup.vc-bz
07e0	72 20 6e 69 6c 0a 20 20 22 56 43 20 62 7a 72 20 62 61 63 6b 65 6e 64 2e 22 0a 3b 3b 20 20 20 3a	r.nil..."VC.bzr.backend.".;;...:
0800	76 65 72 73 69 6f 6e 20 22 32 32 22 0a 20 20 3a 67 72 6f 75 70 20 27 76 63 29 0a 0a 28 64 65 66	version."22"...:group.'vc)..(def
0820	63 75 73 74 6f 6d 20 76 63 2d 62 7a 72 2d 70 72 6f 67 72 61 6d 20 22 62 7a 72 22 0a 20 20 22 4e	custom.vc-bzr-program."bzr"..."N
0840	61 6d 65 20 6f 66 20 74 68 65 20 62 7a 72 20 63 6f 6d 6d 61 6e 64 20 28 65 78 63 6c 75 64 69 6e	ame.of.the.bzr.command.(excludin
0860	67 20 61 6e 79 20 61 72 67 75 6d 65 6e 74 73 29 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 76 63 2d	g.any.arguments)."...:group.'vc-
0880	62 7a 72 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 3b 3b 20 46 69 78 6d 65 3a 20	bzr...:type.'string)..;;.Fixme:.
08a0	74 68 65 72 65 27 73 20 70 72 6f 62 61 62 6c 79 20 6e 6f 20 63 61 6c 6c 20 66 6f 72 20 74 68 69	there's.probably.no.call.for.thi
08c0	73 2e 0a 28 64 65 66 63 75 73 74 6f 6d 20 76 63 2d 62 7a 72 2d 70 72 6f 67 72 61 6d 2d 61 72 67	s..(defcustom.vc-bzr-program-arg
08e0	73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 67 6c 6f 62 61 6c 20 61 72 67 75 6d 65 6e 74	s.nil..."List.of.global.argument
0900	73 20 74 6f 20 70 61 73 73 20 74 6f 20 60 76 63 2d 62 7a 72 2d 70 72 6f 67 72 61 6d 27 2e 22 0a	s.to.pass.to.`vc-bzr-program'.".
0920	20 20 3a 67 72 6f 75 70 20 27 76 63 2d 62 7a 72 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61	..:group.'vc-bzr...:type.'(repea
0940	74 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 76 63 2d 62 7a 72 2d 64 69	t.string))..(defcustom.vc-bzr-di
0960	66 66 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 0a 20 20 22 53 74 72 69 6e 67 2f 6c 69 73 74 20 6f	ff-switches.nil..."String/list.o
0980	66 20 73 74 72 69 6e 67 73 20 73 70 65 63 69 66 79 69 6e 67 20 65 78 74 72 61 20 73 77 69 74 63	f.strings.specifying.extra.switc
09a0	68 65 73 20 66 6f 72 20 62 7a 72 20 64 69 66 66 20 75 6e 64 65 72 20 56 43 2e 22 0a 20 20 3a 74	hes.for.bzr.diff.under.VC."...:t
09c0	79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 6e 65 22 20	ype.'(choice.(const.:tag."None".
09e0	6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 3a 74	nil)..................(string.:t
0a00	61 67 20 22 41 72 67 75 6d 65 6e 74 20 53 74 72 69 6e 67 22 29 0a 20 20 20 20 20 20 20 20 20 20	ag."Argument.String")...........
0a20	20 20 20 20 20 20 20 28 72 65 70 65 61 74 20 3a 74 61 67 20 22 41 72 67 75 6d 65 6e 74 20 4c 69	.......(repeat.:tag."Argument.Li
0a40	73 74 22 20 3a 76 61 6c 75 65 20 28 22 22 29 20 73 74 72 69 6e 67 29 29 0a 20 20 3a 67 72 6f 75	st".:value.("").string))...:grou
0a60	70 20 27 76 63 2d 62 7a 72 29 0a 0a 3b 3b 20 73 69 6e 63 65 20 76 30 2e 39 2c 20 62 7a 72 20 73	p.'vc-bzr)..;;.since.v0.9,.bzr.s
0a80	75 70 70 6f 72 74 73 20 72 65 6d 6f 76 69 6e 67 20 74 68 65 20 70 72 6f 67 72 65 73 73 20 69 6e	upports.removing.the.progress.in
0aa0	64 69 63 61 74 6f 72 73 0a 3b 3b 20 62 79 20 73 65 74 74 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65	dicators.;;.by.setting.environme
0ac0	6e 74 20 76 61 72 69 61 62 6c 65 20 42 5a 52 5f 50 52 4f 47 52 45 53 53 5f 42 41 52 20 74 6f 20	nt.variable.BZR_PROGRESS_BAR.to.
0ae0	22 6e 6f 6e 65 22 2e 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 28 62	"none"..(defun.vc-bzr-command.(b
0b00	7a 72 2d 63 6f 6d 6d 61 6e 64 20 62 75 66 66 65 72 20 6f 6b 73 74 61 74 75 73 20 66 69 6c 65 2d	zr-command.buffer.okstatus.file-
0b20	6f 72 2d 6c 69 73 74 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 57 72 61 70 70 65 72 20 72	or-list.&rest.args)..."Wrapper.r
0b40	6f 75 6e 64 20 60 76 63 2d 64 6f 2d 63 6f 6d 6d 61 6e 64 27 20 75 73 69 6e 67 20 60 76 63 2d 62	ound.`vc-do-command'.using.`vc-b
0b60	7a 72 2d 70 72 6f 67 72 61 6d 27 20 61 73 20 43 4f 4d 4d 41 4e 44 2e 0a 49 6e 76 6f 6b 65 20 74	zr-program'.as.COMMAND..Invoke.t
0b80	68 65 20 62 7a 72 20 63 6f 6d 6d 61 6e 64 20 61 64 64 69 6e 67 20 60 42 5a 52 5f 50 52 4f 47 52	he.bzr.command.adding.`BZR_PROGR
0ba0	45 53 53 5f 42 41 52 3d 6e 6f 6e 65 27 20 74 6f 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74	ESS_BAR=none'.to.the.environment
0bc0	2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a	."...(let.((process-environment.
0be0	20 20 20 20 20 20 20 20 20 28 6c 69 73 74 2a 20 22 42 5a 52 5f 50 52 4f 47 52 45 53 53 5f 42 41	.........(list*."BZR_PROGRESS_BA
0c00	52 3d 6e 6f 6e 65 22 20 3b 20 53 75 70 70 72 65 73 73 20 70 72 6f 67 72 65 73 73 20 6f 75 74 70	R=none".;.Suppress.progress.outp
0c20	75 74 20 28 62 7a 72 20 3e 3d 30 2e 39 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22	ut.(bzr.>=0.9)................."
0c40	4c 43 5f 41 4c 4c 3d 43 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 46 6f 72 63 65 20 45	LC_ALL=C"..............;.Force.E
0c60	6e 67 6c 69 73 68 20 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72	nglish.output.................pr
0c80	6f 63 65 73 73 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20	ocess-environment))).....(apply.
0ca0	27 76 63 2d 64 6f 2d 63 6f 6d 6d 61 6e 64 20 62 75 66 66 65 72 20 6f 6b 73 74 61 74 75 73 20 76	'vc-do-command.buffer.okstatus.v
0cc0	63 2d 62 7a 72 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 6f 72	c-bzr-program............file-or
0ce0	2d 6c 69 73 74 20 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 28 61 70 70 65 6e 64 20 76 63 2d 62 7a 72	-list.bzr-command.(append.vc-bzr
0d00	2d 70 72 6f 67 72 61 6d 2d 61 72 67 73 20 61 72 67 73 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75	-program-args.args))))..;;;###au
0d20	74 6f 6c 6f 61 64 0a 28 64 65 66 63 6f 6e 73 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69	toload.(defconst.vc-bzr-admin-di
0d40	72 6e 61 6d 65 20 22 2e 62 7a 72 22 20 20 20 20 3b 20 46 49 58 4d 45 3a 20 22 5f 62 7a 72 22 20	rname.".bzr"....;.FIXME:."_bzr".
0d60	6f 6e 20 77 33 32 3f 0a 20 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79	on.w32?..."Name.of.the.directory
0d80	20 63 6f 6e 74 61 69 6e 69 6e 67 20 42 7a 72 20 72 65 70 6f 73 69 74 6f 72 79 20 73 74 61 74 75	.containing.Bzr.repository.statu
0da0	73 20 66 69 6c 65 73 2e 22 29 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 63 6f	s.files.").;;;###autoload.(defco
0dc0	6e 73 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 63 68 65 63 6b 6f 75 74 2d 66 6f 72 6d 61 74	nst.vc-bzr-admin-checkout-format
0de0	2d 66 69 6c 65 0a 20 20 28 63 6f 6e 63 61 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69 72	-file...(concat.vc-bzr-admin-dir
0e00	6e 61 6d 65 20 22 2f 63 68 65 63 6b 6f 75 74 2f 66 6f 72 6d 61 74 22 29 29 0a 28 64 65 66 63 6f	name."/checkout/format")).(defco
0e20	6e 73 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69 72 73 74 61 74 65 0a 20 20 28 63 6f 6e	nst.vc-bzr-admin-dirstate...(con
0e40	63 61 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69 72 6e 61 6d 65 20 22 2f 63 68 65 63 6b	cat.vc-bzr-admin-dirname."/check
0e60	6f 75 74 2f 64 69 72 73 74 61 74 65 22 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 76 63 2d 62 7a 72	out/dirstate")).(defconst.vc-bzr
0e80	2d 61 64 6d 69 6e 2d 62 72 61 6e 63 68 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 0a 20 20 28 63 6f 6e	-admin-branch-format-file...(con
0ea0	63 61 74 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69 72 6e 61 6d 65 20 22 2f 62 72 61 6e 63	cat.vc-bzr-admin-dirname."/branc
0ec0	68 2f 66 6f 72 6d 61 74 22 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 76 63 2d 62 7a 72 2d 61 64 6d	h/format")).(defconst.vc-bzr-adm
0ee0	69 6e 2d 72 65 76 68 69 73 74 6f 72 79 0a 20 20 28 63 6f 6e 63 61 74 20 76 63 2d 62 7a 72 2d 61	in-revhistory...(concat.vc-bzr-a
0f00	64 6d 69 6e 2d 64 69 72 6e 61 6d 65 20 22 2f 62 72 61 6e 63 68 2f 72 65 76 69 73 69 6f 6e 2d 68	dmin-dirname."/branch/revision-h
0f20	69 73 74 6f 72 79 22 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 64 65 66 75 6e	istory"))..;;;###autoload.(defun
0f40	20 76 63 2d 62 7a 72 2d 72 65 67 69 73 74 65 72 65 64 20 28 66 69 6c 65 29 0a 3b 3b 3b 23 23 23	.vc-bzr-registered.(file).;;;###
0f60	61 75 74 6f 6c 6f 61 64 20 20 20 28 69 66 20 28 76 63 2d 66 69 6e 64 2d 72 6f 6f 74 20 66 69 6c	autoload...(if.(vc-find-root.fil
0f80	65 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 63 68 65 63 6b 6f 75 74 2d 66 6f 72 6d 61 74 2d 66	e.vc-bzr-admin-checkout-format-f
0fa0	69 6c 65 29 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 20 20 20 20 20 20 28 70 72 6f 67 6e	ile).;;;###autoload.......(progn
0fc0	0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 20 22 76	.;;;###autoload.........(load."v
0fe0	63 2d 62 7a 72 22 29 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 28	c-bzr").;;;###autoload.........(
1000	76 63 2d 62 7a 72 2d 72 65 67 69 73 74 65 72 65 64 20 66 69 6c 65 29 29 29 29 0a 0a 28 64 65 66	vc-bzr-registered.file))))..(def
1020	75 6e 20 76 63 2d 62 7a 72 2d 72 6f 6f 74 20 28 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20	un.vc-bzr-root.(file)..."Return.
1040	74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 62 7a 72 20 72 65	the.root.directory.of.the.bzr.re
1060	70 6f 73 69 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 46 49 4c 45 2e 22 0a 20 20 3b 3b 20	pository.containing.FILE."...;;.
1080	43 61 63 68 65 20 74 65 63 68 6e 69 71 75 65 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 76 63 2d 61	Cache.technique.copied.from.vc-a
10a0	72 63 68 2e 65 6c 2e 0a 20 20 28 6f 72 20 28 76 63 2d 66 69 6c 65 2d 67 65 74 70 72 6f 70 20 66	rch.el....(or.(vc-file-getprop.f
10c0	69 6c 65 20 27 62 7a 72 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65	ile.'bzr-root).......(vc-file-se
10e0	74 70 72 6f 70 0a 20 20 20 20 20 20 20 66 69 6c 65 20 27 62 7a 72 2d 72 6f 6f 74 0a 20 20 20 20	tprop........file.'bzr-root.....
1100	20 20 20 28 76 63 2d 66 69 6e 64 2d 72 6f 6f 74 20 66 69 6c 65 20 76 63 2d 62 7a 72 2d 61 64 6d	...(vc-find-root.file.vc-bzr-adm
1120	69 6e 2d 63 68 65 63 6b 6f 75 74 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 29 29 29 29 0a 0a 28 64 65	in-checkout-format-file))))..(de
1140	66 75 6e 20 76 63 2d 62 7a 72 2d 72 65 67 69 73 74 65 72 65 64 20 28 66 69 6c 65 29 0a 20 20 22	fun.vc-bzr-registered.(file)..."
1160	52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 46 49 4c 45 20 69 73 20 72 65 67 69 73 74	Return.non-nil.if.FILE.is.regist
1180	65 72 65 64 20 77 69 74 68 20 62 7a 72 2e 0a 0a 46 6f 72 20 73 70 65 65 64 2c 20 74 68 69 73 20	ered.with.bzr...For.speed,.this.
11a0	66 75 6e 63 74 69 6f 6e 20 74 72 69 65 73 20 66 69 72 73 74 20 74 6f 20 70 61 72 73 65 20 42 7a	function.tries.first.to.parse.Bz
11c0	72 20 69 6e 74 65 72 6e 61 6c 20 66 69 6c 65 0a 60 63 68 65 63 6b 6f 75 74 2f 64 69 72 73 74 61	r.internal.file.`checkout/dirsta
11e0	74 65 27 2c 20 62 75 74 20 69 74 20 6d 61 79 20 66 61 69 6c 20 69 66 20 42 7a 72 20 69 6e 74 65	te',.but.it.may.fail.if.Bzr.inte
1200	72 6e 61 6c 20 66 69 6c 65 20 66 6f 72 6d 61 74 0a 68 61 73 20 63 68 61 6e 67 65 64 2e 20 20 41	rnal.file.format.has.changed...A
1220	73 20 61 20 73 61 66 65 67 75 61 72 64 2c 20 74 68 65 20 60 63 68 65 63 6b 6f 75 74 2f 64 69 72	s.a.safeguard,.the.`checkout/dir
1240	73 74 61 74 65 27 20 66 69 6c 65 20 69 73 0a 6f 6e 6c 79 20 70 61 72 73 65 64 20 69 66 20 69 74	state'.file.is.only.parsed.if.it
1260	20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 73 74 72 69 6e 67 20 60 23 62 61 7a 61 61 72 20 64 69	.contains.the.string.`#bazaar.di
1280	72 73 74 61 74 65 20 66 6c 61 74 0a 66 6f 72 6d 61 74 20 33 27 20 69 6e 20 74 68 65 20 66 69 72	rstate.flat.format.3'.in.the.fir
12a0	73 74 20 6c 69 6e 65 2e 0a 0a 49 66 20 74 68 65 20 60 63 68 65 63 6b 6f 75 74 2f 64 69 72 73 74	st.line...If.the.`checkout/dirst
12c0	61 74 65 27 20 66 69 6c 65 20 63 61 6e 6e 6f 74 20 62 65 20 70 61 72 73 65 64 2c 20 66 61 6c 6c	ate'.file.cannot.be.parsed,.fall
12e0	20 62 61 63 6b 20 74 6f 0a 72 75 6e 6e 69 6e 67 20 60 76 63 2d 62 7a 72 2d 73 74 61 74 65 27 2e	.back.to.running.`vc-bzr-state'.
1300	22 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 28 6c	"...(condition-case.nil.......(l
1320	65 78 69 63 61 6c 2d 6c 65 74 20 28 28 72 6f 6f 74 20 28 76 63 2d 62 7a 72 2d 72 6f 6f 74 20 66	exical-let.((root.(vc-bzr-root.f
1340	69 6c 65 29 29 29 0a 20 20 20 20 28 61 6e 64 20 72 6f 6f 74 20 3b 20 53 68 6f 72 74 20 63 75 74	ile))).....(and.root.;.Short.cut
1360	2e 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 6c 6f 6f 6b 73 20 61 74 20 69 6e 74 65	...........;;.This.looks.at.inte
1380	72 6e 61 6c 20 66 69 6c 65 73 2e 20 20 4d 61 79 20 62 72 65 61 6b 20 69 66 20 74 68 65 79 20 63	rnal.files...May.break.if.they.c
13a0	68 61 6e 67 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 69 72 20 66 6f 72 6d 61 74 2e 0a	hange..........;;.their.format..
13c0	20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 78 69 63 61 6c 2d 6c 65 74 0a 20 20 20 20 20 20	.............(lexical-let.......
13e0	20 20 20 20 20 20 20 20 20 20 20 28 28 64 69 72 73 74 61 74 65 2d 66 69 6c 65 20 28 65 78 70 61	...........((dirstate-file.(expa
1400	6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 64 69 72 73 74 61	nd-file-name.vc-bzr-admin-dirsta
1420	74 65 20 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66	te.root)))................(if.(f
1440	69 6c 65 2d 65 78 69 73 74 73 2d 70 20 64 69 72 73 74 61 74 65 2d 66 69 6c 65 29 0a 20 20 20 20	ile-exists-p.dirstate-file).....
1460	20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20	.....(with-temp-buffer..........
1480	20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74	............(insert-file-content
14a0	73 20 64 69 72 73 74 61 74 65 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74	s.dirstate-file)............(got
14c0	6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	o-char.(point-min)).............
14e0	20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 23 62 61 7a	.........(when.(looking-at."#baz
1500	61 61 72 20 64 69 72 73 74 61 74 65 20 66 6c 61 74 20 66 6f 72 6d 61 74 20 33 22 29 0a 20 20 20	aar.dirstate.flat.format.3")....
1520	20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 72 65 6c 66 69 6c 65 20 28 66 69 6c 65 2d 72 65	........(let*.((relfile.(file-re
1540	6c 61 74 69 76 65 2d 6e 61 6d 65 20 66 69 6c 65 20 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20	lative-name.file.root)).........
1560	20 20 20 20 20 20 20 20 20 20 28 72 65 6c 64 69 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72	..........(reldir.(file-name-dir
1580	65 63 74 6f 72 79 20 72 65 6c 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28	ectory.relfile)))..............(
15a0	72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	re-search-forward...............
15c0	28 63 6f 6e 63 61 74 20 22 5e 00 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	(concat."^."....................
15e0	20 20 20 28 69 66 20 72 65 6c 64 69 72 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 28 64 69 72	...(if.reldir.(regexp-quote.(dir
1600	65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 72 65 6c 64 69 72 29 29 29 0a 20 20 20 20 20	ectory-file-name.reldir)))......
1620	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 22 0a 20 20 20 20 20 20 20 20 20 20 20	................."."............
1640	20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 28 66 69 6c 65 2d 6e	...........(regexp-quote.(file-n
1660	61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 72 65 6c 66 69 6c 65 29 29 0a 20 20 20 20 20	ame-nondirectory.relfile))......
1680	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 22 29 0a 20 20 20 20 20 20 20 20 20 20	.................".")...........
16a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20	..............nil.t)))).........
16c0	20 20 20 20 20 20 20 20 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 62 7a	.........t))..............(vc-bz
16e0	72 2d 73 74 61 74 65 20 66 69 6c 65 29 29 29 20 20 3b 20 45 78 70 65 6e 73 69 76 65 2e 0a 20 20	r-state.file)))..;.Expensive....
1700	20 20 28 66 69 6c 65 2d 65 72 72 6f 72 20 6e 69 6c 29 29 29 20 3b 20 76 63 2d 62 7a 72 2d 70 72	..(file-error.nil))).;.vc-bzr-pr
1720	6f 67 72 61 6d 20 6e 6f 74 20 66 6f 75 6e 64 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 62	ogram.not.found..(defun.vc-bzr-b
1740	75 66 66 65 72 2d 6e 6f 6e 62 6c 61 6e 6b 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 75 66 66	uffer-nonblank-p.(&optional.buff
1760	65 72 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 42 55 46 46 45 52 20	er)..."Return.non-nil.if.BUFFER.
1780	63 6f 6e 74 61 69 6e 73 20 61 6e 79 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63 68 61 72 61 63 74 65 72	contains.any.non-blank.character
17a0	73 2e 22 0a 20 20 28 6f 72 20 28 3e 20 28 62 75 66 66 65 72 2d 73 69 7a 65 20 62 75 66 66 65 72	s."...(or.(>.(buffer-size.buffer
17c0	29 20 30 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20	).0).......(save-excursion......
17e0	20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 6f 72 20 62 75 66 66 65 72 20 28 63 75 72 72 65	...(set-buffer.(or.buffer.(curre
1800	6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20	nt-buffer))).........(goto-char.
1820	28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d	(point-min)).........(re-search-
1840	66 6f 72 77 61 72 64 20 22 5b 5e 20 5c 74 5c 6e 5d 22 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 74	forward."[^.\t\n]".(point-max).t
1860	29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 76 63 2d 62 7a 72 2d 73 74 61 74 65 2d 77 6f 72	))))..(defconst.vc-bzr-state-wor
1880	64 73 0a 20 20 22 61 64 64 65 64 5c 5c 7c 69 67 6e 6f 72 65 64 5c 5c 7c 6d 6f 64 69 66 69 65 64	ds..."added\\\|ignored\\\|modified
18a0	5c 5c 7c 72 65 6d 6f 76 65 64 5c 5c 7c 72 65 6e 61 6d 65 64 5c 5c 7c 75 6e 6b 6e 6f 77 6e 22 0a	\\\|removed\\\|renamed\\\|unknown".
18c0	20 20 22 52 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 66 69 6c 65 20 73 74 61 74 75 73 20 77	.."Regexp.matching.file.status.w
18e0	6f 72 64 73 20 61 73 20 72 65 70 6f 72 74 65 64 20 69 6e 20 60 62 7a 72 27 20 6f 75 74 70 75 74	ords.as.reported.in.`bzr'.output
1900	2e 22 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 66 69 6c 65 2d 6e 61 6d 65 2d 72 65 6c	.")..(defun.vc-bzr-file-name-rel
1920	61 74 69 76 65 20 28 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 66 69 6c 65 20	ative.(filename)..."Return.file.
1940	6e 61 6d 65 20 46 49 4c 45 4e 41 4d 45 20 73 74 72 69 70 70 65 64 20 6f 66 20 74 68 65 20 69 6e	name.FILENAME.stripped.of.the.in
1960	69 74 69 61 6c 20 42 7a 72 20 72 65 70 6f 73 69 74 6f 72 79 20 70 61 74 68 2e 22 0a 20 20 28 6c	itial.Bzr.repository.path."...(l
1980	65 78 69 63 61 6c 2d 6c 65 74 2a 0a 20 20 20 20 20 20 28 28 66 69 6c 65 6e 61 6d 65 2a 20 28 65	exical-let.......((filename.(e
19a0	78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20	xpand-file-name.filename))......
19c0	20 20 28 72 6f 6f 74 64 69 72 20 28 76 63 2d 62 7a 72 2d 72 6f 6f 74 20 28 66 69 6c 65 2d 6e 61	..(rootdir.(vc-bzr-root.(file-na
19e0	6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 6e 61 6d 65 2a 29 29 29 29 0a 20 20 20 20 28	me-directory.filename*)))).....(
1a00	61 6e 64 20 72 6f 6f 74 64 69 72 20 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6c 61	and.rootdir...........(file-rela
1a20	74 69 76 65 2d 6e 61 6d 65 20 66 69 6c 65 6e 61 6d 65 2a 20 72 6f 6f 74 64 69 72 29 29 29 29 0a	tive-name.filename*.rootdir)))).
1a40	0a 3b 3b 20 46 49 58 4d 45 3a 20 20 41 6c 73 6f 20 67 65 74 20 74 68 69 73 20 69 6e 20 61 20 6e	.;;.FIXME:..Also.get.this.in.a.n
1a60	6f 6e 2d 72 65 67 69 73 74 65 72 65 64 20 73 75 62 2d 64 69 72 65 63 74 6f 72 79 2e 0a 28 64 65	on-registered.sub-directory..(de
1a80	66 75 6e 20 76 63 2d 62 7a 72 2d 73 74 61 74 65 20 28 66 69 6c 65 29 0a 20 20 28 63 6f 6e 64 69	fun.vc-bzr-state.(file)...(condi
1aa0	74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65	tion-case.nil...(with-temp-buffe
1ac0	72 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 74 20 28 76 63 2d 62 7a 72 2d 63 6f 6d	r.........(let.((ret.(vc-bzr-com
1ae0	6d 61 6e 64 20 22 73 74 61 74 75 73 22 20 74 20 30 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20	mand."status".t.0.file))........
1b00	20 20 20 28 73 74 61 74 65 20 27 75 70 2d 74 6f 2d 64 61 74 65 29 29 0a 20 20 20 20 20 20 3b 3b	...(state.'up-to-date)).......;;
1b20	20 74 68 65 20 6f 6e 6c 79 20 73 65 63 75 72 65 20 73 74 61 74 75 73 20 69 6e 64 69 63 61 74 69	.the.only.secure.status.indicati
1b40	6f 6e 20 69 6e 20 60 62 7a 72 20 73 74 61 74 75 73 27 20 6f 75 74 70 75 74 0a 20 20 20 20 20 20	on.in.`bzr.status'.output.......
1b60	3b 3b 20 69 73 20 61 20 63 6f 75 70 6c 65 20 6f 66 20 6c 69 6e 65 73 20 66 6f 6c 6c 6f 77 69 6e	;;.is.a.couple.of.lines.followin
1b80	67 20 74 68 65 20 70 61 74 74 65 72 6e 3a 3a 0a 20 20 20 20 20 20 3b 3b 20 20 20 7c 20 3c 73 74	g.the.pattern::.......;;...\|.<st
1ba0	61 74 75 73 3e 3a 0a 20 20 20 20 20 20 3b 3b 20 20 20 7c 20 20 20 3c 66 69 6c 65 20 6e 61 6d 65	atus>:.......;;...\|...<file.name
1bc0	3e 0a 20 20 20 20 20 20 3b 3b 20 69 66 20 74 68 65 20 66 69 6c 65 20 69 73 20 75 70 2d 74 6f 2d	>.......;;.if.the.file.is.up-to-
1be0	64 61 74 65 2c 20 77 65 20 67 65 74 20 6e 6f 20 73 74 61 74 75 73 20 72 65 70 6f 72 74 20 66 72	date,.we.get.no.status.report.fr
1c00	6f 6d 20 60 62 7a 72 27 2c 0a 20 20 20 20 20 20 3b 3b 20 73 6f 20 69 66 20 74 68 65 20 72 65 67	om.`bzr',.......;;.so.if.the.reg
1c20	65 78 70 20 73 65 61 72 63 68 20 66 6f 72 20 74 68 65 20 61 62 6f 76 65 20 70 61 74 74 65 72 6e	exp.search.for.the.above.pattern
1c40	20 66 61 69 6c 73 2c 20 77 65 20 63 6f 6e 73 69 64 65 72 0a 20 20 20 20 20 20 3b 3b 20 74 68 65	.fails,.we.consider.......;;.the
1c60	20 66 69 6c 65 20 74 6f 20 62 65 20 75 70 2d 74 6f 2d 64 61 74 65 2e 0a 20 20 20 20 20 20 28 67	.file.to.be.up-to-date........(g
1c80	6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 65	oto-char.(point-min)).......(whe
1ca0	6e 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20	n...........(re-search-forward..
1cc0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 62 7a 72 20 70 72 69 6e 74 73 20 70 61 74 68	..............;;.bzr.prints.path
1ce0	73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 72 65 70 6f 73 69 74 6f 72 79 20 72 6f 6f	s.relative.to.the.repository.roo
1d00	74 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 22 20 76 63 2d 62	t............(concat."^\\(".vc-b
1d20	7a 72 2d 73 74 61 74 65 2d 77 6f 72 64 73 20 22 5c 5c 29 3a 5b 20 5c 74 5c 6e 5d 2b 22 0a 20 20	zr-state-words."\\):[.\t\n]+"...
1d40	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 2d 71 75 6f	.....................(regexp-quo
1d60	74 65 20 28 76 63 2d 62 7a 72 2d 66 69 6c 65 2d 6e 61 6d 65 2d 72 65 6c 61 74 69 76 65 20 66 69	te.(vc-bzr-file-name-relative.fi
1d80	6c 65 29 29 20 22 5b 20 5c 74 5c 6e 5d 2a 24 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 6f	le))."[.\t\n]*$")............(po
1da0	69 6e 74 2d 6d 61 78 29 20 74 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74	int-max).t).........(let.((start
1dc0	20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20	.(match-beginning.0))...........
1de0	20 20 20 20 28 65 6e 64 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 0a 20 20 20 20 20 20 20	....(end.(match-end.0)))........
1e00	20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 28	...(goto-char.start)...........(
1e20	73 65 74 71 20 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64	setq.state.................(cond
1e40	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 65 71 75 61 6c 20 72	..................((not.(equal.r
1e60	65 74 20 30 29 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c	et.0)).nil)..................((l
1e80	6f 6f 6b 69 6e 67 2d 61 74 20 22 61 64 64 65 64 5c 5c 7c 72 65 6e 61 6d 65 64 5c 5c 7c 6d 6f 64	ooking-at."added\\\|renamed\\\|mod
1ea0	69 66 69 65 64 5c 5c 7c 72 65 6d 6f 76 65 64 22 29 20 27 65 64 69 74 65 64 29 0a 20 20 20 20 20	ified\\\|removed").'edited)......
1ec0	20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 75 6e 6b 6e 6f 77	............((looking-at."unknow
1ee0	6e 5c 5c 7c 69 67 6e 6f 72 65 64 22 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b	n\\\|ignored").nil)))...........;
1f00	3b 20 65 72 61 73 65 20 74 68 65 20 73 74 61 74 75 73 20 74 65 78 74 20 74 68 61 74 20 6d 61 74	;.erase.the.status.text.that.mat
1f20	63 68 65 64 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 74	ched...........(delete-region.st
1f40	61 72 74 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 76 63 2d 62 7a 72 2d 62	art.end))).......(when.(vc-bzr-b
1f60	75 66 66 65 72 2d 6e 6f 6e 62 6c 61 6e 6b 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b	uffer-nonblank-p).............;;
1f80	20 22 62 7a 72 22 20 77 69 6c 6c 20 6f 75 74 70 75 74 20 77 61 72 6e 69 6e 67 73 20 61 6e 64 20	."bzr".will.output.warnings.and.
1fa0	69 6e 66 6f 72 6d 61 74 69 6f 6e 61 6c 20 6d 65 73 73 61 67 65 73 20 74 6f 0a 20 20 20 20 20 20	informational.messages.to.......
1fc0	20 20 20 20 20 20 3b 3b 20 73 74 64 65 72 72 3b 20 64 75 65 20 74 6f 20 45 6d 61 63 73 27 20 60	......;;.stderr;.due.to.Emacs'.`
1fe0	76 63 2d 64 6f 2d 63 6f 6d 6d 61 6e 64 27 20 28 61 6e 64 2c 20 69 74 20 73 65 65 6d 73 2c 0a 20	vc-do-command'.(and,.it.seems,..
2000	20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 73 74 61 72 74 2d 70 72 6f 63 65 73 73 27 20 69 74	...........;;.`start-process'.it
2020	73 65 6c 66 29 20 6c 69 6d 69 74 61 74 69 6f 6e 73 2c 20 77 65 20 63 61 6e 6e 6f 74 20 63 61 74	self).limitations,.we.cannot.cat
2040	63 68 20 73 74 64 65 72 72 0a 20 20 20 20 20 20 20 20 3b 3b 20 61 6e 64 20 73 74 64 6f 75 74 20	ch.stderr.........;;.and.stdout.
2060	69 6e 74 6f 20 64 69 66 66 65 72 65 6e 74 20 62 75 66 66 65 72 73 2e 20 20 53 6f 2c 20 69 66 20	into.different.buffers...So,.if.
2080	74 68 65 72 65 27 73 20 61 6e 79 74 68 69 6e 67 0a 20 20 20 20 20 20 20 20 3b 3b 20 6c 65 66 74	there's.anything.........;;.left
20a0	20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 61 66 74 65 72 20 72 65 6d 6f 76 69 6e 67 20 74 68	.in.the.buffer.after.removing.th
20c0	65 20 61 62 6f 76 65 20 73 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 3b 3b 20 6b 65 79 77 6f 72	e.above.status.........;;.keywor
20e0	64 73 2c 20 6c 65 74 20 75 73 20 6a 75 73 74 20 70 72 65 73 75 6d 65 20 74 68 61 74 20 61 6e 79	ds,.let.us.just.presume.that.any
2100	20 6f 74 68 65 72 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 3b 3b 20 22	.other.message.from.........;;."
2120	62 7a 72 22 20 69 73 20 61 20 75 73 65 72 20 77 61 72 6e 69 6e 67 2c 20 61 6e 64 20 64 69 73 70	bzr".is.a.user.warning,.and.disp
2140	6c 61 79 20 69 74 2e 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 57 61 72 6e 69 6e	lay.it..........(message."Warnin
2160	67 73 20 69 6e 20 60 62 7a 72 27 20 6f 75 74 70 75 74 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20	gs.in.`bzr'.output:.%s".........
2180	20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d	.......(buffer-substring.(point-
21a0	6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20	min).(point-max)))).......(when.
21c0	73 74 61 74 65 0a 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72 6f 70 20 66	state.........(vc-file-setprop.f
21e0	69 6c 65 20 27 76 63 2d 77 6f 72 6b 66 69 6c 65 2d 76 65 72 73 69 6f 6e 0a 20 20 20 20 20 20 20	ile.'vc-workfile-version........
2200	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 62 7a 72 2d 77 6f 72 6b 66 69	..................(vc-bzr-workfi
2220	6c 65 2d 76 65 72 73 69 6f 6e 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 76 63 2d 66 69	le-version.file)).........(vc-fi
2240	6c 65 2d 73 65 74 70 72 6f 70 20 66 69 6c 65 20 27 76 63 2d 73 74 61 74 65 20 73 74 61 74 65 29	le-setprop.file.'vc-state.state)
2260	29 0a 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 29 29 0a 20 20 20 20 28 66 69 6c 65 2d 65 72	)...........state)).....(file-er
2280	72 6f 72 20 6e 69 6c 29 29 29 20 3b 20 76 63 2d 62 7a 72 2d 70 72 6f 67 72 61 6d 20 6e 6f 74 20	ror.nil))).;.vc-bzr-program.not.
22a0	66 6f 75 6e 64 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 77 6f 72 6b 66 69 6c 65 2d 75 6e	found..(defun.vc-bzr-workfile-un
22c0	63 68 61 6e 67 65 64 2d 70 20 28 66 69 6c 65 29 0a 20 20 28 65 71 20 27 75 70 2d 74 6f 2d 64 61	changed-p.(file)...(eq.'up-to-da
22e0	74 65 20 28 76 63 2d 62 7a 72 2d 73 74 61 74 65 20 66 69 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e	te.(vc-bzr-state.file)))..(defun
2300	20 76 63 2d 62 7a 72 2d 77 6f 72 6b 66 69 6c 65 2d 76 65 72 73 69 6f 6e 20 28 66 69 6c 65 29 0a	.vc-bzr-workfile-version.(file).
2320	20 20 28 6c 65 78 69 63 61 6c 2d 6c 65 74 2a 0a 20 20 20 20 20 20 28 28 72 6f 6f 74 64 69 72 20	..(lexical-let*.......((rootdir.
2340	28 76 63 2d 62 7a 72 2d 72 6f 6f 74 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 28 62 72 61 6e	(vc-bzr-root.file))........(bran
2360	63 68 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 72 6f 6f 74 64 69 72 20 22	ch-format-file.(concat.rootdir."
2380	2f 22 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 62 72 61 6e 63 68 2d 66 6f 72 6d 61 74 2d 66 69	/".vc-bzr-admin-branch-format-fi
23a0	6c 65 29 29 0a 20 20 20 20 20 20 20 28 72 65 76 68 69 73 74 6f 72 79 2d 66 69 6c 65 20 28 63 6f	le))........(revhistory-file.(co
23c0	6e 63 61 74 20 72 6f 6f 74 64 69 72 20 22 2f 22 20 76 63 2d 62 7a 72 2d 61 64 6d 69 6e 2d 72 65	ncat.rootdir."/".vc-bzr-admin-re
23e0	76 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 28 6c 61 73 74 72 65 76 2d 66 69 6c 65 20	vhistory))........(lastrev-file.
2400	28 63 6f 6e 63 61 74 20 72 6f 6f 74 64 69 72 20 22 2f 22 20 22 62 72 61 6e 63 68 2f 6c 61 73 74	(concat.rootdir."/"."branch/last
2420	2d 72 65 76 69 73 69 6f 6e 22 29 29 29 0a 20 20 20 20 3b 3b 20 43 6f 75 6e 74 20 6c 69 6e 65 73	-revision"))).....;;.Count.lines
2440	20 69 6e 20 2e 62 7a 72 2f 62 72 61 6e 63 68 2f 72 65 76 69 73 69 6f 6e 2d 68 69 73 74 6f 72 79	.in..bzr/branch/revision-history
2460	20 74 6f 20 61 76 6f 69 64 20 66 6f 72 6b 69 6e 67 20 61 0a 20 20 20 20 3b 3b 20 62 7a 72 20 70	.to.avoid.forking.a.....;;.bzr.p
2480	72 6f 63 65 73 73 2e 20 20 54 68 69 73 20 6c 6f 6f 6b 73 20 61 74 20 69 6e 74 65 72 6e 61 6c 20	rocess...This.looks.at.internal.
24a0	66 69 6c 65 73 2e 20 20 4d 61 79 20 62 72 65 61 6b 20 69 66 20 74 68 65 79 0a 20 20 20 20 3b 3b	files...May.break.if.they.....;;
24c0	20 63 68 61 6e 67 65 20 74 68 65 69 72 20 66 6f 72 6d 61 74 2e 0a 20 20 20 20 28 69 66 20 28 66	.change.their.format......(if.(f
24e0	69 6c 65 2d 65 78 69 73 74 73 2d 70 20 62 72 61 6e 63 68 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 29	ile-exists-p.branch-format-file)
2500	0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 28	...(with-temp-buffer...........(
2520	69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 62 72 61 6e 63 68 2d 66 6f 72 6d	insert-file-contents.branch-form
2540	61 74 2d 66 69 6c 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28	at-file)............(goto-char.(
2560	70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20	point-min))...........(cond.....
2580	20 20 20 20 20 20 20 28 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e	.......((or..............(lookin
25a0	67 2d 61 74 20 22 42 61 7a 61 61 72 2d 4e 47 20 62 72 61 6e 63 68 2c 20 66 6f 72 6d 61 74 20 30	g-at."Bazaar-NG.branch,.format.0
25c0	2e 30 2e 34 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20	.0.4")..............(looking-at.
25e0	22 42 61 7a 61 61 72 2d 4e 47 20 62 72 61 6e 63 68 20 66 6f 72 6d 61 74 20 35 22 29 29 0a 20 20	"Bazaar-NG.branch.format.5"))...
2600	20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 75 6e 74 20 6c 69 6e 65 73 20 69 6e 20 2e 62 7a 72	..........;;.count.lines.in..bzr
2620	2f 62 72 61 6e 63 68 2f 72 65 76 69 73 69 6f 6e 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20	/branch/revision-history........
2640	20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 72 65 76 68 69 73 74	...(insert-file-contents.revhist
2660	6f 72 79 2d 66 69 6c 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 74	ory-file)..............(number-t
2680	6f 2d 73 74 72 69 6e 67 20 28 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 28 6c 69 6e 65 2d 65 6e 64 2d	o-string.(count-lines.(line-end-
26a0	70 6f 73 69 74 69 6f 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20	position).(point-max))))........
26c0	20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 42 61 7a 61 61 72 20 42 72 61 6e 63 68 20	....((looking-at."Bazaar.Branch.
26e0	46 6f 72 6d 61 74 20 36 20 28 62 7a 72 20 30 2e 31 35 29 22 29 0a 20 20 20 20 20 20 20 20 20 20	Format.6.(bzr.0.15)")...........
2700	20 20 3b 3b 20 72 65 76 6e 6f 20 69 73 20 74 68 65 20 66 69 72 73 74 20 6e 75 6d 62 65 72 20 69	..;;.revno.is.the.first.number.i
2720	6e 20 2e 62 7a 72 2f 62 72 61 6e 63 68 2f 6c 61 73 74 2d 72 65 76 69 73 69 6f 6e 0a 20 20 20 20	n..bzr/branch/last-revision.....
2740	20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 6c 61	........(insert-file-contents.la
2760	73 74 72 65 76 2d 66 69 6c 65 29 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63	strev-file)..............(goto-c
2780	68 61 72 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20	har.(line-end-position))........
27a0	20 20 20 20 20 28 69 66 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 30 2d	.....(if.(re-search-forward."[0-
27c0	39 5d 2b 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66	9]+".nil.t).................(buf
27e0	66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30	fer-substring.(match-beginning.0
2800	29 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 66 61	).(match-end.0)))))).......;;.fa
2820	6c 6c 62 61 63 6b 20 74 6f 20 63 61 6c 6c 69 6e 67 20 22 62 7a 72 20 72 65 76 6e 6f 22 0a 20 20	llback.to.calling."bzr.revno"...
2840	20 20 20 20 28 6c 65 78 69 63 61 6c 2d 6c 65 74 2a 0a 20 20 20 20 20 20 20 20 20 20 28 28 72 65	....(lexical-let*...........((re
2860	73 75 6c 74 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 2d 64 69 73 63 61 72 64 69 6e 67 2d	sult.(vc-bzr-command-discarding-
2880	73 74 64 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 63 2d 62 7a	stderr.....................vc-bz
28a0	72 2d 70 72 6f 67 72 61 6d 20 22 72 65 76 6e 6f 22 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20	r-program."revno".file))........
28c0	20 20 20 20 28 65 78 69 74 63 6f 64 65 20 28 63 61 72 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20	....(exitcode.(car.result)).....
28e0	20 20 20 20 20 20 20 28 6f 75 74 70 75 74 20 28 63 64 72 20 72 65 73 75 6c 74 29 29 29 0a 20 20	.......(output.(cdr.result)))...
2900	20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 28 28 65 71 20 65 78 69 74 63 6f	......(cond..........((eq.exitco
2920	64 65 20 30 29 20 28 73 75 62 73 74 72 69 6e 67 20 6f 75 74 70 75 74 20 30 20 2d 31 29 29 0a 20	de.0).(substring.output.0.-1))..
2940	20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d	........(t.nil))))))..(defun.vc-
2960	62 7a 72 2d 63 68 65 63 6b 6f 75 74 2d 6d 6f 64 65 6c 20 28 66 69 6c 65 29 0a 20 20 27 69 6d 70	bzr-checkout-model.(file)...'imp
2980	6c 69 63 69 74 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 63 72 65 61 74 65 2d 72 65 70	licit)..(defun.vc-bzr-create-rep
29a0	6f 20 28 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 6e 65 77 20 42 7a 72 20 72 65 70 6f 73 69 74	o.()..."Create.a.new.Bzr.reposit
29c0	6f 72 79 2e 22 0a 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 69 6e 69 74 22 20 6e	ory."...(vc-bzr-command."init".n
29e0	69 6c 20 30 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 72 65 67 69 73 74	il.0.nil))..(defun.vc-bzr-regist
2a00	65 72 20 28 66 69 6c 65 73 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 76 20 63 6f 6d 6d 65 6e 74 29	er.(files.&optional.rev.comment)
2a20	0a 20 20 22 52 65 67 69 73 74 65 72 20 46 49 4c 45 20 75 6e 64 65 72 20 62 7a 72 2e 0a 53 69 67	..."Register.FILE.under.bzr..Sig
2a40	6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 75 6e 6c 65 73 73 20 52 45 56 20 69 73 20 6e 69 6c 2e 0a	nal.an.error.unless.REV.is.nil..
2a60	43 4f 4d 4d 45 4e 54 20 69 73 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 28 69 66 20 72 65 76 20 28	COMMENT.is.ignored."...(if.rev.(
2a80	65 72 72 6f 72 20 22 43 61 6e 27 74 20 72 65 67 69 73 74 65 72 20 65 78 70 6c 69 63 69 74 20 76	error."Can't.register.explicit.v
2aa0	65 72 73 69 6f 6e 20 77 69 74 68 20 62 7a 72 22 29 29 0a 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d	ersion.with.bzr"))...(vc-bzr-com
2ac0	6d 61 6e 64 20 22 61 64 64 22 20 6e 69 6c 20 30 20 66 69 6c 65 73 29 29 0a 0a 3b 3b 20 43 6f 75	mand."add".nil.0.files))..;;.Cou
2ae0	6c 64 20 72 75 6e 20 60 62 7a 72 20 73 74 61 74 75 73 27 20 69 6e 20 74 68 65 20 64 69 72 65 63	ld.run.`bzr.status'.in.the.direc
2b00	74 6f 72 79 20 61 6e 64 20 73 65 65 20 69 66 20 69 74 20 73 75 63 63 65 65 64 73 2c 20 62 75 74	tory.and.see.if.it.succeeds,.but
2b20	0a 3b 3b 20 74 68 61 74 27 73 20 72 65 6c 61 74 69 76 65 6c 79 20 65 78 70 65 6e 73 69 76 65 2e	.;;.that's.relatively.expensive.
2b40	0a 28 64 65 66 61 6c 69 61 73 20 27 76 63 2d 62 7a 72 2d 72 65 73 70 6f 6e 73 69 62 6c 65 2d 70	.(defalias.'vc-bzr-responsible-p
2b60	20 27 76 63 2d 62 7a 72 2d 72 6f 6f 74 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20	.'vc-bzr-root..."Return.non-nil.
2b80	69 66 20 46 49 4c 45 20 69 73 20 28 70 6f 74 65 6e 74 69 61 6c 6c 79 29 20 63 6f 6e 74 72 6f 6c	if.FILE.is.(potentially).control
2ba0	6c 65 64 20 62 79 20 62 7a 72 2e 0a 54 68 65 20 63 72 69 74 65 72 69 6f 6e 20 69 73 20 74 68 61	led.by.bzr..The.criterion.is.tha
2bc0	74 20 74 68 65 72 65 20 69 73 20 61 20 60 2e 62 7a 72 27 20 64 69 72 65 63 74 6f 72 79 20 69 6e	t.there.is.a.`.bzr'.directory.in
2be0	20 74 68 65 20 73 61 6d 65 0a 6f 72 20 61 20 73 75 70 65 72 69 6f 72 20 64 69 72 65 63 74 6f 72	.the.same.or.a.superior.director
2c00	79 2e 22 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 63 6f 75 6c 64 2d 72 65 67 69 73 74	y.")..(defun.vc-bzr-could-regist
2c20	65 72 20 28 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 46	er.(file)..."Return.non-nil.if.F
2c40	49 4c 45 20 63 6f 75 6c 64 20 62 65 20 72 65 67 69 73 74 65 72 65 64 20 75 6e 64 65 72 20 62 7a	ILE.could.be.registered.under.bz
2c60	72 2e 22 0a 20 20 28 61 6e 64 20 28 76 63 2d 62 7a 72 2d 72 65 73 70 6f 6e 73 69 62 6c 65 2d 70	r."...(and.(vc-bzr-responsible-p
2c80	20 66 69 6c 65 29 20 20 20 20 20 20 3b 20 73 68 6f 72 74 63 75 74 0a 20 20 20 20 20 20 20 28 63	.file)......;.shortcut........(c
2ca0	6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74	ondition-case.()............(wit
2cc0	68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 62	h-temp-buffer..............(vc-b
2ce0	7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 61 64 64 22 20 74 20 30 20 66 69 6c 65 20 22 2d 2d 64 72 79	zr-command."add".t.0.file."--dry
2d00	2d 72 75 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 68 65 20 63 6f 6d 6d 61	-run")..............;;.The.comma
2d20	6e 64 20 73 75 63 63 65 65 64 73 20 77 69 74 68 20 6e 6f 20 6f 75 74 70 75 74 20 69 66 20 66 69	nd.succeeds.with.no.output.if.fi
2d40	6c 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 67 69 73 74 65 72 65 64	le.is..............;;.registered
2d60	20 28 69 6e 20 62 7a 72 20 30 2e 38 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74	.(in.bzr.0.8)...............(got
2d80	6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	o-char.(point-min)).............
2da0	20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 61 64 64 65 64 20 22 29 29 0a 20 20 20 20 20 20 20 20	.(looking-at."added.")).........
2dc0	20 28 65 72 72 6f 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 75 6e 72 65 67	.(error))))..(defun.vc-bzr-unreg
2de0	69 73 74 65 72 20 28 66 69 6c 65 29 0a 20 20 22 55 6e 72 65 67 69 73 74 65 72 20 46 49 4c 45 20	ister.(file)..."Unregister.FILE.
2e00	66 72 6f 6d 20 62 7a 72 2e 22 0a 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 72 65	from.bzr."...(vc-bzr-command."re
2e20	6d 6f 76 65 22 20 6e 69 6c 20 30 20 66 69 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a	move".nil.0.file))..(defun.vc-bz
2e40	72 2d 63 68 65 63 6b 69 6e 20 28 66 69 6c 65 73 20 72 65 76 20 63 6f 6d 6d 65 6e 74 29 0a 20 20	r-checkin.(files.rev.comment)...
2e60	22 43 68 65 63 6b 20 46 49 4c 45 20 69 6e 20 74 6f 20 62 7a 72 20 77 69 74 68 20 6c 6f 67 20 6d	"Check.FILE.in.to.bzr.with.log.m
2e80	65 73 73 61 67 65 20 43 4f 4d 4d 45 4e 54 2e 0a 52 45 56 20 6e 6f 6e 2d 6e 69 6c 20 67 65 74 73	essage.COMMENT..REV.non-nil.gets
2ea0	20 61 6e 20 65 72 72 6f 72 2e 22 0a 20 20 28 69 66 20 72 65 76 20 28 65 72 72 6f 72 20 22 43 61	.an.error."...(if.rev.(error."Ca
2ec0	6e 27 74 20 63 68 65 63 6b 20 69 6e 20 61 20 73 70 65 63 69 66 69 63 20 76 65 72 73 69 6f 6e 20	n't.check.in.a.specific.version.
2ee0	77 69 74 68 20 62 7a 72 22 29 29 0a 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 63	with.bzr"))...(vc-bzr-command."c
2f00	6f 6d 6d 69 74 22 20 6e 69 6c 20 30 20 66 69 6c 65 73 20 22 2d 6d 22 20 63 6f 6d 6d 65 6e 74 29	ommit".nil.0.files."-m".comment)
2f20	29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 63 68 65 63 6b 6f 75 74 20 28 66 69 6c 65 20	)..(defun.vc-bzr-checkout.(file.
2f40	26 6f 70 74 69 6f 6e 61 6c 20 65 64 69 74 61 62 6c 65 20 72 65 76 20 64 65 73 74 66 69 6c 65 29	&optional.editable.rev.destfile)
2f60	0a 20 20 22 43 68 65 63 6b 6f 75 74 20 72 65 76 69 73 69 6f 6e 20 52 45 56 20 6f 66 20 46 49 4c	..."Checkout.revision.REV.of.FIL
2f80	45 20 66 72 6f 6d 20 62 7a 72 20 74 6f 20 44 45 53 54 46 49 4c 45 2e 0a 45 44 49 54 41 42 4c 45	E.from.bzr.to.DESTFILE..EDITABLE
2fa0	20 69 73 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 64 65 73 74 66 69 6c 65	.is.ignored."...(unless.destfile
2fc0	0a 20 20 20 20 28 73 65 74 71 20 64 65 73 74 66 69 6c 65 20 28 76 63 2d 76 65 72 73 69 6f 6e 2d	.....(setq.destfile.(vc-version-
2fe0	62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 20 72 65 76 29 29 29 0a 20 20 28	backup-file-name.file.rev)))...(
3000	6c 65 74 20 28 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 66 6f 72 2d 72 65 61 64 20 27 62 69	let.((coding-system-for-read.'bi
3020	6e 61 72 79 29 0a 20 20 20 20 20 20 20 20 28 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 2d 66 6f 72	nary).........(coding-system-for
3040	2d 77 72 69 74 65 20 27 62 69 6e 61 72 79 29 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 66 69	-write.'binary))...(with-temp-fi
3060	6c 65 20 64 65 73 74 66 69 6c 65 0a 20 20 20 20 28 69 66 20 72 65 76 0a 20 20 20 20 20 20 20 20	le.destfile.....(if.rev.........
3080	28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 63 61 74 22 20 74 20 30 20 66 69 6c 65 20 22	(vc-bzr-command."cat".t.0.file."
30a0	2d 72 22 20 72 65 76 29 0a 20 20 20 20 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22	-r".rev).......(vc-bzr-command."
30c0	63 61 74 22 20 74 20 30 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a	cat".t.0.file)))))..(defun.vc-bz
30e0	72 2d 72 65 76 65 72 74 20 28 66 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 63 6f 6e 74 65 6e 74	r-revert.(file.&optional.content
3100	73 2d 64 6f 6e 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 6f 6e 74 65 6e 74 73 2d 64 6f 6e 65 0a	s-done)...(unless.contents-done.
3120	20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 28 76 63 2d 62 7a 72 2d 63 6f	....(with-temp-buffer.(vc-bzr-co
3140	6d 6d 61 6e 64 20 22 72 65 76 65 72 74 22 20 74 20 27 61 73 79 6e 63 20 66 69 6c 65 29 29 29 29	mmand."revert".t.'async.file))))
3160	0a 0a 28 64 65 66 76 61 72 20 6c 6f 67 2d 76 69 65 77 2d 6d 65 73 73 61 67 65 2d 72 65 29 0a 28	..(defvar.log-view-message-re).(
3180	64 65 66 76 61 72 20 6c 6f 67 2d 76 69 65 77 2d 66 69 6c 65 2d 72 65 29 0a 28 64 65 66 76 61 72	defvar.log-view-file-re).(defvar
31a0	20 6c 6f 67 2d 76 69 65 77 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 29 0a 28 64	.log-view-font-lock-keywords).(d
31c0	65 66 76 61 72 20 6c 6f 67 2d 76 69 65 77 2d 63 75 72 72 65 6e 74 2d 74 61 67 2d 66 75 6e 63 74	efvar.log-view-current-tag-funct
31e0	69 6f 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 76 63 2d 62 7a	ion)..(define-derived-mode.vc-bz
3200	72 2d 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 20 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 20 22 42	r-log-view-mode.log-view-mode."B
3220	7a 72 2d 4c 6f 67 2d 56 69 65 77 22 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6c 6f 67	zr-Log-View"...(remove-hook.'log
3240	2d 76 69 65 77 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 76 63 2d 62 7a 72 2d 6c 6f 67 2d 76 69 65 77	-view-mode-hook.'vc-bzr-log-view
3260	2d 6d 6f 64 65 29 20 3b 44 65 61 63 74 69 76 61 74 65 20 74 68 65 20 68 61 63 6b 2e 0a 20 20 28	-mode).;Deactivate.the.hack....(
3280	72 65 71 75 69 72 65 20 27 61 64 64 2d 6c 6f 67 29 0a 20 20 3b 3b 20 44 6f 6e 27 74 20 68 61 76	require.'add-log)...;;.Don't.hav
32a0	65 20 66 69 6c 65 20 6d 61 72 6b 65 72 73 2c 20 73 6f 20 75 73 65 20 69 6d 70 6f 73 73 69 62 6c	e.file.markers,.so.use.impossibl
32c0	65 20 72 65 67 65 78 70 2e 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72	e.regexp....(set.(make-local-var
32e0	69 61 62 6c 65 20 27 6c 6f 67 2d 76 69 65 77 2d 66 69 6c 65 2d 72 65 29 20 22 5c 5c 27 5c 5c 60	iable.'log-view-file-re)."\\'\\`
3300	22 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27	")...(set.(make-local-variable.'
3320	6c 6f 67 2d 76 69 65 77 2d 6d 65 73 73 61 67 65 2d 72 65 29 0a 20 20 20 20 20 20 20 22 5e 20 2a	log-view-message-re)........"^.*
3340	2d 2b 5c 6e 20 2a 5c 5c 28 3f 3a 72 65 76 6e 6f 3a 20 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 5c 5c	-+\n.*\$?:revno:.\\([0-9]+\$\\
3360	7c 6d 65 72 67 65 64 3a 20 2e 2b 5c 5c 29 22 29 0a 20 20 28 73 65 74 20 28 6d 61 6b 65 2d 6c 6f	\|merged:..+\\)")...(set.(make-lo
3380	63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 6c 6f 67 2d 76 69 65 77 2d 66 6f 6e 74 2d 6c 6f 63 6b	cal-variable.'log-view-font-lock
33a0	2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 20 20 20 20 3b 3b 20 6c 6f 67 2d 76 69 65 77 2d 66 6f	-keywords)........;;.log-view-fo
33c0	6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 69 73 20 63 61 72 65 66 75 6c 20 74 6f 20 75	nt-lock-keywords.is.careful.to.u
33e0	73 65 20 74 68 65 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 0a 20 20 20 20 20 20 20 3b 3b 20 76 61	se.the.buffer-local........;;.va
3400	6c 75 65 20 6f 66 20 6c 6f 67 2d 76 69 65 77 2d 6d 65 73 73 61 67 65 2d 72 65 20 6f 6e 6c 79 20	lue.of.log-view-message-re.only.
3420	73 69 6e 63 65 20 45 6d 61 63 73 2d 32 33 2e 0a 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 60	since.Emacs-23.........(append.`
3440	28 28 2c 6c 6f 67 2d 76 69 65 77 2d 6d 65 73 73 61 67 65 2d 72 65 20 2e 20 27 6c 6f 67 2d 76 69	((,log-view-message-re...'log-vi
3460	65 77 2d 6d 65 73 73 61 67 65 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ew-message-face))...............
3480	20 3b 3b 20 6c 6f 67 2d 76 69 65 77 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a	.;;.log-view-font-lock-keywords.
34a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 22 5e 20 2a 63 6f 6d 6d 69 74 74 65 72 3a	...............'(("^.*committer:
34c0	20 5c 0a 5c 5c 28 5b 5e 3c 28 5d 2b 3f 5c 5c 29 5b 20 20 5d 2a 5b 28 3c 5d 5c 5c 28 5b 5b 3a 61	.\.\$[^<(]+?\$[..]*[(<]\\([[:a
34e0	6c 6e 75 6d 3a 5d 5f 2e 2b 2d 5d 2b 40 5b 5b 3a 61 6c 6e 75 6d 3a 5d 5f 2e 2d 5d 2b 5c 5c 29 5b	lnum:]_.+-]+@[[:alnum:]_.-]+\\)[
3500	3e 29 5d 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 20 27 63 68 61 6e 67	>)]"...................(1.'chang
3520	65 2d 6c 6f 67 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 32	e-log-name)...................(2
3540	20 27 63 68 61 6e 67 65 2d 6c 6f 67 2d 65 6d 61 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20	.'change-log-email))............
3560	20 20 20 20 20 20 28 22 5e 20 2a 74 69 6d 65 73 74 61 6d 70 3a 20 5c 5c 28 2e 2a 5c 5c 29 22 20	......("^.timestamp:.\$.\$".
3580	28 31 20 27 63 68 61 6e 67 65 2d 6c 6f 67 2d 64 61 74 65 2d 66 61 63 65 29 29 29 29 29 29 0a 0a	(1.'change-log-date-face))))))..
35a0	28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 70 72 69 6e 74 2d 6c 6f 67 20 28 66 69 6c 65 73 20 26	(defun.vc-bzr-print-log.(files.&
35c0	6f 70 74 69 6f 6e 61 6c 20 62 75 66 66 65 72 29 20 3b 20 67 65 74 20 62 75 66 66 65 72 20 61 72	optional.buffer).;.get.buffer.ar
35e0	67 20 69 6e 20 45 6d 61 63 73 20 32 32 0a 20 20 22 47 65 74 20 62 7a 72 20 63 68 61 6e 67 65 20	g.in.Emacs.22..."Get.bzr.change.
3600	6c 6f 67 20 66 6f 72 20 46 49 4c 45 53 20 69 6e 74 6f 20 73 70 65 63 69 66 69 65 64 20 42 55 46	log.for.FILES.into.specified.BUF
3620	46 45 52 2e 22 0a 20 20 3b 3b 20 46 69 78 6d 65 3a 20 54 68 69 73 20 6d 69 67 68 74 20 6e 65 65	FER."...;;.Fixme:.This.might.nee
3640	64 20 74 68 65 20 6c 6f 63 61 6c 65 20 66 69 78 69 6e 67 20 75 70 20 69 66 20 74 68 69 6e 67 73	d.the.locale.fixing.up.if.things
3660	20 6c 69 6b 65 20 60 72 65 76 6e 6f 27 0a 20 20 3b 3b 20 67 6f 74 20 6c 6f 63 61 6c 69 7a 65 64	.like.`revno'...;;.got.localized
3680	2c 20 62 75 74 20 63 65 72 74 61 69 6e 6c 79 20 69 74 20 73 68 6f 75 6c 64 6e 27 74 20 75 73 65	,.but.certainly.it.shouldn't.use
36a0	20 4c 43 5f 41 4c 4c 3d 43 2e 0a 20 20 3b 3b 20 4e 42 2e 20 20 43 61 6e 27 74 20 62 65 20 61 73	.LC_ALL=C....;;.NB...Can't.be.as
36c0	79 6e 63 20 2d 2d 20 73 65 65 20 60 76 63 2d 62 7a 72 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d	ync.--.see.`vc-bzr-post-command-
36e0	66 75 6e 63 74 69 6f 6e 27 2e 0a 20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 6c 6f	function'....(vc-bzr-command."lo
3700	67 22 20 62 75 66 66 65 72 20 30 20 66 69 6c 65 73 29 0a 20 20 3b 3b 20 46 49 58 4d 45 3a 20 55	g".buffer.0.files)...;;.FIXME:.U
3720	6e 74 69 6c 20 45 6d 61 63 73 2d 32 33 2c 20 56 43 20 77 61 73 20 6d 69 73 73 69 6e 67 20 61 20	ntil.Emacs-23,.VC.was.missing.a.
3740	68 6f 6f 6b 20 74 6f 20 73 6f 72 74 20 6f 75 74 20 74 68 65 20 6d 6f 64 65 20 66 6f 72 0a 20 20	hook.to.sort.out.the.mode.for...
3760	3b 3b 20 74 68 65 20 62 75 66 66 65 72 2c 20 6f 72 20 61 74 20 6c 65 61 73 74 20 73 65 74 20 74	;;.the.buffer,.or.at.least.set.t
3780	68 65 20 72 65 67 65 78 70 73 20 72 69 67 68 74 2e 0a 20 20 28 75 6e 6c 65 73 73 20 28 66 62 6f	he.regexps.right....(unless.(fbo
37a0	75 6e 64 70 20 27 76 63 2d 64 65 66 61 75 6c 74 2d 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 29 0a	undp.'vc-default-log-view-mode).
37c0	20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 2d 68 6f 6f	....(add-hook.'log-view-mode-hoo
37e0	6b 20 27 76 63 2d 62 7a 72 2d 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66	k.'vc-bzr-log-view-mode)))..(def
3800	75 6e 20 76 63 2d 62 7a 72 2d 73 68 6f 77 2d 6c 6f 67 2d 65 6e 74 72 79 20 28 76 65 72 73 69 6f	un.vc-bzr-show-log-entry.(versio
3820	6e 29 0a 20 20 22 46 69 6e 64 20 65 6e 74 72 79 20 66 6f 72 20 70 61 74 63 68 20 6e 61 6d 65 20	n)..."Find.entry.for.patch.name.
3840	56 45 52 53 49 4f 4e 20 69 6e 20 62 7a 72 20 63 68 61 6e 67 65 20 6c 6f 67 20 62 75 66 66 65 72	VERSION.in.bzr.change.log.buffer
3860	2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 28	."...(goto-char.(point-min))...(
3880	6c 65 74 20 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 29 0a 20 20 20 20 28 69 66 20 28	let.(case-fold-search).....(if.(
38a0	72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 63 6f 6e 63 61 74 20 22 5e 2d 2b 5c 6e	re-search-forward.(concat."^-+\n
38c0	72 65 76 6e 6f 3a 20 22 20 76 65 72 73 69 6f 6e 20 22 24 22 29 20 6e 69 6c 20 74 29 0a 20 20 20	revno:.".version."$").nil.t)....
38e0	20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 30 29 0a 20 20 20 20 20	.....(beginning-of-line.0)......
3900	20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 0a 28 61 75	.(goto-char.(point-min)))))..(au
3920	74 6f 6c 6f 61 64 20 27 76 63 2d 64 69 66 66 2d 73 77 69 74 63 68 65 73 2d 6c 69 73 74 20 22 76	toload.'vc-diff-switches-list."v
3940	63 22 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 64 69 66	c".nil.nil.t)..(defun.vc-bzr-dif
3960	66 20 28 66 69 6c 65 73 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 76 31 20 72 65 76 32 20 62 75 66	f.(files.&optional.rev1.rev2.buf
3980	66 65 72 29 0a 20 20 22 56 43 20 62 7a 72 20 62 61 63 6b 65 6e 64 20 66 6f 72 20 64 69 66 66 2e	fer)..."VC.bzr.backend.for.diff.
39a0	22 0a 20 20 28 6c 65 74 20 28 28 77 6f 72 6b 69 6e 67 20 28 76 63 2d 77 6f 72 6b 66 69 6c 65 2d	"...(let.((working.(vc-workfile-
39c0	76 65 72 73 69 6f 6e 20 28 69 66 20 28 63 6f 6e 73 70 20 66 69 6c 65 73 29 20 28 63 61 72 20 66	version.(if.(consp.files).(car.f
39e0	69 6c 65 73 29 20 66 69 6c 65 73 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 65 71	iles).files)))).....(if.(and.(eq
3a00	75 61 6c 20 72 65 76 31 20 77 6f 72 6b 69 6e 67 29 20 28 6e 6f 74 20 72 65 76 32 29 29 0a 20 20	ual.rev1.working).(not.rev2))...
3a20	20 20 20 20 20 20 28 73 65 74 71 20 72 65 76 31 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 66 20 28	......(setq.rev1.nil)).....(if.(
3a40	61 6e 64 20 28 6e 6f 74 20 72 65 76 31 29 20 72 65 76 32 29 0a 20 20 20 20 20 20 20 20 28 73 65	and.(not.rev1).rev2).........(se
3a60	74 71 20 72 65 76 31 20 77 6f 72 6b 69 6e 67 29 29 0a 20 20 20 20 3b 3b 20 4e 42 2e 20 20 43 61	tq.rev1.working)).....;;.NB...Ca
3a80	6e 27 74 20 62 65 20 61 73 79 6e 63 20 2d 2d 20 73 65 65 20 60 76 63 2d 62 7a 72 2d 70 6f 73 74	n't.be.async.--.see.`vc-bzr-post
3aa0	2d 63 6f 6d 6d 61 6e 64 2d 66 75 6e 63 74 69 6f 6e 27 2e 0a 20 20 20 20 3b 3b 20 62 7a 72 20 64	-command-function'......;;.bzr.d
3ac0	69 66 66 20 70 72 6f 64 75 63 65 73 20 63 6f 6e 64 69 74 69 6f 6e 20 63 6f 64 65 20 31 20 66 6f	iff.produces.condition.code.1.fo
3ae0	72 20 73 6f 6d 65 20 72 65 61 73 6f 6e 2e 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 76 63 2d 62	r.some.reason......(apply.#'vc-b
3b00	7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 64 69 66 66 22 20 28 6f 72 20 62 75 66 66 65 72 20 22 2a 76	zr-command."diff".(or.buffer."*v
3b20	63 2d 64 69 66 66 2a 22 29 20 31 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d	c-diff*").1.files............"--
3b40	64 69 66 66 2d 6f 70 74 69 6f 6e 73 22 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 69 64 65 6e 74 69	diff-options".(mapconcat.'identi
3b60	74 79 20 28 76 63 2d 64 69 66 66 2d 73 77 69 74 63 68 65 73 2d 6c 69 73 74 20 62 7a 72 29 0a 20	ty.(vc-diff-switches-list.bzr)..
3b80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
3ba0	20 20 20 20 20 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 76 31	......".")............(when.rev1
3bc0	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 72 65 76 32 0a 20 20 20 20 20 20 20 20 20	..............(if.rev2..........
3be0	20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 2d 72 22 20 28 66 6f 72 6d 61 74 20 22 25 73 2e 2e	........(list."-r".(format."%s..
3c00	25 73 22 20 72 65 76 31 20 72 65 76 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	%s".rev1.rev2))................(
3c20	6c 69 73 74 20 22 2d 72 22 20 72 65 76 31 29 29 29 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20	list."-r".rev1))))))..(defalias.
3c40	27 76 63 2d 62 7a 72 2d 64 69 66 66 2d 74 72 65 65 20 27 76 63 2d 62 7a 72 2d 64 69 66 66 29 0a	'vc-bzr-diff-tree.'vc-bzr-diff).
3c60	0a 3b 3b 20 46 69 78 6d 65 3a 20 69 6d 70 6c 65 6d 65 6e 74 20 76 63 2d 62 7a 72 2d 64 69 72 2d	.;;.Fixme:.implement.vc-bzr-dir-
3c80	73 74 61 74 65 2c 20 76 63 2d 62 7a 72 2d 64 69 72 65 64 2d 73 74 61 74 65 2d 69 6e 66 6f 0a 0a	state,.vc-bzr-dired-state-info..
3ca0	3b 3b 20 46 69 78 6d 65 3a 20 76 63 2d 7b 6e 65 78 74 2c 70 72 65 76 69 6f 75 73 7d 2d 76 65 72	;;.Fixme:.vc-{next,previous}-ver
3cc0	73 69 6f 6e 20 6e 65 65 64 20 66 69 78 69 6e 67 20 69 6e 20 76 63 2e 65 6c 20 74 6f 20 64 65 61	sion.need.fixing.in.vc.el.to.dea
3ce0	6c 20 77 69 74 68 0a 3b 3b 20 73 74 72 61 69 67 68 74 20 69 6e 74 65 67 65 72 20 76 65 72 73 69	l.with.;;.straight.integer.versi
3d00	6f 6e 73 2e 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 64 65 6c 65 74 65 2d 66 69 6c 65 20	ons...(defun.vc-bzr-delete-file.
3d20	28 66 69 6c 65 29 0a 20 20 22 44 65 6c 65 74 65 20 46 49 4c 45 20 61 6e 64 20 64 65 6c 65 74 65	(file)..."Delete.FILE.and.delete
3d40	20 69 74 20 69 6e 20 74 68 65 20 62 7a 72 20 72 65 70 6f 73 69 74 6f 72 79 2e 22 0a 20 20 28 63	.it.in.the.bzr.repository."...(c
3d60	6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 28 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 66	ondition-case.().......(delete-f
3d80	69 6c 65 20 66 69 6c 65 29 0a 20 20 20 20 28 66 69 6c 65 2d 65 72 72 6f 72 20 6e 69 6c 29 29 0a	ile.file).....(file-error.nil)).
3da0	20 20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 72 65 6d 6f 76 65 22 20 6e 69 6c 20 30	..(vc-bzr-command."remove".nil.0
3dc0	20 66 69 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 72 65 6e 61 6d 65 2d 66 69	.file))..(defun.vc-bzr-rename-fi
3de0	6c 65 20 28 6f 6c 64 20 6e 65 77 29 0a 20 20 22 52 65 6e 61 6d 65 20 66 69 6c 65 20 66 72 6f 6d	le.(old.new)..."Rename.file.from
3e00	20 4f 4c 44 20 74 6f 20 4e 45 57 20 75 73 69 6e 67 20 60 62 7a 72 20 6d 76 27 2e 22 0a 20 20 28	.OLD.to.NEW.using.`bzr.mv'."...(
3e20	76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 6d 76 22 20 6e 69 6c 20 30 20 6e 65 77 20 6f 6c	vc-bzr-command."mv".nil.0.new.ol
3e40	64 29 29 0a 0a 28 64 65 66 76 61 72 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74	d))..(defvar.vc-bzr-annotation-t
3e60	61 62 6c 65 20 6e 69 6c 0a 20 20 22 49 6e 74 65 72 6e 61 6c 20 75 73 65 2e 22 29 0a 28 6d 61 6b	able.nil..."Internal.use.").(mak
3e80	65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 76 63 2d 62 7a 72 2d	e-variable-buffer-local.'vc-bzr-
3ea0	61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 61 62 6c 65 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72	annotation-table)..(defun.vc-bzr
3ec0	2d 61 6e 6e 6f 74 61 74 65 2d 63 6f 6d 6d 61 6e 64 20 28 66 69 6c 65 20 62 75 66 66 65 72 20 26	-annotate-command.(file.buffer.&
3ee0	6f 70 74 69 6f 6e 61 6c 20 76 65 72 73 69 6f 6e 29 0a 20 20 22 50 72 65 70 61 72 65 20 42 55 46	optional.version)..."Prepare.BUF
3f00	46 45 52 20 66 6f 72 20 60 76 63 2d 61 6e 6e 6f 74 61 74 65 27 20 6f 6e 20 46 49 4c 45 2e 0a 45	FER.for.`vc-annotate'.on.FILE..E
3f20	61 63 68 20 6c 69 6e 65 20 69 73 20 74 61 67 67 65 64 20 77 69 74 68 20 74 68 65 20 72 65 76 69	ach.line.is.tagged.with.the.revi
3f40	73 69 6f 6e 20 6e 75 6d 62 65 72 2c 20 77 68 69 63 68 20 68 61 73 20 61 20 60 68 65 6c 70 2d 65	sion.number,.which.has.a.`help-e
3f60	63 68 6f 27 0a 70 72 6f 70 65 72 74 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 75 74 68 6f 72 20	cho'.property.containing.author.
3f80	61 6e 64 20 64 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 61 70 70 6c 79 20	and.date.information."...(apply.
3fa0	23 27 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 61 6e 6e 6f 74 61 74 65 22 20 62 75 66 66	#'vc-bzr-command."annotate".buff
3fc0	65 72 20 30 20 66 69 6c 65 20 22 2d 6c 22 20 22 2d 2d 61 6c 6c 22 0a 20 20 20 20 20 20 20 20 20	er.0.file."-l"."--all"..........
3fe0	28 69 66 20 76 65 72 73 69 6f 6e 20 28 6c 69 73 74 20 22 2d 72 22 20 76 65 72 73 69 6f 6e 29 29	(if.version.(list."-r".version))
4000	29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a	)...(with-current-buffer.buffer.
4020	20 20 20 20 3b 3b 20 53 74 6f 72 65 20 74 68 65 20 74 61 67 73 20 66 6f 72 20 74 68 65 20 61 6e	....;;.Store.the.tags.for.the.an
4040	6e 6f 74 61 74 65 64 20 73 6f 75 72 63 65 20 6c 69 6e 65 73 20 69 6e 20 61 20 68 61 73 68 20 74	notated.source.lines.in.a.hash.t
4060	61 62 6c 65 0a 20 20 20 20 3b 3b 20 74 6f 20 61 6c 6c 6f 77 20 73 61 76 69 6e 67 20 73 70 61 63	able.....;;.to.allow.saving.spac
4080	65 20 62 79 20 73 68 61 72 69 6e 67 20 74 68 65 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73	e.by.sharing.the.text.properties
40a0	2e 0a 20 20 20 20 28 73 65 74 71 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 61	......(setq.vc-bzr-annotation-ta
40c0	62 6c 65 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 27 65 71 75 61	ble.(make-hash-table.:test.'equa
40e0	6c 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a	l)).....(goto-char.(point-min)).
4100	20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e	....(while.(re-search-forward."^
4120	5c 5c 28 20 2a 5b 30 2d 39 5d 2b 5c 5c 29 20 5c 5c 28 2e 2b 5c 5c 29 20 2b 5c 5c 28 5b 30 2d 39	\$.*[0-9]+\$.\$.+\$.+\\([0-9
4140	5d 5c 5c 7b 38 5c 5c 7d 5c 5c 29 20 7c 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	]\\{8\\}\\).\|"..................
4160	20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20	.............nil.t).......(let*.
4180	28 28 72 65 76 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 0a 20 20 20 20 20 20 20 20	((rev.(match-string.1)).........
41a0	20 20 20 20 20 28 61 75 74 68 6f 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 29 29 0a 20	.....(author.(match-string.2))..
41c0	20 20 20 20 20 20 20 20 20 20 20 20 28 64 61 74 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20	............(date.(match-string.
41e0	33 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 20 28 6d 61 74 63 68 2d 73 74 72	3))..............(key.(match-str
4200	69 6e 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 20 28 67 65 74 68 61	ing.0))..............(tag.(getha
4220	73 68 20 6b 65 79 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 61 62 6c 65 29 29	sh.key.vc-bzr-annotation-table))
4240	29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 74 61 67 0a 20 20 20 20 20 20 20 20 20 20	).........(unless.tag...........
4260	28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74	(save-match-data.............(st
4280	72 69 6e 67 2d 6d 61 74 63 68 20 22 20 2b 5c 5c 27 22 20 61 75 74 68 6f 72 29 0a 20 20 20 20 20	ring-match.".+\\'".author)......
42a0	20 20 20 20 20 20 20 28 73 65 74 71 20 61 75 74 68 6f 72 20 28 73 75 62 73 74 72 69 6e 67 20 61	.......(setq.author.(substring.a
42c0	75 74 68 6f 72 20 30 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 29 0a 20	uthor.0.(match-beginning.0))))..
42e0	20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 67 20 28 70 72 6f 70 65 72 74 69 7a 65 20 72	.........(setq.tag.(propertize.r
4300	65 76 20 27 68 65 6c 70 2d 65 63 68 6f 20 28 63 6f 6e 63 61 74 20 22 41 75 74 68 6f 72 3a 20 22	ev.'help-echo.(concat."Author:."
4320	20 61 75 74 68 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.author.........................
4340	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22	..............................."
4360	2c 20 64 61 74 65 3a 20 22 20 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	,.date:.".date).................
4380	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 67	................'mouse-face.'hig
43a0	68 6c 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 6b 65 79 20	hlight))...........(puthash.key.
43c0	74 61 67 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 69 6f 6e 2d 74 61 62 6c 65 29 29 0a 20 20	tag.vc-bzr-annotation-table))...
43e0	20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 29 0a 20 20 20 20 20 20 20	......(replace-match."")........
4400	20 28 69 6e 73 65 72 74 20 74 61 67 20 22 20 7c 22 29 29 29 29 29 0a 0a 3b 3b 20 44 65 66 69 6e	.(insert.tag.".\|")))))..;;.Defin
4420	69 74 69 6f 6e 20 66 72 6f 6d 20 45 6d 61 63 73 20 32 32 0a 28 75 6e 6c 65 73 73 20 28 66 62 6f	ition.from.Emacs.22.(unless.(fbo
4440	75 6e 64 70 20 27 76 63 2d 61 6e 6e 6f 74 61 74 65 2d 63 6f 6e 76 65 72 74 2d 74 69 6d 65 29 0a	undp.'vc-annotate-convert-time).
4460	28 64 65 66 75 6e 20 76 63 2d 61 6e 6e 6f 74 61 74 65 2d 63 6f 6e 76 65 72 74 2d 74 69 6d 65 20	(defun.vc-annotate-convert-time.
4480	28 74 69 6d 65 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 61 20 74 69 6d 65 20 76 61 6c 75 65 20 74	(time)..."Convert.a.time.value.t
44a0	6f 20 61 20 66 6c 6f 61 74 69 6e 67 2d 70 6f 69 6e 74 20 6e 75 6d 62 65 72 20 6f 66 20 64 61 79	o.a.floating-point.number.of.day
44c0	73 2e 0a 54 68 65 20 61 72 67 75 6d 65 6e 74 20 54 49 4d 45 20 69 73 20 61 20 6c 69 73 74 20 61	s..The.argument.TIME.is.a.list.a
44e0	73 20 72 65 74 75 72 6e 65 64 20 62 79 20 60 63 75 72 72 65 6e 74 2d 74 69 6d 65 27 20 6f 72 0a	s.returned.by.`current-time'.or.
4500	60 65 6e 63 6f 64 65 2d 74 69 6d 65 27 2c 20 6f 6e 6c 79 20 74 68 65 20 66 69 72 73 74 20 74 77	`encode-time',.only.the.first.tw
4520	6f 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 61 74 20 6c 69 73 74 20 61 72 65 20 63 6f 6e 73	o.elements.of.that.list.are.cons
4540	69 64 65 72 65 64 2e 22 0a 20 20 28 2f 20 28 2b 20 28 2a 20 28 66 6c 6f 61 74 20 28 63 61 72 20	idered."...(/.(+.(*.(float.(car.
4560	74 69 6d 65 29 29 20 28 6c 73 68 20 31 20 31 36 29 29 20 28 63 61 64 72 20 74 69 6d 65 29 29 20	time)).(lsh.1.16)).(cadr.time)).
4580	32 34 20 33 36 30 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61	24.3600)))..(defun.vc-bzr-annota
45a0	74 65 2d 74 69 6d 65 20 28 29 0a 20 20 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f	te-time.()...(when.(re-search-fo
45c0	72 77 61 72 64 20 22 5e 20 2a 5b 30 2d 39 5d 2b 20 7c 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 28	rward."^.*[0-9]+.\|".nil.t).....(
45e0	6c 65 74 20 28 28 70 72 6f 70 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 6c	let.((prop.(get-text-property.(l
4600	69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 27 68 65 6c 70 2d 65 63	ine-beginning-position).'help-ec
4620	68 6f 29 29 29 0a 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 30 2d 39 5d	ho))).......(string-match."[0-9]
4640	2b 5c 5c 27 22 20 70 72 6f 70 29 0a 20 20 20 20 20 20 28 76 63 2d 61 6e 6e 6f 74 61 74 65 2d 63	+\\'".prop).......(vc-annotate-c
4660	6f 6e 76 65 72 74 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 74 69 6d 65 20	onvert-time........(encode-time.
4680	30 20 30 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e	0.0.0.....................(strin
46a0	67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 73 75 62 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 73 74	g-to-number.(substring.(match-st
46c0	72 69 6e 67 20 30 20 70 72 6f 70 29 20 36 20 38 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	ring.0.prop).6.8))..............
46e0	20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 73 75 62 73 74 72	.......(string-to-number.(substr
4700	69 6e 67 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 30 20 70 72 6f 70 29 20 34 20 36 29 29 0a	ing.(match-string.0.prop).4.6)).
4720	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e	....................(string-to-n
4740	75 6d 62 65 72 20 28 73 75 62 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 30	umber.(substring.(match-string.0
4760	20 70 72 6f 70 29 20 30 20 34 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.prop).0.4))....................
4780	20 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 65 2d 65	.)))))..(defun.vc-bzr-annotate-e
47a0	78 74 72 61 63 74 2d 72 65 76 69 73 69 6f 6e 2d 61 74 2d 6c 69 6e 65 20 28 29 0a 20 20 22 52 65	xtract-revision-at-line.()..."Re
47c0	74 75 72 6e 20 72 65 76 69 73 69 6f 6e 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 6f	turn.revision.for.current.line.o
47e0	66 20 61 6e 6e 6f 61 74 69 6f 6e 20 62 75 66 66 65 72 2c 20 6f 72 20 6e 69 6c 2e 0a 52 65 74 75	f.annoation.buffer,.or.nil..Retu
4800	72 6e 20 6e 69 6c 20 69 66 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 69 73 6e 27 74 20 61 6e 6e	rn.nil.if.current.line.isn't.ann
4820	6f 74 61 74 65 64 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28	otated."...(save-excursion.....(
4840	62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 0a 20 20 20 20 28 69 66 20 28 6c 6f 6f 6b	beginning-of-line).....(if.(look
4860	69 6e 67 2d 61 74 20 22 20 2a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 20 7c 20 22 29 0a 20 20 20 20	ing-at.".*\$[0-9]+\$.\|.").....
4880	20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20	....(match-string-no-properties.
48a0	31 29 29 29 29 0a 0a 3b 3b 20 4e 6f 74 20 6e 65 65 64 65 64 20 66 6f 72 20 45 6d 61 63 73 20 32	1))))..;;.Not.needed.for.Emacs.2
48c0	32 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 65 2d 64 69 66 66 65 72 65	2.(defun.vc-bzr-annotate-differe
48e0	6e 63 65 20 28 70 6f 69 6e 74 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 78 74 2d 74 69 6d 65 20 28	nce.(point)...(let.((next-time.(
4900	76 63 2d 62 7a 72 2d 61 6e 6e 6f 74 61 74 65 2d 74 69 6d 65 29 29 29 0a 20 20 20 20 28 69 66 20	vc-bzr-annotate-time))).....(if.
4920	6e 65 78 74 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 28 2d 20 28 76 63 2d 61 6e 6e 6f 74 61 74	next-time.........(-.(vc-annotat
4940	65 2d 63 6f 6e 76 65 72 74 2d 74 69 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 20 6e	e-convert-time.(current-time)).n
4960	65 78 74 2d 74 69 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 63 6f 6d 6d	ext-time))))..(defun.vc-bzr-comm
4980	61 6e 64 2d 64 69 73 63 61 72 64 69 6e 67 2d 73 74 64 65 72 72 20 28 63 6f 6d 6d 61 6e 64 20 26	and-discarding-stderr.(command.&
49a0	72 65 73 74 20 61 72 67 73 29 0a 20 20 22 45 78 65 63 75 74 65 20 73 68 65 6c 6c 20 63 6f 6d 6d	rest.args)..."Execute.shell.comm
49c0	61 6e 64 20 43 4f 4d 4d 41 4e 44 20 28 77 69 74 68 20 41 52 47 53 29 3b 20 72 65 74 75 72 6e 20	and.COMMAND.(with.ARGS);.return.
49e0	69 74 73 20 6f 75 74 70 75 74 20 61 6e 64 20 65 78 69 74 63 6f 64 65 2e 0a 52 65 74 75 72 6e 20	its.output.and.exitcode..Return.
4a00	76 61 6c 75 65 20 69 73 20 61 20 63 6f 6e 73 20 28 45 58 49 54 43 4f 44 45 20 2e 20 4f 55 54 50	value.is.a.cons.(EXITCODE...OUTP
4a20	55 54 29 2c 20 77 68 65 72 65 20 45 58 49 54 43 4f 44 45 20 69 73 0a 74 68 65 20 28 6e 75 6d 65	UT),.where.EXITCODE.is.the.(nume
4a40	72 69 63 61 6c 29 20 65 78 69 74 20 63 6f 64 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 2c	rical).exit.code.of.the.process,
4a60	20 61 6e 64 20 4f 55 54 50 55 54 20 69 73 20 61 20 73 74 72 69 6e 67 0a 63 6f 6e 74 61 69 6e 69	.and.OUTPUT.is.a.string.containi
4a80	6e 67 20 77 68 61 74 65 76 65 72 20 74 68 65 20 70 72 6f 63 65 73 73 20 73 65 6e 74 20 74 6f 20	ng.whatever.the.process.sent.to.
4aa0	69 74 73 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 0a 73 74 72 65 61 6d 2e 20 20 53 74 61	its.standard.output.stream...Sta
4ac0	6e 64 61 72 64 20 65 72 72 6f 72 20 6f 75 74 70 75 74 20 69 73 20 64 69 73 63 61 72 64 65 64 2e	ndard.error.output.is.discarded.
4ae0	22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 63 6f 6e 73 0a	"...(with-temp-buffer.....(cons.
4b00	20 20 20 20 20 28 61 70 70 6c 79 20 27 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 63 6f 6d 6d 61 6e	.....(apply.'call-process.comman
4b20	64 20 6e 69 6c 20 28 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 6e 69 6c	d.nil.(list.(current-buffer).nil
4b40	29 20 6e 69 6c 20 61 72 67 73 29 0a 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69	).nil.args)......(buffer-substri
4b60	6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a	ng.(point-min).(point-max)))))..
4b80	3b 3b 20 54 4f 44 4f 3a 20 69 74 20 77 6f 75 6c 64 20 62 65 20 6e 69 63 65 20 74 6f 20 6d 61 72	;;.TODO:.it.would.be.nice.to.mar
4ba0	6b 20 74 68 65 20 63 6f 6e 66 6c 69 63 74 65 64 20 66 69 6c 65 73 20 69 6e 20 20 56 43 20 44 69	k.the.conflicted.files.in..VC.Di
4bc0	72 65 64 2c 0a 3b 3b 20 61 6e 64 20 69 6d 70 6c 65 6d 65 6e 74 20 61 20 63 6f 6d 6d 61 6e 64 20	red,.;;.and.implement.a.command.
4be0	74 6f 20 72 75 6e 20 65 64 69 66 66 20 61 6e 64 20 60 62 7a 72 20 72 65 73 6f 6c 76 65 27 20 6f	to.run.ediff.and.`bzr.resolve'.o
4c00	6e 63 65 20 74 68 65 20 0a 3b 3b 20 63 68 61 6e 67 65 73 20 68 61 76 65 20 62 65 65 6e 20 6d 65	nce.the..;;.changes.have.been.me
4c20	72 67 65 64 2e 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 64 69 72 2d 73 74 61 74 65 20 28 64	rged..(defun.vc-bzr-dir-state.(d
4c40	69 72 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 63 61 6c 70 29 0a 20 20 22 46 69 6e 64 20 74 68 65	ir.&optional.localp)..."Find.the
4c60	20 56 43 20 73 74 61 74 65 20 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 44 49 52 2e 0a 4f	.VC.state.of.all.files.in.DIR..O
4c80	70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 4c 4f 43 41 4c 50 20 69 73 20 61 6c 77 61 79	ptional.argument.LOCALP.is.alway
4ca0	73 20 69 67 6e 6f 72 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 7a 72 2d 72 6f 6f 74 2d 64 69	s.ignored."...(let.((bzr-root-di
4cc0	72 65 63 74 6f 72 79 20 28 76 63 2d 62 7a 72 2d 72 6f 6f 74 20 64 69 72 29 29 0a 20 20 20 20 20	rectory.(vc-bzr-root.dir))......
4ce0	20 20 20 28 61 74 2d 73 74 61 72 74 20 74 29 0a 20 20 20 20 20 20 20 20 63 75 72 72 65 6e 74 2d	...(at-start.t).........current-
4d00	62 7a 72 2d 73 74 61 74 65 20 63 75 72 72 65 6e 74 2d 76 63 2d 73 74 61 74 65 29 0a 20 20 20 20	bzr-state.current-vc-state).....
4d20	3b 3b 20 43 68 65 63 6b 20 74 68 61 74 20 44 49 52 20 69 73 20 61 20 62 7a 72 20 72 65 70 6f 73	;;.Check.that.DIR.is.a.bzr.repos
4d40	69 74 6f 72 79 2e 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 62	itory......(unless.(file-name-ab
4d60	73 6f 6c 75 74 65 2d 70 20 62 7a 72 2d 72 6f 6f 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20	solute-p.bzr-root-directory)....
4d80	20 20 20 28 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 66 69 6e 64 20 62 7a 72 20 72 65 70 6f 73	...(error."Cannot.find.bzr.repos
4da0	69 74 6f 72 79 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 20 60 25 73 27 22 20 64 69 72 29 29 0a	itory.for.directory.`%s'".dir)).
4dc0	20 20 20 20 3b 3b 20 60 62 7a 72 20 6c 73 20 2d 2d 76 65 72 73 69 6f 6e 65 64 27 20 6c 69 73 74	....;;.`bzr.ls.--versioned'.list
4de0	73 20 61 6c 6c 20 76 65 72 73 69 6f 6e 65 64 20 66 69 6c 65 73 3b 0a 20 20 20 20 3b 3b 20 61 73	s.all.versioned.files;.....;;.as
4e00	73 75 6d 65 20 74 68 65 79 20 61 72 65 20 75 70 2d 74 6f 2d 64 61 74 65 2c 20 75 6e 6c 65 73 73	sume.they.are.up-to-date,.unless
4e20	20 77 65 20 61 72 65 20 67 69 76 65 6e 0a 20 20 20 20 3b 3b 20 65 76 69 64 65 6e 63 65 20 6f 66	.we.are.given.....;;.evidence.of
4e40	20 74 68 65 20 63 6f 6e 74 72 61 72 79 2e 0a 20 20 20 20 28 73 65 74 71 20 61 74 2d 73 74 61 72	.the.contrary......(setq.at-star
4e60	74 20 74 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20	t.t).....(with-temp-buffer......
4e80	20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 6c 73 22 20 74 20 30 20 6e 69 6c 20 22 2d	.(vc-bzr-command."ls".t.0.nil."-
4ea0	2d 76 65 72 73 69 6f 6e 65 64 22 20 22 2d 2d 6e 6f 6e 2d 72 65 63 75 72 73 69 76 65 22 29 0a 20	-versioned"."--non-recursive")..
4ec0	20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20	.....(goto-char.(point-min))....
4ee0	20 20 20 28 77 68 69 6c 65 20 28 6f 72 20 61 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20	...(while.(or.at-start..........
4f00	20 20 20 20 20 20 20 20 28 65 71 20 30 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 0a 20	........(eq.0.(forward-line)))..
4f20	20 20 20 20 20 20 20 28 73 65 74 71 20 61 74 2d 73 74 61 72 74 20 6e 69 6c 29 0a 20 20 20 20 20	.......(setq.at-start.nil)......
4f40	20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65	...(let.((file.(expand-file-name
4f60	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75	......................(buffer-su
4f80	62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 0a 20 20 20 20 20 20 20 20 20	bstring-no-properties...........
4fa0	20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73	.............(line-beginning-pos
4fc0	69 74 69 6f 6e 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20	ition).(line-end-position)).....
4fe0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 7a 72 2d 72 6f 6f 74 2d 64 69 72 65 63 74	.................bzr-root-direct
5000	6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72 6f	ory)))...........(vc-file-setpro
5020	70 20 66 69 6c 65 20 27 76 63 2d 73 74 61 74 65 20 27 75 70 2d 74 6f 2d 64 61 74 65 29 0a 20 20	p.file.'vc-state.'up-to-date)...
5040	20 20 20 20 20 20 20 20 3b 3b 20 58 58 58 3a 20 69 73 20 74 68 69 73 20 63 6f 72 72 65 63 74 3f	........;;.XXX:.is.this.correct?
5060	20 77 68 61 74 20 68 61 70 70 65 6e 73 20 69 66 20 6f 6e 65 20 0a 20 20 20 20 20 20 20 20 20 20	.what.happens.if.one............
5080	3b 3b 20 6d 69 78 65 73 20 64 69 66 66 65 72 65 6e 74 20 53 43 4d 73 20 69 6e 20 74 68 65 20 73	;;.mixes.different.SCMs.in.the.s
50a0	61 6d 65 20 64 69 72 3f 0a 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70	ame.dir?...........(vc-file-setp
50c0	72 6f 70 20 66 69 6c 65 20 27 76 63 2d 62 61 63 6b 65 6e 64 20 27 42 7a 72 29 29 29 29 0a 20 20	rop.file.'vc-backend.'Bzr))))...
50e0	20 20 3b 3b 20 60 62 7a 72 20 73 74 61 74 75 73 27 20 72 65 70 6f 72 74 73 20 6f 6e 20 61 64 64	..;;.`bzr.status'.reports.on.add
5100	65 64 2f 6d 6f 64 69 66 69 65 64 2f 72 65 6e 61 6d 65 64 20 61 6e 64 20 75 6e 6b 6e 6f 77 6e 2f	ed/modified/renamed.and.unknown/
5120	69 67 6e 6f 72 65 64 20 66 69 6c 65 73 0a 20 20 20 20 28 73 65 74 71 20 61 74 2d 73 74 61 72 74	ignored.files.....(setq.at-start
5140	20 74 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 0a 20 20 20 20 20	.t).....(with-temp-buffer.......
5160	20 28 76 63 2d 62 7a 72 2d 63 6f 6d 6d 61 6e 64 20 22 73 74 61 74 75 73 22 20 74 20 30 20 6e 69	.(vc-bzr-command."status".t.0.ni
5180	6c 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29	l).......(goto-char.(point-min))
51a0	0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6f 72 20 61 74 2d 73 74 61 72 74 0a 20 20 20 20 20	.......(while.(or.at-start......
51c0	20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 30 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29	............(eq.0.(forward-line)
51e0	29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 74 2d 73 74 61 72 74 20 6e 69 6c 29 0a 20	)).........(setq.at-start.nil)..
5200	20 20 20 20 20 20 20 28 63 6f 6e 64 20 0a 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67	.......(cond...........((looking
5220	2d 61 74 20 22 5e 61 64 64 65 64 22 29 20 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63	-at."^added")............(setq.c
5240	75 72 72 65 6e 74 2d 76 63 2d 73 74 61 74 65 20 27 65 64 69 74 65 64 29 0a 20 20 20 20 20 20 20	urrent-vc-state.'edited)........
5260	20 20 20 28 73 65 74 71 20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 20 27 61 64 64 65	...(setq.current-bzr-state.'adde
5280	64 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 6d 6f 64 69	d))..........((looking-at."^modi
52a0	66 69 65 64 22 29 20 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72 65 6e 74 2d	fied")............(setq.current-
52c0	76 63 2d 73 74 61 74 65 20 27 65 64 69 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74	vc-state.'edited)...........(set
52e0	71 20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 20 27 6d 6f 64 69 66 69 65 64 29 29 0a	q.current-bzr-state.'modified)).
5300	20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 72 65 6e 61 6d 65 64 22	.........((looking-at."^renamed"
5320	29 20 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72 65 6e 74 2d 76 63 2d 73 74	)............(setq.current-vc-st
5340	61 74 65 20 27 65 64 69 74 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72	ate.'edited)...........(setq.cur
5360	72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 20 27 72 65 6e 61 6d 65 64 29 29 0a 20 20 20 20 20 20	rent-bzr-state.'renamed)).......
5380	20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 5c 28 75 6e 6b 6e 6f 77 6e 5c 5c 7c 69	...((looking-at."^\\(unknown\\\|i
53a0	67 6e 6f 72 65 64 5c 5c 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72	gnored\\)")...........(setq.curr
53c0	65 6e 74 2d 76 63 2d 73 74 61 74 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74	ent-vc-state.nil)...........(set
53e0	71 20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 20 27 6e 6f 74 2d 76 65 72 73 69 6f 6e	q.current-bzr-state.'not-version
5400	65 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 20 20 22 29	ed))..........((looking-at."..")
5420	0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 69 6c 65 20 6e 61 6d 65 73 20 61 72 65 20 69 6e 64	...........;;.file.names.are.ind
5440	65 6e 74 65 64 20 62 79 20 74 77 6f 20 73 70 61 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 28 77	ented.by.two.spaces...........(w
5460	68 65 6e 20 63 75 72 72 65 6e 74 2d 76 63 2d 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20	hen.current-vc-state............
5480	20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20	.(let.((file.(expand-file-name..
54a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d	........................(buffer-
54c0	73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20	substring-no-properties.........
54e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 20	..................(match-end.0).
5500	28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20	(line-end-position))............
5520	20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 7a 72 2d 72 6f 6f 74 2d 64 69 72 65 63 74 6f 72 79	..............bzr-root-directory
5540	29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72	)))...............(vc-file-setpr
5560	6f 70 20 66 69 6c 65 20 27 76 63 2d 73 74 61 74 65 20 63 75 72 72 65 6e 74 2d 76 63 2d 73 74 61	op.file.'vc-state.current-vc-sta
5580	74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72	te)...............(vc-file-setpr
55a0	6f 70 20 66 69 6c 65 20 27 76 63 2d 62 7a 72 2d 73 74 61 74 65 20 63 75 72 72 65 6e 74 2d 62 7a	op.file.'vc-bzr-state.current-bz
55c0	72 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71	r-state)...............(when.(eq
55e0	20 27 61 64 64 65 64 20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 29 0a 20 20 20 20 20	.'added.current-bzr-state)......
5600	20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72 6f 70 20 66 69 6c 65	...........(vc-file-setprop.file
5620	20 27 76 63 2d 77 6f 72 6b 66 69 6c 65 2d 76 65 72 73 69 6f 6e 20 22 30 22 29 29 29 29 0a 20 20	.'vc-workfile-version."0"))))...
5640	20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 27 6e 6f 74 2d 76 65 72 73 69 6f 6e 65 64	........(when.(eq.'not-versioned
5660	20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	.current-bzr-state).............
5680	28 6c 65 74 20 28 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20	(let.((file.(expand-file-name...
56a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73	.......................(buffer-s
56c0	75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20	ubstring-no-properties..........
56e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 20 28	.................(match-end.0).(
5700	6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	line-end-position)).............
5720	20 20 20 20 20 20 20 20 20 20 20 20 20 62 7a 72 2d 72 6f 6f 74 2d 64 69 72 65 63 74 6f 72 79 29	.............bzr-root-directory)
5740	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72 6f	))...............(vc-file-setpro
5760	70 20 66 69 6c 65 20 27 76 63 2d 62 61 63 6b 65 6e 64 20 27 6e 6f 6e 65 29 0a 20 20 20 20 20 20	p.file.'vc-backend.'none).......
5780	20 20 20 20 20 20 20 20 28 76 63 2d 66 69 6c 65 2d 73 65 74 70 72 6f 70 20 66 69 6c 65 20 27 76	........(vc-file-setprop.file.'v
57a0	63 2d 73 74 61 74 65 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20	c-state.nil))))..........(t.....
57c0	20 20 20 20 20 20 3b 3b 20 73 6b 69 70 20 74 68 69 73 20 70 61 72 74 20 6f 66 20 60 62 7a 72 20	......;;.skip.this.part.of.`bzr.
57e0	73 74 61 74 75 73 27 20 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63	status'.output...........(setq.c
5800	75 72 72 65 6e 74 2d 76 63 2d 73 74 61 74 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28	urrent-vc-state.nil)...........(
5820	73 65 74 71 20 63 75 72 72 65 6e 74 2d 62 7a 72 2d 73 74 61 74 65 20 6e 69 6c 29 29 29 29 29 29	setq.current-bzr-state.nil))))))
5840	29 0a 0a 28 64 65 66 75 6e 20 76 63 2d 62 7a 72 2d 64 69 72 65 64 2d 73 74 61 74 65 2d 69 6e 66	)..(defun.vc-bzr-dired-state-inf
5860	6f 20 28 66 69 6c 65 29 0a 20 20 22 42 7a 72 2d 73 70 65 63 69 66 69 63 20 76 65 72 73 69 6f 6e	o.(file)..."Bzr-specific.version
5880	20 6f 66 20 60 76 63 2d 64 69 72 65 64 2d 73 74 61 74 65 2d 69 6e 66 6f 27 2e 22 0a 20 20 28 69	.of.`vc-dired-state-info'."...(i
58a0	66 20 28 65 71 20 27 65 64 69 74 65 64 20 28 76 63 2d 73 74 61 74 65 20 66 69 6c 65 29 29 0a 20	f.(eq.'edited.(vc-state.file))..
58c0	20 20 20 20 20 28 6c 65 74 20 28 28 62 7a 72 2d 73 74 61 74 65 20 28 76 63 2d 66 69 6c 65 2d 67	.....(let.((bzr-state.(vc-file-g
58e0	65 74 70 72 6f 70 20 66 69 6c 65 20 27 76 63 2d 62 7a 72 2d 73 74 61 74 65 29 29 29 0a 20 20 20	etprop.file.'vc-bzr-state)))....
5900	20 20 20 20 20 28 69 66 20 62 7a 72 2d 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28	.....(if.bzr-state.............(
5920	63 6f 6e 63 61 74 20 22 28 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 62 7a 72 2d 73 74 61 74	concat."(".(symbol-name.bzr-stat
5940	65 29 20 22 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 65 6c 73 65 20 66 61 6c 6c 20 62	e).")")...........;;.else.fall.b
5960	61 63 6b 20 74 6f 20 64 65 66 61 75 6c 74 20 76 63 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e	ack.to.default.vc.representation
5980	0a 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 64 65 66 61 75 6c 74 2d 64 69 72 65 64 2d 73 74 61	...........(vc-default-dired-sta
59a0	74 65 2d 69 6e 66 6f 20 27 42 7a 72 20 66 69 6c 65 29 29 29 29 29 0a 0a 3b 3b 20 49 6e 20 63 61	te-info.'Bzr.file)))))..;;.In.ca
59c0	73 65 20 6f 66 20 6a 75 73 74 20 60 28 6c 6f 61 64 20 22 76 63 2d 62 7a 72 22 29 27 2c 20 62 75	se.of.just.`(load."vc-bzr")',.bu
59e0	74 20 74 68 61 74 27 73 20 70 72 6f 62 61 62 6c 79 20 74 68 65 20 77 72 6f 6e 67 0a 3b 3b 20 77	t.that's.probably.the.wrong.;;.w
5a00	61 79 20 74 6f 20 64 6f 20 69 74 2e 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 76 63 2d 68 61	ay.to.do.it..(add-to-list.'vc-ha
5a20	6e 64 6c 65 64 2d 62 61 63 6b 65 6e 64 73 20 27 42 7a 72 29 0a 0a 28 65 76 61 6c 2d 61 66 74 65	ndled-backends.'Bzr)..(eval-afte
5a40	72 2d 6c 6f 61 64 20 22 76 63 22 0a 20 20 27 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 76 63 2d	r-load."vc"...'(add-to-list.'vc-
5a60	64 69 72 65 63 74 6f 72 79 2d 65 78 63 6c 75 73 69 6f 6e 2d 6c 69 73 74 20 76 63 2d 62 7a 72 2d	directory-exclusion-list.vc-bzr-
5a80	61 64 6d 69 6e 2d 64 69 72 6e 61 6d 65 20 74 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 76 63 2d	admin-dirname.t))..(defconst.vc-
5aa0	62 7a 72 2d 75 6e 6c 6f 61 64 2d 68 6f 6f 6b 0a 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20	bzr-unload-hook...(lambda.()....
5ac0	20 28 73 65 74 71 20 76 63 2d 68 61 6e 64 6c 65 64 2d 62 61 63 6b 65 6e 64 73 20 28 64 65 6c 71	.(setq.vc-handled-backends.(delq
5ae0	20 27 42 7a 72 20 76 63 2d 68 61 6e 64 6c 65 64 2d 62 61 63 6b 65 6e 64 73 29 29 0a 20 20 20 20	.'Bzr.vc-handled-backends)).....
5b00	28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 76 63 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 75	(remove-hook.'vc-post-command-fu
5b20	6e 63 74 69 6f 6e 73 20 27 76 63 2d 62 7a 72 2d 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 66 75 6e	nctions.'vc-bzr-post-command-fun
5b40	63 74 69 6f 6e 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 76 63 2d 62 7a 72 29 0a 3b 3b 20 61	ction)))..(provide.'vc-bzr).;;.a
5b60	72 63 68 2d 74 61 67 3a 20 38 31 30 31 62 61 64 38 2d 34 65 39 32 2d 34 65 37 64 2d 38 35 61 65	rch-tag:.8101bad8-4e92-4e7d-85ae
5b80	2d 64 38 65 30 38 62 34 65 37 63 30 36 0a 3b 3b 3b 20 76 63 2d 62 7a 72 2e 65 6c 20 65 6e 64 73	-d8e08b4e7c06.;;;.vc-bzr.el.ends
5ba0	20 68 65 72 65 0a	.here.