Include vim/emacs modelines in generated files to open them

in read-only mode. Make vi modelines compatible with non-vim
vi versions.

p4raw-id: //depot/perl@24445

61 files changed, 183 insertions, 108 deletions

diff --git a/av.c b/av.c
index a03387c4e5..d3f17af3de 100644
--- a/av.c
+++ b/av.c
@@ -945,5 +945,5 @@ Perl_av_exists(pTHX_ AV *av, I32 key)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/bytecode.pl b/bytecode.pl
index aa0e02723d..d8ce8edc94 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -22,7 +22,8 @@ while (($from, $tos) = each %alias_to) {
 }
 
 my $c_header = <<'EOT';
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -195,6 +196,8 @@ print BYTERUN_C <<'EOT';
     }
     return 0;
 }
+
+/* ex: set ro: */
 EOT
 
 #
@@ -251,6 +254,8 @@ for ($i = 0; $i < @optype - 1; $i++) {
 }
 printf BYTERUN_H "    OPt_%s\t\t/* %d */\n};\n\n", $optype[$i], $i;
 
+print BYTERUN_H "/* ex: set ro: */\n";
+
 #
 # Finish off insn_data and create array initialisers in Asmdata.pm
 #
@@ -326,6 +331,8 @@ or '&PL_sv_undef').
 Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
 
 =cut
+
+# ex: set ro:
 EOT
 
 
diff --git a/deb.c b/deb.c
index 7788dc119a..8696bce0b4 100644
--- a/deb.c
+++ b/deb.c
@@ -300,5 +300,5 @@ Perl_deb_stack_all(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/doio.c b/doio.c
index d3b27c7927..224f72d64f 100644
--- a/doio.c
+++ b/doio.c
@@ -2451,5 +2451,5 @@ Perl_start_glob (pTHX_ SV *tmpglob, IO *io)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/doop.c b/doop.c
index 9a0eac498e..22160aff63 100644
--- a/doop.c
+++ b/doop.c
@@ -1419,5 +1419,5 @@ Perl_do_kv(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/dump.c b/dump.c
index af0b5e1013..8e40bde99e 100644
--- a/dump.c
+++ b/dump.c
@@ -1693,5 +1693,5 @@ Perl_debprofdump(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/embed.h b/embed.h
index efa138fd06..f2102c3b8d 100644
--- a/embed.h
+++ b/embed.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    embed.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -4054,3 +4055,4 @@
 #  define Perl_sv_setpvf_mg_nocontext	Perl_sv_setpvf_mg
 #endif
 
+/* ex: set ro: */
diff --git a/embed.pl b/embed.pl
index 9cdef0782a..fd4a91718f 100755
--- a/embed.pl
+++ b/embed.pl
@@ -24,6 +24,7 @@ sub do_not_edit ($)
     $years =~ s/1999,/1999,\n  / if length $years > 40;
 
     my $warning = <<EOW;
+ -*- buffer-read-only: t -*-
 
    $file
 
@@ -79,7 +80,7 @@ sub walk_table (&@) {
 	$F = $filename;
     }
     else {
-	safer_unlink $filename;
+	safer_unlink $filename if $filename ne '/dev/null';
 	open F, ">$filename" or die "Can't open $filename: $!";
 	binmode F;
 	$F = \*F;
@@ -120,7 +121,7 @@ sub munge_c_files () {
 	if (@_ > 1) {
 	    $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
 	}
-    } '/dev/null', '';
+    } '/dev/null', '', '';
     local $^I = '.bak';
     while (<>) {
 #	if (/^#\s*include\s+"perl.h"/) {
@@ -250,8 +251,8 @@ sub write_global_sym {
     $ret;
 }
 
-walk_table(\&write_protos,     "proto.h", undef);
-walk_table(\&write_global_sym, "global.sym", undef);
+walk_table(\&write_protos,     "proto.h", undef, "/* ex: set ro: */\n");
+walk_table(\&write_global_sym, "global.sym", undef, "# ex: set ro:\n");
 
 # XXX others that may need adding
 #       warnhook
@@ -601,6 +602,7 @@ print EM <<'END';
 #  define Perl_sv_setpvf_mg_nocontext	Perl_sv_setpvf_mg
 #endif
 
+/* ex: set ro: */
 END
 
 close(EM) or die "Error closing EM: $!";
@@ -710,6 +712,8 @@ for $sym (sort @extvars) {
 print EM <<'END';
 
 #endif /* PERL_POLLUTE */
+
+/* ex: set ro: */
 END
 
 close(EM) or die "Error closing EM: $!";
@@ -829,6 +833,7 @@ print CAPIH <<'EOT';
 
 #endif /* __perlapi_h__ */
 
+/* ex: set ro: */
 EOT
 close CAPIH or die "Error closing CAPIH: $!";
 
@@ -905,6 +910,8 @@ unsigned char** Perl_Gfold_locale_ptr(pTHX) {
 END_EXTERN_C
 
 #endif /* MULTIPLICITY */
+
+/* ex: set ro: */
 EOT
 
 close(CAPI) or die "Error closing CAPI: $!";
diff --git a/embedvar.h b/embedvar.h
index dad8a80db0..631a2457f1 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    embedvar.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -1020,3 +1021,5 @@
 #define tainting		PL_tainting
 
 #endif /* PERL_POLLUTE */
+
+/* ex: set ro: */
diff --git a/ext/B/B/Asmdata.pm b/ext/B/B/Asmdata.pm
index 7ee1bfecdf..8c07b22f63 100644
--- a/ext/B/B/Asmdata.pm
+++ b/ext/B/B/Asmdata.pm
@@ -1,3 +1,4 @@
+# -#- buffer-read-only: t -#-
 #
 #      Copyright (c) 1996-1999 Malcolm Beattie
 #
@@ -246,3 +247,5 @@ or '&PL_sv_undef').
 Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
 
 =cut
+
+# ex: set ro:
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c
index a30a6e4e25..75fe0b3702 100644
--- a/ext/ByteLoader/byterun.c
+++ b/ext/ByteLoader/byterun.c
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -1136,3 +1137,5 @@ byterun(pTHX_ register struct byteloader_state *bstate)
     }
     return 0;
 }
+
+/* ex: set ro: */
diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h
index 334abe6d55..d47c62cf30 100644
--- a/ext/ByteLoader/byterun.h
+++ b/ext/ByteLoader/byterun.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
@@ -198,3 +199,4 @@ enum {
     OPt_COP		/* 10 */
 };
 
+/* ex: set ro: */
diff --git a/global.sym b/global.sym
index b953ce7a7f..d1cfb99e45 100644
--- a/global.sym
+++ b/global.sym
@@ -1,3 +1,4 @@
+#  -*- buffer-read-only: t -*-
 #
 #    global.sym
 #
@@ -677,3 +678,4 @@ Perl_hv_scalar
 Perl_gv_fetchpvn_flags
 Perl_gv_fetchsv
 Perl_savesvpv
+# ex: set ro:
diff --git a/globals.c b/globals.c
index 8f382bb4ec..afb3f25158 100644
--- a/globals.c
+++ b/globals.c
@@ -61,5 +61,5 @@ Perl_printf_nocontext(const char *format, ...)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/gv.c b/gv.c
index fe8280e4bd..7d3eccbf9d 100644
--- a/gv.c
+++ b/gv.c
@@ -1997,5 +1997,5 @@ Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/hv.c b/hv.c
index ddaaaf7850..f7c3761864 100644
--- a/hv.c
+++ b/hv.c
@@ -2205,5 +2205,5 @@ Perl_hv_assert(pTHX_ HV *hv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/keywords.h b/keywords.h
index 654bc7672c..3af51b8c9d 100644
--- a/keywords.h
+++ b/keywords.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    keywords.h
  *
  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
@@ -258,3 +259,5 @@
 #define KEY_x			244
 #define KEY_xor			245
 #define KEY_y			246
+
+/* ex: set ro: */
diff --git a/keywords.pl b/keywords.pl
index b4b048b08a..fe745d470b 100755
--- a/keywords.pl
+++ b/keywords.pl
@@ -7,7 +7,8 @@ binmode KW;
 select KW;
 
 print <<EOM;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    keywords.h
  *
  *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
@@ -33,6 +34,8 @@ while (<DATA>) {
     print &tab(5, "#define KEY_$keyword"), $keynum++, "\n";
 }
 
+print KW "\n/* ex: set ro: */\n";
+
 close KW or die "Error closing keywords.h: $!";
 
 ###########################################################################
diff --git a/lib/warnings.pm b/lib/warnings.pm
index 635993bbd8..5fe108d83e 100644
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -1,4 +1,4 @@
-
+# -*- buffer-read-only: t -*-
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 # This file was created by warnings.pl
 # Any changes made here will be lost.
@@ -498,3 +498,4 @@ sub warnif
 }
 
 1;
+# ex: set ro:
diff --git a/locale.c b/locale.c
index 526a56855b..5282146f66 100644
--- a/locale.c
+++ b/locale.c
@@ -627,5 +627,5 @@ Perl_mem_collxfrm(pTHX_ const char *s, STRLEN len, STRLEN *xlen)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/malloc.c b/malloc.c
index 3731fc26b7..f5c82b8cc3 100644
--- a/malloc.c
+++ b/malloc.c
@@ -2581,5 +2581,5 @@ Perl_sbrk(int size)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/mg.c b/mg.c
index 58301f81b1..754cb4b57e 100644
--- a/mg.c
+++ b/mg.c
@@ -2705,5 +2705,5 @@ unwind_handler_stack(pTHX_ const void *p)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/miniperlmain.c b/miniperlmain.c
index 48993cdc8a..bb49f5b88f 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -133,5 +133,5 @@ xs_init(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/numeric.c b/numeric.c
index 6f962837f5..c467825c9b 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1026,5 +1026,5 @@ Perl_my_frexpl(long double x, int *e) {
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/op.c b/op.c
index 08f1689255..909973dcbd 100644
--- a/op.c
+++ b/op.c
@@ -7146,5 +7146,5 @@ const_sv_xsub(pTHX_ CV* cv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/opcode.h b/opcode.h
index 8c851570c4..1a4c5077ff 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opcode.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -752,7 +753,6 @@ END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
 
-
 START_EXTERN_C
 
 #ifdef PERL_GLOBAL_STRUCT_INIT
@@ -1854,3 +1854,4 @@ EXT const U32 PL_opargs[] = {
 END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
+/* ex: set ro: */
diff --git a/opcode.pl b/opcode.pl
index bda960d4ac..9e8d323f91 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -37,7 +37,8 @@ while (<DATA>) {
 
 $i = 0;
 print <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opcode.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -61,7 +62,8 @@ print <<"END";
 END
 
 print ON <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
@@ -136,7 +138,6 @@ print <<END;
 END_EXTERN_C
 
 #endif /* !PERL_GLOBAL_STRUCT_INIT */
-
 END
 
 # Emit function declarations.
@@ -300,6 +301,9 @@ if (keys %OP_IS_FILETEST) {
     print ON ")\n\n";
 }
 
+print OC "/* ex: set ro: */\n";
+print ON "/* ex: set ro: */\n";
+
 close OC or die "Error closing opcode.h: $!";
 close ON or die "Error closing opnames.h: $!";
 
@@ -318,7 +322,8 @@ open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!";
 binmode PPSYM;
 
 print PP <<"END";
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by opcode.pl from its data.  Any changes made here
    will be lost!
 */
@@ -326,6 +331,7 @@ print PP <<"END";
 END
 
 print PPSYM <<"END";
+# -*- buffer-read-only: t -*-
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 #   This file is built by opcode.pl from its data.  Any changes made here
@@ -349,6 +355,8 @@ for (@ops) {
     print PP "PERL_PPDEF(Perl_pp_$_)\n";
     print PPSYM "Perl_pp_$_\n";
 }
+print PP "\n/* ex: set ro: */\n";
+print PPSYM "\n# ex: set ro:\n";
 
 close PP or die "Error closing pp_proto.h: $!";
 close PPSYM or die "Error closing pp.sym: $!";
diff --git a/opnames.h b/opnames.h
index 0f1e98f4b1..ba6a26b03f 100644
--- a/opnames.h
+++ b/opnames.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
@@ -420,3 +421,4 @@ typedef enum opcode {
 	 (op) == OP_FTTTY || \
 	 (op) == OP_FTZERO)
 
+/* ex: set ro: */
diff --git a/pad.c b/pad.c
index 408514beca..0473f9af4e 100644
--- a/pad.c
+++ b/pad.c
@@ -1622,5 +1622,5 @@ Perl_pad_compname_type(pTHX_ const PADOFFSET po)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/perl.c b/perl.c
index b11bc34532..4937c2a441 100644
--- a/perl.c
+++ b/perl.c
@@ -4866,5 +4866,5 @@ read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/perlapi.c b/perlapi.c
index b1ed782f38..a131598471 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    perlapi.c
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -92,3 +93,5 @@ unsigned char** Perl_Gfold_locale_ptr(pTHX) {
 END_EXTERN_C
 
 #endif /* MULTIPLICITY */
+
+/* ex: set ro: */
diff --git a/perlapi.h b/perlapi.h
index 662ecdfbc0..2ff02e5349 100644
--- a/perlapi.h
+++ b/perlapi.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    perlapi.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -1004,3 +1005,4 @@ END_EXTERN_C
 
 #endif /* __perlapi_h__ */
 
+/* ex: set ro: */
diff --git a/perlio.c b/perlio.c
index a619636097..69186cee04 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5048,5 +5048,5 @@ PerlIO_sprintf(char *s, int n, const char *fmt, ...)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/perly.c b/perly.c
index 12c8443056..6b9e376625 100644
--- a/perly.c
+++ b/perly.c
@@ -706,5 +706,5 @@ Perl_yyparse (pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp.c b/pp.c
index 3b4c65fecc..60301fc2c9 100644
--- a/pp.c
+++ b/pp.c
@@ -4834,5 +4834,5 @@ PP(pp_threadsv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp.sym b/pp.sym
index 00d4e7eef3..19be260b70 100644
--- a/pp.sym
+++ b/pp.sym
@@ -1,3 +1,4 @@
+# -*- buffer-read-only: t -*-
 #
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 #   This file is built by opcode.pl from its data.  Any changes made here
@@ -393,3 +394,5 @@ Perl_pp_setstate
 Perl_pp_method_named
 Perl_pp_dor
 Perl_pp_dorassign
+
+# ex: set ro:
diff --git a/pp_ctl.c b/pp_ctl.c
index 5780a81c5f..d1be0ec1b5 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3946,5 +3946,5 @@ S_path_is_absolute(pTHX_ const char *name)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp_hot.c b/pp_hot.c
index e75b482279..1d1a792b57 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3130,5 +3130,5 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp_pack.c b/pp_pack.c
index 34b18fefbd..d4731a2eac 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -3625,5 +3625,5 @@ PP(pp_pack)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp_proto.h b/pp_proto.h
index 2f457c37fd..dddb013eeb 100644
--- a/pp_proto.h
+++ b/pp_proto.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by opcode.pl from its data.  Any changes made here
    will be lost!
 */
@@ -394,3 +395,5 @@ PERL_PPDEF(Perl_pp_setstate)
 PERL_PPDEF(Perl_pp_method_named)
 PERL_PPDEF(Perl_pp_dor)
 PERL_PPDEF(Perl_pp_dorassign)
+
+/* ex: set ro: */
diff --git a/pp_sort.c b/pp_sort.c
index f14e1a874a..6d7565042f 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1927,5 +1927,5 @@ amagic_cmp_locale(pTHX_ register SV *str1, register SV *str2)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/pp_sys.c b/pp_sys.c
index 28cc6feb12..a75b87c23e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -5883,5 +5883,5 @@ lockf_emulate_flock(int fd, int operation)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/proto.h b/proto.h
index ca7cbdf2ba..766d27b331 100644
--- a/proto.h
+++ b/proto.h
@@ -1,4 +1,5 @@
-/*
+/*  -*- buffer-read-only: t -*-
+ *
  *    proto.h
  *
  *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
@@ -2168,3 +2169,4 @@ PERL_CALLCONV bool	Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags);
 PERL_CALLCONV char*	Perl_savesvpv(pTHX_ SV* sv);
 
 END_EXTERN_C
+/* ex: set ro: */
diff --git a/reentr.c b/reentr.c
index 3aeb5a5329..a085b711af 100644
--- a/reentr.c
+++ b/reentr.c
@@ -1,7 +1,8 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.c
  *
- *    Copyright (C) 2002, 2003, by Larry Wall and others
+ *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -536,3 +537,4 @@ Perl_reentrant_retry(const char *f, ...)
     return retptr;
 }
 
+/* ex: set ro: */
diff --git a/reentr.h b/reentr.h
index fda1802056..6c356c0e0c 100644
--- a/reentr.h
+++ b/reentr.h
@@ -1,4 +1,5 @@
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.h
  *
  *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
@@ -11,7 +12,7 @@
  */
 
 #ifndef REENTR_H
-#define REENTR_H 
+#define REENTR_H
 
 #ifdef USE_REENTRANT_API
  
@@ -1424,3 +1425,4 @@ typedef struct {
  
 #endif
 
+/* ex: set ro: */
diff --git a/reentr.pl b/reentr.pl
index cd6998990c..ea98498495 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -38,7 +38,8 @@ my %map = (
 die "reentr.h: $!" unless open(H, ">reentr.h");
 select H;
 print <<EOF;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.h
  *
  *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
@@ -51,7 +52,7 @@ print <<EOF;
  */
 
 #ifndef REENTR_H
-#define REENTR_H 
+#define REENTR_H
 
 #ifdef USE_REENTRANT_API
  
@@ -751,6 +752,7 @@ typedef struct {
  
 #endif
 
+/* ex: set ro: */
 EOF
 
 close(H);
@@ -760,10 +762,11 @@ close(H);
 die "reentr.c: $!" unless open(C, ">reentr.c");
 select C;
 print <<EOF;
-/*
+/* -*- buffer-read-only: t -*-
+ *
  *    reentr.c
  *
- *    Copyright (C) 2002, 2003, by Larry Wall and others
+ *    Copyright (C) 2002, 2003, 2005 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1042,6 +1045,7 @@ Perl_reentrant_retry(const char *f, ...)
     return retptr;
 }
 
+/* ex: set ro: */
 EOF
 
 __DATA__
diff --git a/regcomp.c b/regcomp.c
index 73ca9197ab..86c165fe85 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6386,5 +6386,5 @@ clear_re(pTHX_ void *r)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/regcomp.pl b/regcomp.pl
index 97403ba7d4..e7a9d0588c 100644
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -25,7 +25,8 @@ open OUT, ">$tmp_h";
 binmode OUT;
 
 print OUT <<EOP;
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
 */
@@ -115,6 +116,7 @@ static const int reg_num = $tot;
 #endif /* DEBUGGING */
 #endif /* REG_COMP_C */
 
+/* ex: set ro: */
 EOP
 
 close OUT or die "close $tmp_h: $!";
diff --git a/regexec.c b/regexec.c
index 182be28216..1e1d18be43 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4970,5 +4970,5 @@ S_to_byte_substr(pTHX_ register regexp *prog)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/regnodes.h b/regnodes.h
index 0a1111f3c4..85595448c3 100644
--- a/regnodes.h
+++ b/regnodes.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by regcomp.pl from regcomp.sym.
    Any changes made here will be lost!
 */
@@ -353,3 +354,4 @@ static const int reg_num = 65;
 #endif /* DEBUGGING */
 #endif /* REG_COMP_C */
 
+/* ex: set ro: */
diff --git a/run.c b/run.c
index 0b868abb1c..95bc6760b1 100644
--- a/run.c
+++ b/run.c
@@ -49,5 +49,5 @@ Perl_runops_standard(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/scope.c b/scope.c
index 8b3821e2ea..2108d18d9f 100644
--- a/scope.c
+++ b/scope.c
@@ -1161,5 +1161,5 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/sv.c b/sv.c
index ed509908ca..568f81b4e3 100644
--- a/sv.c
+++ b/sv.c
@@ -12489,5 +12489,5 @@ Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding,
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/taint.c b/taint.c
index eafd365db3..209efb3eec 100644
--- a/taint.c
+++ b/taint.c
@@ -175,5 +175,5 @@ Perl_taint_env(pTHX)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/toke.c b/toke.c
index 6d1576b269..72bedd9950 100644
--- a/toke.c
+++ b/toke.c
@@ -10998,5 +10998,5 @@ Perl_scan_vstring(pTHX_ const char *s, SV *sv)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/universal.c b/universal.c
index e79bdae02c..c26c835e38 100644
--- a/universal.c
+++ b/universal.c
@@ -958,5 +958,5 @@ XS(XS_Internals_HvREHASH)	/* Subject to change  */
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/utf8.c b/utf8.c
index af027b67cb..21e19ae208 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2037,5 +2037,5 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, char **pe1, register UV l1, bool u1, const
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/util.c b/util.c
index 03201dd513..ca4eb58dfe 100644
--- a/util.c
+++ b/util.c
@@ -4784,5 +4784,5 @@ Perl_free_global_struct(pTHX_ struct perl_vars *plvarsp)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */
diff --git a/warnings.h b/warnings.h
index 11efe1dc7e..178d1cf25c 100644
--- a/warnings.h
+++ b/warnings.h
@@ -1,4 +1,5 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by warnings.pl
    Any changes made here will be lost!
 */
@@ -162,4 +163,4 @@
 	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
 
 /* end of file warnings.h */
-
+/* ex: set ro: */
diff --git a/warnings.pl b/warnings.pl
index e7659b9374..e3c0403669 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -257,7 +257,8 @@ open(PM, ">lib/warnings.pm") || die "Can't create lib/warnings.pm: $!\n";
 binmode PM;
 
 print WARN <<'EOM' ;
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
    This file is built by warnings.pl
    Any changes made here will be lost!
 */
@@ -402,7 +403,7 @@ print WARN <<'EOM';
 	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
 
 /* end of file warnings.h */
-
+/* ex: set ro: */
 EOM
 
 close WARN ;
@@ -465,10 +466,11 @@ while (<DATA>) {
     print PM $_ ;
 }
 
+print PM "# ex: set ro:\n";
 close PM ;
 
 __END__
-
+# -*- buffer-read-only: t -*-
 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 # This file was created by warnings.pl
 # Any changes made here will be lost.
diff --git a/xsutils.c b/xsutils.c
index 84c9d7e044..5956ff2762 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -338,5 +338,5 @@ XS(XS_attributes__warn_reserved)
  * indent-tabs-mode: t
  * End:
  *
- * vim: ts=8 sts=4 sw=4 noet:
-*/
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */