andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(make-mms-derivative): Avoid unixisms for tree membership
validation and buffer naming: use `file-relative-name'.
This commit is contained in:
Thien-Thi Nguyen 2003-11-28 08:59:09 +00:00
parent d9cbee570f
commit fdd4014469
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
vms/make-mms-derivative.el
View file

@ -55,7 +55,7 @@
;;; Code: ;;; 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.") "Source tree root directory.")
(defvar make-mms-derivative-data nil (defvar make-mms-derivative-data nil
@ -111,14 +111,14 @@
(interactive "fSource File: ") (interactive "fSource File: ")
(let ((root (expand-file-name make-mms-derivative-root-dir)) (let ((root (expand-file-name make-mms-derivative-root-dir))
(file (expand-file-name file))) (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)) (error "Not under root (%s)" root))
(let ((edits-filename (concat file "-2mms"))) (let ((edits-filename (concat file "-2mms")))
(unless (file-exists-p edits-filename) (unless (file-exists-p edits-filename)
(error "Could not find %s" edits-filename)) (error "Could not find %s" edits-filename))
(let* ((pre (+ (length root) (if (string= "/" (substring root -1)) 0 1))) (let ((buf (get-buffer-create
(buf (get-buffer-create (format "*mms-derivative: %s" (format "*mms-derivative: %s"
(substring file pre))))) (file-relative-name file root)))))
(message "Munging ...") (message "Munging ...")
(switch-to-buffer buf) (switch-to-buffer buf)
(erase-buffer) (erase-buffer)