emacs-diffs
[Top][All Lists]
Advanced

[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")))))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]