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

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     09/09/22 18:16:51

Modified files:
        lisp           : ChangeLog vc-hg.el 

Log message:
        (vc-hg-print-log): Fix shortlog arg passing.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16233&r2=1.16234
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hg.el?cvsroot=emacs&r1=1.98&r2=1.99

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16233
retrieving revision 1.16234
diff -u -b -r1.16233 -r1.16234
--- ChangeLog   22 Sep 2009 15:53:00 -0000      1.16233
+++ ChangeLog   22 Sep 2009 18:16:48 -0000      1.16234
@@ -1,3 +1,7 @@
+2009-09-22  Sam Steingold  <address@hidden>
+
+       * vc-hg.el (vc-hg-print-log): Fix shortlog arg passing.
+
 2009-09-22  Stefan Monnier  <address@hidden>
 
        * textmodes/fill.el: Convert to utf-8 encoding.

Index: vc-hg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- vc-hg.el    14 Sep 2009 04:38:55 -0000      1.98
+++ vc-hg.el    22 Sep 2009 18:16:51 -0000      1.99
@@ -232,8 +232,9 @@
     (with-current-buffer
        buffer
       (apply 'vc-hg-command buffer 0 files "log"
-            (if shortlog '("--style" "compact"))
-            vc-hg-log-switches))))
+            (if shortlog
+                 (append '("--style" "compact") vc-hg-log-switches)
+                 vc-hg-log-switches)))))
 
 (defvar log-view-message-re)
 (defvar log-view-file-re)