🚀 go-pugleaf

Sigh, this should be the last thing that needs to be changed to fix
the trouble with VMS Dired and file versions.  I discovered that files
with extensions which are numbers caused trouble with
file-name-sans-versions.  For example,

(file-name-sans-versions "DISK:[DIR]FOO.5")
===> "DISK:[DIR]FOO"

The trouble is a small one and the patch is below.  If you do not have
the patch program, find the matching section in file-name-sans-version
(in files.el) and simply replace the line from the first section which
is prefaced with an exclamation point with all those prefaced by
exclamation points inthe second section (delete the "!").  Then do an
M-x byte-compile-file before rebuilding emacs.dump.  I will also send
this directly to bug-gnu-emacs.

*** files.el;1
--- files.el
**************
*** 547,553
    (substring name 0
  	     (if (eq system-type 'vax-vms)
  		 (or (string-match ";[0-9]+\\'" name)
! 		     (string-match ".[0-9]+\\'" name)
  		     (length name))
  	       (or (string-match "\\.~[0-9]+~\\'" name)
  		   (string-match "~\\'" name)
--- 547,557 -----
    (substring name 0
  	     (if (eq system-type 'vax-vms)
  		 (or (string-match ";[0-9]+\\'" name)
! 		     (if (string-match "]" name)
! 			 (if (string-match "].*\\..*\\.[0-9]+\\'" name)
! 			     (string-match "\\.[0-9]+\\'" name)
! 			   (length name))
! 		       (length name))
  		     (length name))
  	       (or (string-match "\\.~[0-9]+~\\'" name)
  		   (string-match "~\\'" name)
-- 
Roland Roberts                      BITNET: roberts@uornsrl
  Nuclear Structure Research Lab  INTERNET: rbr4@uhura.cc.rochester.edu
  271 East River Road                 UUCP: rochester!ur-cc!uhura!rbr4
  Rochester, NY  14267                AT&T: (716) 275-8962