/[emacs]/emacs/lisp/vc.el
ViewVC logotype

Diff of /emacs/lisp/vc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.359.2.1 by handa, Fri Apr 16 12:50:10 2004 UTC revision 1.359.2.2 by miles, Mon Jun 28 07:28:47 2004 UTC
# Line 2357  If FOCUS-REV is non-nil, leave the point Line 2357  If FOCUS-REV is non-nil, leave the point
2357         ;; without the optional buffer argument (for backward compatibility).         ;; without the optional buffer argument (for backward compatibility).
2358         ;; Otherwise, resignal.         ;; Otherwise, resignal.
2359         (if (or (not (eq (cadr err)         (if (or (not (eq (cadr err)
2360                          (indirect-function                          (indirect-function
2361                           (vc-find-backend-function (vc-backend file)                           (vc-find-backend-function (vc-backend file)
2362                                                     'print-log))))                                                     'print-log))))
2363                 (not (eq (caddr err) 2)))                 (not (eq (caddr err) 2)))
2364             (signal wrong-number-of-arguments err)             (signal (car err) (cdr err))
2365           ;; for backward compatibility           ;; for backward compatibility
2366           (vc-call print-log file)           (vc-call print-log file)
2367           (set-buffer "*vc*"))))           (set-buffer "*vc*"))))

Legend:
Removed from v.1.359.2.1  
changed lines
  Added in v.1.359.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26