comparison lisp/vc.el @ 35820:3cfa6e077b83

(vc-diff-switches): New user option. (vc-version-diff): Use it. (vc-diff-switches-list): New macro.

35819:74e2d9de2fc1

;; Copyright (C) 1992,93,94,95,96,97,98,2000  Free Software Foundation, Inc.

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

;; $Id: vc.el,v 1.293 2001/01/08 16:23:33 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

  "Maximum number of saved comments in the comment ring.")

;;; This is duplicated in diff.el.
(defvar diff-switches "-c"
  "*A string or list of strings specifying switches to be passed to diff.")

;;;###autoload
(defcustom vc-checkin-hook nil
  "*Normal hook (list of functions) run after a checkin is done.
See `run-hooks'."

      (if (and file-rel1 file-rel2)
	  (apply 'vc-do-command t 1 "diff" nil
		 (append (if (listp diff-switches)
			     diff-switches
			   (list diff-switches))
			 (list (file-relative-name file-rel1)
			       (file-relative-name file-rel2))))
	(cd (file-name-directory file))
	(vc-call diff file rel1 rel2))))
  (if (and (zerop (buffer-size))

		      (if (eq (buffer-size) 0)
			  (insert "No differences found.\n"))
		      (goto-char (point-min))
		      (shrink-window-if-larger-than-buffer)))
    t))

;;;###autoload
(defun vc-version-other-window (rev)
  "Visit version REV of the current buffer in another window.
If the current buffer is named `F', the version is named `F.~REV~'.

35820:3cfa6e077b83

;; Copyright (C) 1992,93,94,95,96,97,98,2000  Free Software Foundation, Inc.

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

;; $Id: vc.el,v 1.294 2001/01/10 14:42:53 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

  "Maximum number of saved comments in the comment ring.")

;;; This is duplicated in diff.el.
(defvar diff-switches "-c"
  "*A string or list of strings specifying switches to be passed to diff.")

(defcustom vc-diff-switches nil
  "*A string or list of strings specifying switches for diff under VC.
There is also an option vc-BACKEND-diff-switches for each BACKEND that
VC can handle."
  :type '(choice (const :tag "None" nil)
		 (string :tag "Argument String")
		 (repeat :tag "Argument List"
			 :value ("")
			 string))
  :group 'vc
  :version "21.1")

;;;###autoload
(defcustom vc-checkin-hook nil
  "*Normal hook (list of functions) run after a checkin is done.
See `run-hooks'."

      (if (and file-rel1 file-rel2)
	  (apply 'vc-do-command t 1 "diff" nil
		 (append (if (listp diff-switches)
			     diff-switches
			   (list diff-switches))
                         (if (listp vc-diff-switches)
                             vc-diff-switches
                           (list vc-diff-switches))
			 (list (file-relative-name file-rel1)
			       (file-relative-name file-rel2))))
	(cd (file-name-directory file))
	(vc-call diff file rel1 rel2))))
  (if (and (zerop (buffer-size))

		      (if (eq (buffer-size) 0)
			  (insert "No differences found.\n"))
		      (goto-char (point-min))
		      (shrink-window-if-larger-than-buffer)))
    t))

(defmacro vc-diff-switches-list (backend)
  "Make a list of `diff-switches', `vc-diff-switches', 
and `vc-BACKEND-diff-switches'."
  `(append 
    (if (listp diff-switches) diff-switches (list diff-switches))
    (if (listp vc-diff-switches) vc-diff-switches (list vc-diff-switches))
    (let ((backend-switches 
           (eval (intern (concat "vc-" (symbol-name ',backend) 
                                 "-diff-switches")))))
      (if (listp backend-switches) backend-switches (list backend-switches)))))

;;;###autoload
(defun vc-version-other-window (rev)
  "Visit version REV of the current buffer in another window.
If the current buffer is named `F', the version is named `F.~REV~'.