[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.1 
emacs/vms/make-mms-derivative.el:1.2
*** emacs/vms/make-mms-derivative.el:1.1        Mon Nov 24 13:04:06 2003
--- emacs/vms/make-mms-derivative.el    Mon Nov 24 13:31:29 2003
***************
*** 32,46 ****
  ;; Emacs-specific methodology to DCL and TPU commands, so to alleviate
  ;; this pain, we provide `make-mms-derivative', which given a source
  ;; FILENAME (under `make-mms-derivative-root-dir'), inserts the file
! ;; contents in a new buffer and loads FILENAME.2mms.  The elisp in the
! ;; .2mms file can (do whatever -- it's emacs -- and) arrange to write
! ;; out the modified buffer after FILENAME.2mms loading by using:
  ;;
  ;;  (make-mms-derivative-data 'write-under-root RELATIVE-FILENAME)
  ;;
  ;; where RELATIVE-FILENAME is something like "src/descrip.mms_in_in".
  ;; Over the long run, the convenience procedures provided (see source)
! ;; will be augmented by factoring maximally the .2mms files, squeezing
  ;; as much algorithm out of those nasty heuristics as possible.  What
  ;; makes them nasty is not that they rely on the conventions of the
  ;; Emacs makefiles; that's no big deal.  What makes them nasty is that
--- 32,46 ----
  ;; Emacs-specific methodology to DCL and TPU commands, so to alleviate
  ;; this pain, we provide `make-mms-derivative', which given a source
  ;; FILENAME (under `make-mms-derivative-root-dir'), inserts the file
! ;; contents in a new buffer and loads FILENAME-2mms.  The elisp in the
! ;; -2mms file can (do whatever -- it's emacs -- and) arrange to write
! ;; out the modified buffer after FILENAME-2mms loading by using:
  ;;
  ;;  (make-mms-derivative-data 'write-under-root RELATIVE-FILENAME)
  ;;
  ;; where RELATIVE-FILENAME is something like "src/descrip.mms_in_in".
  ;; Over the long run, the convenience procedures provided (see source)
! ;; will be augmented by factoring maximally the -2mms files, squeezing
  ;; as much algorithm out of those nasty heuristics as possible.  What
  ;; makes them nasty is not that they rely on the conventions of the
  ;; Emacs makefiles; that's no big deal.  What makes them nasty is that
***************
*** 100,106 ****
          (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)))
--- 100,106 ----
          (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)))