Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
da4d4066
Commit
da4d4066
authored
Nov 04, 2008
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(vc-bzr-dir-extra-headers): New function.
(vc-bzr-dir-printer): Rename from vc-bzr-status-printer.
parent
74c76008
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
2 deletions
+15
-2
lisp/vc-bzr.el
lisp/vc-bzr.el
+15
-2
No files found.
lisp/vc-bzr.el
View file @
da4d4066
...
...
@@ -585,10 +585,10 @@ stream. Standard error output is discarded."
(:conc-name vc-bzr-extra-fileinfo->))
extra-name) ;; original name for rename targets, new name for
(defun vc-bzr-
status
-printer (info)
(defun vc-bzr-
dir
-printer (info)
"
Pretty-printer
for
the
vc-dir-fileinfo
structure.
"
(let ((extra (vc-dir-fileinfo->extra info)))
(vc-default-
status
-printer 'Bzr info)
(vc-default-
dir
-printer 'Bzr info)
(when extra
(insert (propertize
(format "
(
renamed
from
%s
)
"
...
...
@@ -664,6 +664,19 @@ stream. Standard error output is discarded."
(apply 'vc-bzr-command "
status
" (current-buffer) 'async dir "
-v
" "
-S
" files)
(vc-exec-after
`(vc-bzr-after-dir-status (quote ,update-function))))
(defun vc-bzr-dir-extra-headers (dir)
(let ((str (with-temp-buffer
(vc-bzr-command "
info
" t 0 dir)
(buffer-string))))
(concat
(propertize "
Parent
branch:
" 'face 'font-lock-type-face)
(propertize
(if (string-match "
parent
branch:
\\
(
.
+\\
)
$
" str)
(match-string 1 str)
"
None
")
'face 'font-lock-variable-name-face))))
;;; Revision completion
(defun vc-bzr-revision-completion-table (files)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment