diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-02 20:44:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-02 20:44:41 +0000 |
| commit | 0d43ba93de8a110f71853dd391e3c71af063e41f (patch) | |
| tree | 8b29452670b74bbf1d2ee34b0feee1c34f9c233a /perl-install/unused/migrate-ugtk2-to-mygtk2.el | |
| parent | b8270d9fd0568195dd3ce2f202182593c91c7142 (diff) | |
| download | drakx-0d43ba93de8a110f71853dd391e3c71af063e41f.tar drakx-0d43ba93de8a110f71853dd391e3c71af063e41f.tar.gz drakx-0d43ba93de8a110f71853dd391e3c71af063e41f.tar.bz2 drakx-0d43ba93de8a110f71853dd391e3c71af063e41f.tar.xz drakx-0d43ba93de8a110f71853dd391e3c71af063e41f.zip | |
dirty script easing the switch from ugtk2 to mygtk2 (beware!)
Diffstat (limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.el')
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.el | 13 |
1 files changed, 13 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..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))))) |