[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/vms/make-mms-derivative.el
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/vms/make-mms-derivative.el |
Date: |
Tue, 22 Mar 2005 06:56:56 -0500 |
Index: emacs/vms/make-mms-derivative.el
diff -c emacs/vms/make-mms-derivative.el:1.5
emacs/vms/make-mms-derivative.el:1.6
*** emacs/vms/make-mms-derivative.el:1.5 Fri Nov 28 08:59:09 2003
--- emacs/vms/make-mms-derivative.el Tue Mar 22 11:56:55 2005
***************
*** 4,10 ****
;; Author: Thien-Thi Nguyen <address@hidden>
;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose
- ;; Favorite-TV-Game-Show: L'EreditÃ
;; This file is part of GNU Emacs.
--- 4,9 ----
***************
*** 67,75 ****
(cons (cons key newval) make-mms-derivative-data))
(cdr (assq key make-mms-derivative-data))))
- (defun make-mms-derivative-write-under-root (rel-filename)
- (write-file (expand-file-name rel-filename make-mms-derivative-root-dir)))
-
(defmacro make-mms-derivative-progn (msg &rest body)
`(progn
(message "(%s) %s" (point) ,msg)
--- 66,71 ----
***************
*** 95,105 ****
(setq raw-data (cons (list i line) raw-data)))))
(kill-buffer wbuf)
(set-buffer cur)
! (mapcar '(lambda (ent)
! (setcdr ent (mapconcat '(lambda (line)
! (concat line "\n"))
! (cdr ent)
! "")))
raw-data)
(make-mms-derivative-data 'raw-data raw-data))
(load name))
--- 91,101 ----
(setq raw-data (cons (list i line) raw-data)))))
(kill-buffer wbuf)
(set-buffer cur)
! (mapcar (lambda (ent)
! (setcdr ent (mapconcat (lambda (line)
! (concat line "\n"))
! (cdr ent)
! "")))
raw-data)
(make-mms-derivative-data 'raw-data raw-data))
(load name))
***************
*** 126,132 ****
(insert-file file)
(make-mms-derivative-load-edits-file edits-filename)
(let ((out (make-mms-derivative-data 'write-under-root)))
! (when out (make-mms-derivative-write-under-root out))
(kill-buffer buf)
(unless out (message "Munging ... done")))))))
--- 122,130 ----
(insert-file file)
(make-mms-derivative-load-edits-file edits-filename)
(let ((out (make-mms-derivative-data 'write-under-root)))
! (when out
! (write-file
! (expand-file-name rel-filename make-mms-derivative-root-dir)))
(kill-buffer buf)
(unless out (message "Munging ... done")))))))