From 0d43ba93de8a110f71853dd391e3c71af063e41f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Dec 2004 20:44:41 +0000
Subject: dirty script easing the switch from ugtk2 to mygtk2 (beware!)

---
 perl-install/unused/migrate-ugtk2-to-mygtk2.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 perl-install/unused/migrate-ugtk2-to-mygtk2.el

(limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.el')

diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.el b/perl-install/unused/migrate-ugtk2-to-mygtk2.el
new file mode 100644
index 000000000..71137d13c
--- /dev/null
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.el
@@ -0,0 +1,13 @@
+(defun my-close-children ()
+  (interactive)
+  (end-of-buffer) 
+  (let ((p t))
+    (while (setq p (search-backward-regexp "\\<children\\(\\|_tight\\|_loose\\) => \\[" nil t))
+      (progn
+	(search-forward "[")
+	(backward-char)
+	(forward-sexp)
+	(backward-char)
+	(if (not (string-equal (buffer-substring (point) (1+ (point))) "]"))
+	    (insert "]"))
+	(goto-char p)))))
-- 
cgit v1.2.1