procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-hg-log-switches): Add defcustom.

Browse source 
(vc-hg-print-log): Use it.
This commit is contained in:
Sam Steingold 2009-06-12 20:14:45 +00:00
parent 09856751db
commit 02532fbc79
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

9
lisp/vc-hg.el
View file

@ -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)