From 530a16ec071db0e24e6e949e265a96848864967c Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 19 Jan 2011 10:44:49 +0000
Subject: add mes5-2.6.33 branch

---
 perl-install/unused/migrate-ugtk2-to-mygtk2.el | 17 +++++++++++++++++
 1 file changed, 17 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..62612053d
--- /dev/null
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.el
@@ -0,0 +1,17 @@
+(defun my-close-children ()
+  (interactive)
+  (cperl-mode)
+  (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))))
+  (save-buffer)
+  (kill-emacs)
+  )
-- 
cgit v1.2.1