summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-03 10:36:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-03 10:36:41 +0000
commit4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b (patch)
treedb81de16adb34ad12426cae87428b050d251638d
parent863dcb76de2e0994e3d01a5b7ea68484bccdc067 (diff)
downloaddrakx-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar
drakx-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.gz
drakx-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.bz2
drakx-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.tar.xz
drakx-4b0c3c05471bde9e3899cb654da0e4f4ddd8db4b.zip
be more automatic and less .emacs dependent
-rw-r--r--perl-install/unused/migrate-ugtk2-to-mygtk2.el6
-rw-r--r--perl-install/unused/migrate-ugtk2-to-mygtk2.pl2
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')
}
}
}