Xref: utzoo gnu.emacs.vms:98 gnu.emacs:1527 gnu.emacs.bug:1109 comp.emacs:6788 comp.os.vms:17353 Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!udel!rochester!uhura.cc.rochester.edu!rbr4 From: rbr4@uhura.cc.rochester.edu (Roland Roberts) Newsgroups: gnu.emacs.vms,gnu.emacs,gnu.emacs.bug,comp.emacs,comp.os.vms Subject: (Another) Patch to files.el for VMS Dired Summary: Bug in file-name-sans-versions Message-ID: <2935@ur-cc.UUCP> Date: 1 Sep 89 22:14:25 GMT References: <2908@ur-cc.UUCP> <2919@ur-cc.UUCP> <2921@ur-cc.UUCP> Reply-To: rbr4@uhura.cc.rochester.edu (Roland Roberts) Followup-To: gnu.emacs.vms Organization: University of Rochester Lines: 43 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