diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-03 10:36:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-03 10:36:41 +0000 |
| commit | 4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b (patch) | |
| tree | db81de16adb34ad12426cae87428b050d251638d | |
| parent | 863dcb76de2e0994e3d01a5b7ea68484bccdc067 (diff) | |
| download | drakx-backup-do-not-use-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar drakx-backup-do-not-use-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.gz drakx-backup-do-not-use-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.bz2 drakx-backup-do-not-use-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.xz drakx-backup-do-not-use-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.zip | |
be more automatic and less .emacs dependent
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.el | 6 | ||||
| -rw-r--r-- | perl-install/unused/migrate-ugtk2-to-mygtk2.pl | 2 |
2 files changed, 6 insertions, 2 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) + ) diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl index ad98b61e2..10e82f555 100644 --- a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl +++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl @@ -210,7 +210,7 @@ END { if (defined $^I) { foreach (@args) { warn "$_: closing children using emacs\n"; - system('emacs', '-l', 'unused/migrate-ugtk2-to-mygtk2.el', $_, '-f', 'my-close-children') + system('emacs', '-q', '-l', 'unused/migrate-ugtk2-to-mygtk2.el', $_, '-f', 'my-close-children') } } } |