From fdd401446906c15b45767ee1adf94821075c9dce Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 28 Nov 2003 08:59:09 +0000 Subject: [PATCH] (make-mms-derivative-root-dir): Update. (make-mms-derivative): Avoid unixisms for tree membership validation and buffer naming: use `file-relative-name'. --- vms/make-mms-derivative.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/vms/make-mms-derivative.el b/vms/make-mms-derivative.el index 1ad2af4e388..666ca4ae657 100644 --- 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) -- 2.39.2