Mercurial > emacs
comparison lisp/vc-bzr.el @ 96128:d5ad6b6af42d
(vc-bzr-annotate-extract-revision-at-line):
Allow more than one space before the |.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 20 Jun 2008 18:12:01 +0000 |
| parents | 26f719e36c03 |
| children | 09da7727f35f |
comparison
equal
deleted
inserted
replaced
| 96127:8b630d07bb3f | 96128:d5ad6b6af42d |
|---|---|
| 550 (defun vc-bzr-annotate-extract-revision-at-line () | 550 (defun vc-bzr-annotate-extract-revision-at-line () |
| 551 "Return revision for current line of annoation buffer, or nil. | 551 "Return revision for current line of annoation buffer, or nil. |
| 552 Return nil if current line isn't annotated." | 552 Return nil if current line isn't annotated." |
| 553 (save-excursion | 553 (save-excursion |
| 554 (beginning-of-line) | 554 (beginning-of-line) |
| 555 (if (looking-at " *\\([0-9.]+\\) | ") | 555 (if (looking-at " *\\([0-9.]+\\) *| ") |
| 556 (match-string-no-properties 1)))) | 556 (match-string-no-properties 1)))) |
| 557 | 557 |
| 558 (defun vc-bzr-command-discarding-stderr (command &rest args) | 558 (defun vc-bzr-command-discarding-stderr (command &rest args) |
| 559 "Execute shell command COMMAND (with ARGS); return its output and exitcode. | 559 "Execute shell command COMMAND (with ARGS); return its output and exitcode. |
| 560 Return value is a cons (EXITCODE . OUTPUT), where EXITCODE is | 560 Return value is a cons (EXITCODE . OUTPUT), where EXITCODE is |