From 38bf7561d04647efd32ac4c6d13cc7612bbafde7 Mon Sep 17 00:00:00 2001
From: Tim Landscheidt <tim@tim-landscheidt.de>
Date: Mon, 5 Feb 2018 15:36:09 +0100
Subject: [PATCH] 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.
---
 mk/list-hooks.pl | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100755 mk/list-hooks.pl

diff --git a/mk/list-hooks.pl b/mk/list-hooks.pl
deleted file mode 100755
index ffacd7c79..000000000
--- 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";
-    }
-  }
-}