Re: RCS, again: another removed functionality: undo last-checkin

[Uwe Brauer]

   > Of course, you can always do this with "rcs -oREV" from the shell, I'm
   > sure you know that.


Yes I do and I came up with a lisp wrapper for that:

(defvar vc-remove-command                 "/usr/bin/rcs -o%s %s "
"*Command for removing rcs version from branch.")

(defun vc-rcs-remove-version () 
  "Remove interactively versions from the tree."
  (interactive)
  (let* ((currentname 
                  (buffer-file-name (current-buffer))))
    (save-buffer)
          (shell-command
           (format vc-remove-command
                           (read-string "version to be removed: ")
                           currentname)
           "*VC-RCS-LOG*")))

But I am not sure that anybody finds this useful.