Mercurial > emacs
changeset 103403:cb4483f32179
(vc-hg-log-switches): Add defcustom.
(vc-hg-print-log): Use it.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 12 Jun 2009 20:14:45 +0000 |
| parents | 2688fae5ee56 |
| children | 54b433fa1acb |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 12 12:51:20 2009 +0000 +++ b/lisp/ChangeLog Fri Jun 12 20:14:45 2009 +0000 @@ -1,3 +1,8 @@ +2009-06-12 Sam Steingold <sds@gnu.org> + + * vc-hg.el (vc-hg-log-switches): Add defcustom. + (vc-hg-print-log): Use it. + 2009-06-12 Kenichi Handa <handa@m17n.org> * international/eucjp-ms.el: Re-generated.
--- a/lisp/vc-hg.el Fri Jun 12 12:51:20 2009 +0000 +++ b/lisp/vc-hg.el Fri Jun 12 20:14:45 2009 +0000 @@ -211,6 +211,13 @@ ;;; 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 @@ (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)