diff options
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, 0 insertions, 17 deletions
diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.el b/perl-install/unused/migrate-ugtk2-to-mygtk2.el deleted file mode 100644 index 62612053d..000000000 --- a/perl-install/unused/migrate-ugtk2-to-mygtk2.el +++ /dev/null @@ -1,17 +0,0 @@ -(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) - ) |