diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2011-01-19 10:44:49 +0000 |
| commit | 530a16ec071db0e24e6e949e265a96848864967c (patch) | |
| tree | fe40cacd28d67b98186754c551b7fd339ebc7e17 /perl-install/unused/migrate-ugtk2-to-mygtk2.el | |
| download | drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.gz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.bz2 drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.tar.xz drakx-backup-do-not-use-530a16ec071db0e24e6e949e265a96848864967c.zip | |
add mes5-2.6.33 branch
Diffstat (limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.el')
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.el | 17 |
1 files changed, 17 insertions, 0 deletions
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) + ) |