Re: Utility to submit patches against CVS

Hi Didier, put your guitar aside for a sec, will you? Here is a patch against the latest version I saw from you. Darn, should have used patcher to create this patch! Best regards, Adrian 2001-03-17 Adrian Aichner <adrian(a)xemacs.org&gt; * patcher.el (patcher-insert-change-logs): Force forward-slashes in relative paths to ChangeLog, even on native Windows. cd c:\Users\AichnerAd\tmp\ diff -u patcher-0.1-b3.el patcher.el Compilation started at Sat Mar 17 00:59:06 2001 +0100 (W. Europe Standard Time) --- patcher-0.1-b3.el Sat Mar 17 00:52:35 2001 +++ patcher.el Sat Mar 17 00:54:54 2001 ＠＠ -209,17 +209,20 ＠＠ (while (setq change-log-buffer (pop change-log-buffers)) (map-extents '(lambda (extent unused) - (message "%s %s" (extent-start-position extent) - (extent-end-position extent)) - (sit-for 1) - (insert - (format "%s addition:\n\n" - (file-relative-name (buffer-file-name change-log-buffer) - (patcher-project-directory - patcher-current-project)))) - (insert (extent-string extent)) - ;; be sure to map all extents - nil) + (let + ;; APA: Force forward slashes (for native Windows). + ((directory-sep-char ?/)) + (message "%s %s" (extent-start-position extent) + (extent-end-position extent)) + (sit-for 1) + (insert + (format "%s addition:\n\n" + (file-relative-name (buffer-file-name change-log-buffer) + (patcher-project-directory + patcher-current-project)))) + (insert (extent-string extent)) + ;; be sure to map all extents + nil)) change-log-buffer nil nil nil nil 'patcher)) ))) Compilation exited abnormally with code 1 at Sat Mar 17 00:59:06 -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/