summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTim Landscheidt <tim@tim-landscheidt.de>2018-02-05 15:36:09 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-02-05 15:36:09 +0100
commit38bf7561d04647efd32ac4c6d13cc7612bbafde7 (patch)
treea43191bea129c6af57ca4a01a44a09c15d5f4812
parentdb6da387ae5f0a3a72ccb290c8576bb95b2e7a21 (diff)
downloadorg-mode-38bf7561d04647efd32ac4c6d13cc7612bbafde7.tar.gz
Remove obsolete mk/list-hooks.pl
* mk/list-hooks.pl: Remove. The functionality of mk/list-hooks.pl has been implemented by mk/eldo.el.
-rwxr-xr-xmk/list-hooks.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/mk/list-hooks.pl b/mk/list-hooks.pl
deleted file mode 100755
index ffacd7c..0000000
--- a/mk/list-hooks.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/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";
- }
- }
-}