diff options
author | Tim Landscheidt <tim@tim-landscheidt.de> | 2018-02-05 15:36:09 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-02-05 15:36:09 +0100 |
commit | 38bf7561d04647efd32ac4c6d13cc7612bbafde7 (patch) | |
tree | a43191bea129c6af57ca4a01a44a09c15d5f4812 | |
parent | db6da387ae5f0a3a72ccb290c8576bb95b2e7a21 (diff) | |
download | org-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-x | mk/list-hooks.pl | 32 |
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"; - } - } -} |