Mercurial > emacs

changeset 54562:f52b856dbc77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-print-log): Undo prev change, use new function vc-arg-list from vc-hooks.el.
author André Spiegel <spiegel@gnu.org>
date Fri, 26 Mar 2004 06:07:55 +0000
parents 225341adbb0d
children e9ac89a9fb29
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Fri Mar 26 06:06:39 2004 +0000
+++ b/lisp/vc.el	Fri Mar 26 06:07:55 2004 +0000
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.370 2004/03/23 21:00:36 monnier Exp $
+;; $Id: vc.el,v 1.371 2004/03/25 15:39:03 sds Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2334,19 +2334,12 @@
 If FOCUS-REV is non-nil, leave the point at that revision."
   (interactive)
   (vc-ensure-vc-buffer)
-  (let* ((file buffer-file-name)
-         (backend-function
-          (symbol-function
-           (vc-find-backend-function (vc-backend file) 'print-log)))
-         (print-log-args
-          (if (byte-code-function-p backend-function)
-              (aref backend-function 0)
-              (cadr backend-function))))
+  (let ((file buffer-file-name))
     (or focus-rev (setq focus-rev (vc-workfile-version file)))
     ;; Don't switch to the output buffer before running the command,
     ;; so that any buffer-local settings in the vc-controlled
     ;; buffer can be accessed by the command.
-    (if (cdr print-log-args)
+    (if (> (length (vc-arg-list (vc-backend file) 'print-log)) 1)
         (progn
           (vc-call print-log file "*vc-change-log*")
           (set-buffer "*vc-change-log*"))