[Emacs-diffs] Changes to emacs/vms/make-mms-derivative.el

[Thien-Thi Nguyen]

Index: emacs/vms/make-mms-derivative.el
diff -c emacs/vms/make-mms-derivative.el:1.4 
emacs/vms/make-mms-derivative.el:1.5
*** emacs/vms/make-mms-derivative.el:1.4        Mon Nov 24 21:47:22 2003
--- emacs/vms/make-mms-derivative.el    Fri Nov 28 03:59:09 2003
***************
*** 55,61 ****
  
  ;;; Code:
  
! (defvar make-mms-derivative-root-dir "~/build/GNU/emacs"
    "Source tree root directory.")
  
  (defvar make-mms-derivative-data nil
--- 55,61 ----
  
  ;;; Code:
  
! (defvar make-mms-derivative-root-dir "AXPA:[TTN.EMACS.EMACS212_3]"
    "Source tree root directory.")
  
  (defvar make-mms-derivative-data nil
***************
*** 111,124 ****
    (interactive "fSource File: ")
    (let ((root (expand-file-name make-mms-derivative-root-dir))
          (file (expand-file-name file)))
!     (unless (string-match (concat "^" root) file)
        (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)))))
          (message "Munging ...")
          (switch-to-buffer buf)
          (erase-buffer)
--- 111,124 ----
    (interactive "fSource File: ")
    (let ((root (expand-file-name make-mms-derivative-root-dir))
          (file (expand-file-name 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 ((buf (get-buffer-create
!                 (format "*mms-derivative: %s"
!                         (file-relative-name file root)))))
          (message "Munging ...")
          (switch-to-buffer buf)
          (erase-buffer)