mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 12:18:35 +00:00
* Makefile: Include default.mk and targets.mk from mk/ where they've been moved to. * README_maintainer: Rename utils to make throughout. * doc/Makefile: Rename utils to make throughout. * doc/org.texi: Remove reference to utils/, x11idle.c is now in contrib/scripts. * mk/make_emacs_changelog: Add mk/ to list of directories not to be reported in Emacs' ChangeLog. Also retain utils/ and re-add UTILITIES; add a comment explaining why these need to stay. * mk/default.mk: Rename utils to make throughout. Include version.mk from mk/ where it's been moved to. * mk/targets.mk: Rename utils to make throughout. * mk/server.mk: Rename utils to make throughout. Only put those files from mk/ into the archives that are needed outside the server: default.mk targets.mk version.mk and org-fixup.el. * lisp/org-compat.el: Rename utils to make throughout. * .gitignore: Rename utils to make throughout.
33 lines
811 B
Perl
Executable file
33 lines
811 B
Perl
Executable file
#!/usr/bin/perl
|
|
@files = glob("lisp/org-*.el");
|
|
unshift @files,"lisp/org.el";
|
|
|
|
print "* Hooks and Function variables\n\n";
|
|
|
|
foreach $file (@files) {
|
|
($file1 = $file) =~ s|.*/||;
|
|
open IN,"<$file" or die "Cannot open file $file\n";
|
|
while (<IN>) {
|
|
if (/^\((defvar|defcustom)\s+(org-.*?-(hook|functions?)\b)/) {
|
|
$deftype = $1;
|
|
$name = $2;
|
|
$_=<IN> while (not m/^\s*"/);
|
|
$doc = $_;
|
|
while (not m/(?<!\\)"\)?\s*$/) {
|
|
$_=<IN>;
|
|
$doc .=$_;
|
|
}
|
|
$doc =~ s/\A\s*"//;
|
|
$doc =~ s/"\)?\s*\Z//;
|
|
print "** =$name=\n";
|
|
print "Defined in: /$file1/\n";
|
|
print "#+begin_example\n";
|
|
@lines = split(/\n/,$doc);
|
|
@lines = map { $_ = " " . $_ } @lines;
|
|
$doc = join("\n",@lines);
|
|
print "$doc\n";
|
|
print "#+end_example\n";
|
|
}
|
|
}
|
|
}
|