comparison lisp/vc-hooks.el @ 54561:225341adbb0d

(vc-arg-list): New function, which handles both compiled and uncompiled code. (vc-default-workfile-unchanged-p): Use it.

54560:6ad0a43df342

;;           Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-hooks.el,v 1.162 2004/03/21 15:44:39 spiegel Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

(defmacro vc-call (fun file &rest args)
  ;; BEWARE!! `file' is evaluated twice!!
  `(vc-call-backend (vc-backend ,file) ',fun ,file ,@args))


(defsubst vc-parse-buffer (pattern i)
  "Find PATTERN in the current buffer and return its Ith submatch."
  (goto-char (point-min))
  (if (re-search-forward pattern nil t)

        unchanged))))

(defun vc-default-workfile-unchanged-p (backend file)
  "Check if FILE is unchanged by diffing against the master version.
Return non-nil if FILE is unchanged."
  (let ((diff-args-length
         (length (cadr (symbol-function
                        (vc-find-backend-function backend 'diff))))))
    (zerop (if (> diff-args-length 4) 
               ;; If the implementation supports it, let the output
               ;; go to *vc*, not *vc-diff*, since this is an internal call.
               (vc-call diff file nil nil "*vc*")
             ;; for backward compatibility
             (vc-call diff file)))))

(defun vc-workfile-version (file)
  "Return the version level of the current workfile FILE.
If FILE is not registered, this function always returns nil."
  (or (vc-file-getprop file 'vc-workfile-version)

54561:225341adbb0d

;;           Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-hooks.el,v 1.163 2004/03/23 20:59:19 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

(defmacro vc-call (fun file &rest args)
  ;; BEWARE!! `file' is evaluated twice!!
  `(vc-call-backend (vc-backend ,file) ',fun ,file ,@args))

(defun vc-arg-list (backend fun)
  "Return the argument list of BACKEND function FUN."
  (let ((f (symbol-function (vc-find-backend-function backend fun))))
    (if (listp f)
        ;; loaded from .el file
        (cadr f)
      ;; loaded from .elc file
      (aref f 0))))


(defsubst vc-parse-buffer (pattern i)
  "Find PATTERN in the current buffer and return its Ith submatch."
  (goto-char (point-min))
  (if (re-search-forward pattern nil t)

        unchanged))))

(defun vc-default-workfile-unchanged-p (backend file)
  "Check if FILE is unchanged by diffing against the master version.
Return non-nil if FILE is unchanged."
  (zerop (if (> (length (vc-arg-list backend 'diff)) 4)
             ;; If the implementation supports it, let the output
             ;; go to *vc*, not *vc-diff*, since this is an internal call.
             (vc-call diff file nil nil "*vc*")
           ;; for backward compatibility
           (vc-call diff file))))

(defun vc-workfile-version (file)
  "Return the version level of the current workfile FILE.
If FILE is not registered, this function always returns nil."
  (or (vc-file-getprop file 'vc-workfile-version)