diff options
Diffstat (limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.el')
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.el b/perl-install/unused/migrate-ugtk2-to-mygtk2.el index 71137d13c..62612053d 100644 --- a/perl-install/unused/migrate-ugtk2-to-mygtk2.el +++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.el @@ -1,5 +1,6 @@ (defun my-close-children () (interactive) + (cperl-mode) (end-of-buffer) (let ((p t)) (while (setq p (search-backward-regexp "\\<children\\(\\|_tight\\|_loose\\) => \\[" nil t)) @@ -10,4 +11,7 @@ (backward-char) (if (not (string-equal (buffer-substring (point) (1+ (point))) "]")) (insert "]")) - (goto-char p))))) + (goto-char p)))) + (save-buffer) + (kill-emacs) + ) |