mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00
Code Issues Releases Activity

(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:
(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)