vc-sccs-workfile-version returns wrong version number

vc-sccs-workfile-version returns wrong version number

[Chet Wood]

Running  vc-next-action on a checked-out file,
I get the following error message:

File has unlocked changes.  Claim lock retaining changes? (yes or no)

After some debugging, I find that this is because the sccs file has an
unexpected structure, and vc-sccs-workfile-version is returning the
number of an older version than the one checked out. 

This file has an older branch as the first entry in the sccs history
file, and that is the version that is returned by
vc-sccs-workfile-version. In this example, the checked-out file is
1.143 but the version history looks like this:

*****
SCCS/s.flags.cc:

D 1.139.1.1 07/10/27 03:58:40 sheldon 208 203	00001/00001/00395
MRs:
COMMENTS:
Some comments

D 1.143 07/10/23 15:54:33 cwood 207 206	00001/00000/00399
MRs:
COMMENTS:
Some other comments

*****


IMHO vc-sccs-workfile-version should invoke an sccs command like 'sccs
info' to find the version rather than parsing the history file itself.


In GNU Emacs 22.1.1 (sparc-sun-solaris2.8, GTK+ Version 2.11.1)
 of 2007-06-11 on pkg-build
Windowing system distributor `The X.Org Group', version 11.0.6600
configured using `configure  '--prefix=/pkg/gnu' '--x-includes=/pkg/gnome/include:/usr/X11/include:/usr/openwin/include:/usr/dt/include:/pkg/X11/include' '--x-libraries=/pkg/gnome/lib:/usr/X11/lib:/usr/openwin/lib:/usr/dt/lib:/pkg/X11/lib' '--with-x' '--with-x-toolkit=gtk' '--with-pkg-config-prog=/usr/bin/pkg-config' '--with-xpm' '--with-jpeg' '--with-tiff' '--with-gif' '--with-png' 'CC=gcc' 'CFLAGS= -O3 -mv8 -mtune=ultrasparc' 'LDFLAGS=-L/pkg/local/lib -R/pkg/local/lib -L/pkg/gnu/lib -R/pkg/gnu/lib' 'CPPFLAGS=-I/pkg/local/include -I/pkg/local/include/libpng -I/pkg/gnu/include''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  shell-dirtrack-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
m a n d <return> C-x o C-x v v C-n C-n C-n C-n C-n 
C-p C-p C-p C-p C-n C-p C-p C-e C-n C-a C-n f <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<down-mouse-2> <mouse-2> <down-mouse-1> <mouse-1> <help-echo> 
C-e C-a C-n C-n C-e C-n C-n C-a C-n C-n C-e C-a <help-echo> 
<help-echo> <down-mouse-2> <mouse-2> <down-mouse-1> 
<mouse-2> <help-echo> C-n C-n C-n C-n C-n C-s v c - 
v e r s i o n C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f M-x d b u g <backspace> <backspace> <backspace> 
e b u g - o n - e n t r y <return> <return> C-x b C-g 
C-x o q C-x v v <help-echo> <down-mouse-2> <mouse-2> 
<help-echo> C-n C-n C-n C-x o d d d d C-p C-e d d d 
<help-echo> <help-echo> <help-echo> <help-echo> <down-mouse-2> 
<mouse-2> C-n C-n C-n C-n C-n C-n C-n C-n C-p C-p C-p 
C-x b v c - s <return> C-s w o r k f i l e - v e r 
i o n <backspace> <backspace> <backspace> s i o n C-s 
C-s C-s C-s C-s C-n C-n C-n C-n C-x 1 C-n C-n C-n <M-return> 
C-g M-x e m a c s - b u SPC <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> b u g SPC <backspace> <backspace> <backspace> 
e m a c s - b SPC u SPC <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> C-g 
M-? a b u g <return> C-x o C-n C-n C-n C-n C-n C-n 
C-v C-n C-v C-v C-v C-v M-< C-v C-v C-v C-v C-x o M-x 
r e C-g C-x C-b C-x o C-n C-n C-n C-n C-p f M-x r e 
p o r t - e m a c s - b u g <return>

Recent messages:
Proceeding, will debug on next eval or call.
Entering debugger...
Mark saved where search started
Loading man...done
Quit [2 times]
Loading apropos...done
Type C-x 1 to remove help window.  
Mark set
Quit
Loading emacsbug...done