[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el |
Date: |
Fri, 12 Jun 2009 20:14:53 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog vc-hg.el,
Sam Steingold <=