Mercurial > emacs
comparison lisp/vc-hg.el @ 81984:5fe5698ac0fb
* vc-hooks.el (vc-default-workfile-unchanged-p): Pass a list
instead of a file.
* vc-hg.el (vc-hg-print-log): Fix for multiple files.
* vc.el: (vc-directory-exclusion-list): Add .hg and .bzr.
(vc-diff-internal): Pass a list instead of a file.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jul 2007 01:22:18 +0000 |
| parents | d4b8336cd8f5 |
| children | 7179773d9d7f |
comparison
equal
deleted
inserted
replaced
| 81983:d3b18c88b7e5 | 81984:5fe5698ac0fb |
|---|---|
| 246 ;; together. | 246 ;; together. |
| 247 (dolist (file files) | 247 (dolist (file files) |
| 248 (with-current-buffer | 248 (with-current-buffer |
| 249 buffer | 249 buffer |
| 250 (insert "File: " (file-name-nondirectory file) "\n")) | 250 (insert "File: " (file-name-nondirectory file) "\n")) |
| 251 (vc-hg-command | 251 (vc-hg-command buffer nil file "log")))) |
| 252 buffer | |
| 253 ;; XXX Is this stuff really needed? | |
| 254 (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0) | |
| 255 file "log")))) | |
| 256 | 252 |
| 257 (defvar log-view-message-re) | 253 (defvar log-view-message-re) |
| 258 (defvar log-view-file-re) | 254 (defvar log-view-file-re) |
| 259 (defvar log-view-font-lock-keywords) | 255 (defvar log-view-font-lock-keywords) |
| 260 | 256 |