[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: |
Mon, 24 Nov 2003 21:47:22 -0500 |
Index: emacs/vms/make-mms-derivative.el
diff -c emacs/vms/make-mms-derivative.el:1.3
emacs/vms/make-mms-derivative.el:1.4
*** emacs/vms/make-mms-derivative.el:1.3 Mon Nov 24 17:23:51 2003
--- emacs/vms/make-mms-derivative.el Mon Nov 24 21:47:22 2003
***************
*** 79,94 ****
(defun make-mms-derivative-load-edits-file (name)
(make-mms-derivative-data 'edits-filename name)
! (let ((i 0) tmp res)
! (while (progn
! (setq tmp
! (shell-command-to-string
! (format "grep '^;;;%s;;' %s | sed
's/^;;;[0-9][0-9]*;;//g'"
! i name)))
! (not (string= "" tmp)))
! (setq res (cons (cons i tmp) res)
! i (1+ i)))
! (make-mms-derivative-data 'raw-data res))
(load name))
(defun make-mms-derivative-insert-raw-data (n)
--- 79,107 ----
(defun make-mms-derivative-load-edits-file (name)
(make-mms-derivative-data 'edits-filename name)
! (let (raw-data
! (cur (current-buffer))
! (wbuf (get-buffer-create "*make-mms-derivative-load-edits-file work")))
! (set-buffer wbuf)
! (insert-file-contents name)
! (keep-lines "^;;;[0-9]+;;")
! (goto-char (point-max))
! (while (re-search-backward "^;;;\\([0-9]+\\);;\\(.*\\)$" (point-min) t)
! (let* ((i (string-to-number (match-string 1)))
! (line (match-string 2))
! (look (assq i raw-data)))
! (if look
! (setcdr look (cons line (cdr look)))
! (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))
(defun make-mms-derivative-insert-raw-data (n)