Patch to vc.el

This fix still hasn't made it into vc.el, even with VC package 1.16. Please consider installing this patch, as it makes vc-version-diff when invoked with `C-u C-x v =' actually useful. Thanks, -Barry *** vc.el 1999/02/16 23:57:27 1.3 --- vc.el 1999/02/16 23:58:29 1.4 *************** *** 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)