(make-mms-derivative-root-dir): Update.

(make-mms-derivative): Avoid unixisms for tree membership
validation and buffer naming: use `file-relative-name'.

diff --git a/vms/make-mms-derivative.el b/vms/make-mms-derivative.el
index 1ad2af4e388bf3db75732ee8b60419b5bd83c8d8..666ca4ae657188a6ac4c3220ecb229b3a4379934 100644 (file)
--- a/vms/make-mms-derivative.el
+++ b/vms/make-mms-derivative.el
@@ -55,7 +55,7 @@
 
 ;;; Code:
 
-(defvar make-mms-derivative-root-dir "~/build/GNU/emacs"
+(defvar make-mms-derivative-root-dir "AXPA:[TTN.EMACS.EMACS212_3]"
   "Source tree root directory.")
 
 (defvar make-mms-derivative-data nil
@@ -111,14 +111,14 @@
   (interactive "fSource File: ")
   (let ((root (expand-file-name make-mms-derivative-root-dir))
         (file (expand-file-name file)))
-    (unless (string-match (concat "^" root) file)
+    (when (file-name-absolute-p (file-relative-name file root))
       (error "Not under root (%s)" root))
     (let ((edits-filename (concat file "-2mms")))
       (unless (file-exists-p edits-filename)
         (error "Could not find %s" edits-filename))
-      (let* ((pre (+ (length root) (if (string= "/" (substring root -1)) 0 1)))
-             (buf (get-buffer-create (format "*mms-derivative: %s"
-                                             (substring file pre)))))
+      (let ((buf (get-buffer-create
+                 (format "*mms-derivative: %s"
+                         (file-relative-name file root)))))
         (message "Munging ...")
         (switch-to-buffer buf)
         (erase-buffer)