From 3f5bc8830fc8f1fb03d8822036c2b38d907f3f45 Mon Sep 17 00:00:00 2001 From: Asanka Herath Date: Wed, 9 Mar 2016 11:31:42 -0500 Subject: [PATCH] Remove maint.el. This script is unused and will probably not be used by anyone. --- windows/maint.el | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 windows/maint.el diff --git a/windows/maint.el b/windows/maint.el deleted file mode 100644 index a76179d85..000000000 --- a/windows/maint.el +++ /dev/null @@ -1,34 +0,0 @@ - - -(defun generate-obj-macro (mname &optional postfix &rest slist) - "Generates a macro definition for an OBJs dependency based on a list of source definitions" - - (let* - ((replist (apply 'append (mapcar (lambda (sdef) - (goto-char 0) - (let* - ((def (buffer-substring-no-properties - (search-forward (concat sdef " = \\\n") nil t) - (search-forward "\n\n" nil t))) - (st (split-string - (replace-regexp-in-string "^.*\\.h.*\n" "" def) - "\\s-+\\\\?\\|\n" t))) - st)) slist))) - (def-start (search-forward (concat mname " = \\\n") nil t)) - (def-end (search-forward "\n\n" nil t)) - - (repl (mapconcat - (lambda (s) - (concat "\t" - (replace-regexp-in-string - "\\(\\s-*\\)\\(.*\\)\\.c" "\\1$(OBJ)\\\\\\2.obj" s) - " \\")) - replist "\n")) - (erepl (if postfix - (concat repl "\n" postfix "\n\n") - (concat repl "\n\n"))) - ) - (delete-region def-start def-end) - (insert erepl)) - ) -