diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2003-11-24 18:31:29 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2003-11-24 18:31:29 +0000 |
commit | 9e5cf80a046d54ae368d8b89ae7b6e859ac9cba0 (patch) | |
tree | 502933ab13499ea49348d935c48f1253daf16171 /vms | |
parent | ad80578f633d7d8db33525261bc44756aff564dc (diff) | |
download | emacs-9e5cf80a046d54ae368d8b89ae7b6e859ac9cba0.tar.gz |
(make-mms-derivative): Use suffix "-2mms"
instead of ".2mms" to support operation under VMS.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/make-mms-derivative.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vms/make-mms-derivative.el b/vms/make-mms-derivative.el index 13b4b2bf906..84a9c140443 100644 --- a/vms/make-mms-derivative.el +++ b/vms/make-mms-derivative.el @@ -32,15 +32,15 @@ ;; 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: +;; 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 +;; 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,7 +100,7 @@ (file (expand-file-name file))) (unless (string-match (concat "^" root) file) (error "Not under root (%s)" root)) - (let ((edits-filename (concat file ".2mms"))) + (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))) |