Mercurial > emacs
comparison lisp/vc-bzr.el @ 95232:e043650664ff
(vc-bzr-revision-completion-table): Choose the right `:'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 23 May 2008 03:01:10 +0000 |
| parents | 451f4028c096 |
| children | 054335cbee3d |
comparison
equal
deleted
inserted
replaced
| 95231:a448f0e0375b | 95232:e043650664ff |
|---|---|
| 660 ((string-match "\\`\\(revid\\):" string) | 660 ((string-match "\\`\\(revid\\):" string) |
| 661 ;; FIXME: How can I get a list of revision ids? | 661 ;; FIXME: How can I get a list of revision ids? |
| 662 ) | 662 ) |
| 663 ((eq (car-safe action) 'boundaries) | 663 ((eq (car-safe action) 'boundaries) |
| 664 (list* 'boundaries | 664 (list* 'boundaries |
| 665 (if (string-match ":" string) (1+ (match-beginning 0))) | 665 (string-match "[^:]*\\'" string) |
| 666 (string-match ":" (cdr action)))) | 666 (string-match ":" (cdr action)))) |
| 667 (t | 667 (t |
| 668 ;; Could use completion-table-with-terminator, except that it | 668 ;; Could use completion-table-with-terminator, except that it |
| 669 ;; currently doesn't work right w.r.t pcm and doesn't give | 669 ;; currently doesn't work right w.r.t pcm and doesn't give |
| 670 ;; the *Completions* output we want. | 670 ;; the *Completions* output we want. |