diff options
| author | Sam Steingold <sds@gnu.org> | 2009-06-12 20:14:45 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2009-06-12 20:14:45 +0000 |
| commit | 02532fbc7992bcdf86baaf41ae4420f66109cb15 (patch) | |
| tree | b5673da7a8a8d862bb7e7e598df6ea840a45241e /lisp/vc-hg.el | |
| parent | 09856751db7d2decc1fb088a7871b7fb1610750d (diff) | |
| download | emacs-02532fbc7992bcdf86baaf41ae4420f66109cb15.tar.gz emacs-02532fbc7992bcdf86baaf41ae4420f66109cb15.tar.bz2 emacs-02532fbc7992bcdf86baaf41ae4420f66109cb15.zip | |
(vc-hg-log-switches): Add defcustom.
(vc-hg-print-log): Use it.
Diffstat (limited to 'lisp/vc-hg.el')
| -rw-r--r-- | lisp/vc-hg.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index d47df2a7b3f..26bf25cfc61 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -211,6 +211,13 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." ;;; History functions +(defcustom vc-hg-log-switches nil + "String or list of strings specifying switches for hg log under VC." + :type '(choice (const :tag "None" nil) + (string :tag "Argument String") + (repeat :tag "Argument List" :value ("") string)) + :group 'vc-hg) + (defun vc-hg-print-log (files &optional buffer) "Get change log associated with FILES." ;; `log-view-mode' needs to have the file names in order to function @@ -225,7 +232,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (let ((inhibit-read-only t)) (with-current-buffer buffer - (vc-hg-command buffer 0 files "log")))) + (apply 'vc-hg-command buffer 0 files "log" vc-hg-log-switches)))) (defvar log-view-message-re) (defvar log-view-file-re) |