patch to vc.el
Here is a patch to vc-version-diff against vc.el from the vc-1.15
package. I thought I'd submitted this earlier but it hasn't made it
into the latest package.
When `C-u C-x v =' is used, you are prompted for the file and
revisions to diff against. Defaults are given, but if you just hit
return a few times, rel1 and rel2 get the value nil and the diff you
expect to see isn't given. This fixes things so the defaults are
actually honored.
-Barry
-------------------- snip snip --------------------
*** vc.el 1999/01/08 06:09:01 1.1
--- vc.el 1999/01/08 06:10:57 1.2
***************
*** 1354,1369 ****
(setq rel2-default (vc-workfile-version file))))
;; construct argument list
(list file
! (let ((minibuffer-default rel1-default))
! (read-string (if rel1-default
! (concat "Older version: (default "
! rel1-default ") ")
! "Older version: ")))
! (let ((minibuffer-default rel2-default))
! (read-string (if rel2-default
! (concat "Newer version: (default "
! rel2-default ") ")
! "Newer version (default: current source): "))))))
(if (string-equal rel1 "") (setq rel1 nil))
(if (string-equal rel2 "") (setq rel2 nil))
(if (file-directory-p file)
--- 1354,1378 ----
(setq rel2-default (vc-workfile-version file))))
;; construct argument list
(list file
! (let ((minibuffer-default rel1-default)
! (rel1-choice
! (read-string (if rel1-default
! (concat "Older version: (default "
! rel1-default ") ")
! "Older version: "))))
! (if (string-equal rel1-choice "")
! rel1-default
! rel1-choice))
! (let ((minibuffer-default rel2-default)
! (rel2-choice
! (read-string (if rel2-default
! (concat "Newer version: (default "
! rel2-default ") ")
! "Newer version (default: current source): ")
! )))
! (if (string-equal rel2-choice "")
! rel2-default
! rel2-choice)))))
(if (string-equal rel1 "") (setq rel1 nil))
(if (string-equal rel2 "") (setq rel2 nil))
(if (file-directory-p file)