[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/06/12 20:14:52

Modified files:
        lisp           : ChangeLog vc-hg.el 

Log message:
        (vc-hg-log-switches): Add defcustom.
        (vc-hg-print-log): Use it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15678&r2=1.15679
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hg.el?cvsroot=emacs&r1=1.95&r2=1.96

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15678
retrieving revision 1.15679
diff -u -b -r1.15678 -r1.15679
--- ChangeLog   12 Jun 2009 12:50:55 -0000      1.15678
+++ ChangeLog   12 Jun 2009 20:14:45 -0000      1.15679
@@ -1,3 +1,8 @@
+2009-06-12  Sam Steingold  <address@hidden>
+
+       * vc-hg.el (vc-hg-log-switches): Add defcustom.
+       (vc-hg-print-log): Use it.
+
 2009-06-12  Kenichi Handa  <address@hidden>
 
        * international/eucjp-ms.el: Re-generated.

Index: vc-hg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -b -r1.95 -r1.96
--- vc-hg.el    15 Jan 2009 08:10:31 -0000      1.95
+++ vc-hg.el    12 Jun 2009 20:14:52 -0000      1.96
@@ -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)