Mercurial > emacs
comparison vms/make-mms-derivative.el @ 60813:e5d5ea6a58f1
(make-mms-derivative-write-under-root): Delete func.
(make-mms-derivative-progn): Don't quote lambda forms.
(make-mms-derivative): Inline make-mms-derivative-write-under-root.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Tue, 22 Mar 2005 11:56:55 +0000 |
| parents | d6dc58f9beaa |
| children | a9ece659b645 |
comparison
equal
deleted
inserted
replaced
| 60812:12d70101d252 | 60813:e5d5ea6a58f1 |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2003 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Thien-Thi Nguyen <ttn@gnu.org> | 5 ;; Author: Thien-Thi Nguyen <ttn@gnu.org> |
| 6 ;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose | 6 ;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose |
| 7 ;; Favorite-TV-Game-Show: L'Eredità | |
| 8 | 7 |
| 9 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
| 10 | 9 |
| 11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 10 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 12 ;; it under the terms of the GNU General Public License as published by | 11 ;; it under the terms of the GNU General Public License as published by |
| 65 (if newval | 64 (if newval |
| 66 (setq make-mms-derivative-data | 65 (setq make-mms-derivative-data |
| 67 (cons (cons key newval) make-mms-derivative-data)) | 66 (cons (cons key newval) make-mms-derivative-data)) |
| 68 (cdr (assq key make-mms-derivative-data)))) | 67 (cdr (assq key make-mms-derivative-data)))) |
| 69 | 68 |
| 70 (defun make-mms-derivative-write-under-root (rel-filename) | |
| 71 (write-file (expand-file-name rel-filename make-mms-derivative-root-dir))) | |
| 72 | |
| 73 (defmacro make-mms-derivative-progn (msg &rest body) | 69 (defmacro make-mms-derivative-progn (msg &rest body) |
| 74 `(progn | 70 `(progn |
| 75 (message "(%s) %s" (point) ,msg) | 71 (message "(%s) %s" (point) ,msg) |
| 76 ,@body)) | 72 ,@body)) |
| 77 | 73 |
| 93 (if look | 89 (if look |
| 94 (setcdr look (cons line (cdr look))) | 90 (setcdr look (cons line (cdr look))) |
| 95 (setq raw-data (cons (list i line) raw-data))))) | 91 (setq raw-data (cons (list i line) raw-data))))) |
| 96 (kill-buffer wbuf) | 92 (kill-buffer wbuf) |
| 97 (set-buffer cur) | 93 (set-buffer cur) |
| 98 (mapcar '(lambda (ent) | 94 (mapcar (lambda (ent) |
| 99 (setcdr ent (mapconcat '(lambda (line) | 95 (setcdr ent (mapconcat (lambda (line) |
| 100 (concat line "\n")) | 96 (concat line "\n")) |
| 101 (cdr ent) | 97 (cdr ent) |
| 102 ""))) | 98 ""))) |
| 103 raw-data) | 99 raw-data) |
| 104 (make-mms-derivative-data 'raw-data raw-data)) | 100 (make-mms-derivative-data 'raw-data raw-data)) |
| 105 (load name)) | 101 (load name)) |
| 106 | 102 |
| 107 (defun make-mms-derivative-insert-raw-data (n) | 103 (defun make-mms-derivative-insert-raw-data (n) |
| 124 (erase-buffer) | 120 (erase-buffer) |
| 125 (make-variable-buffer-local 'make-mms-derivative-data) | 121 (make-variable-buffer-local 'make-mms-derivative-data) |
| 126 (insert-file file) | 122 (insert-file file) |
| 127 (make-mms-derivative-load-edits-file edits-filename) | 123 (make-mms-derivative-load-edits-file edits-filename) |
| 128 (let ((out (make-mms-derivative-data 'write-under-root))) | 124 (let ((out (make-mms-derivative-data 'write-under-root))) |
| 129 (when out (make-mms-derivative-write-under-root out)) | 125 (when out |
| 126 (write-file | |
| 127 (expand-file-name rel-filename make-mms-derivative-root-dir))) | |
| 130 (kill-buffer buf) | 128 (kill-buffer buf) |
| 131 (unless out (message "Munging ... done"))))))) | 129 (unless out (message "Munging ... done"))))))) |
| 132 | 130 |
| 133 (provide 'make-mms-derivative) | 131 (provide 'make-mms-derivative) |
| 134 | 132 |