aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorGlenn Morris2008-11-06 03:56:27 +0000
committerGlenn Morris2008-11-06 03:56:27 +0000
commitc108d549d4145e5c8294fde34ba9fa22654b7167 (patch)
tree5d388776a7141375b90be6668ff185973742a2e5 /lisp/eshell
parente8fee30c4f5ca621344982e771ea51445c09b2c8 (diff)
downloademacs-c108d549d4145e5c8294fde34ba9fa22654b7167.tar.gz
emacs-c108d549d4145e5c8294fde34ba9fa22654b7167.zip
Remove unused file.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-maint.el142
1 files changed, 0 insertions, 142 deletions
diff --git a/lisp/eshell/esh-maint.el b/lisp/eshell/esh-maint.el
deleted file mode 100644
index e2f1d3892dd..00000000000
--- a/lisp/eshell/esh-maint.el
+++ /dev/null
@@ -1,142 +0,0 @@
1;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*-
2
3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
4;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5
6;; Author: John Wiegley <johnw@gnu.org>
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software: you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation, either version 3 of the License, or
13;; (at your option) any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22
23;;; Commentary:
24
25;;; Code:
26
27;; This cannot be moved to the end of the file without causing a
28;; recursive require during bootstrap.
29(provide 'esh-maint)
30
31(and (fboundp 'font-lock-add-keywords)
32 (font-lock-add-keywords
33 'emacs-lisp-mode
34 '(("(eshell-for\\>" . font-lock-keyword-face)
35 ("(eshell-deftest\\>" . font-lock-keyword-face)
36 ("(eshell-condition-case\\>" . font-lock-keyword-face))))
37
38(require 'pcomplete nil t) ; why?
39
40(eval-when-compile
41 (require 'cl)
42 (setq cl-optimize-speed 9))
43
44;; (defun eshell-generate-autoloads ()
45;; (interactive)
46;; (require 'autoload)
47;; (setq generated-autoload-file
48;; (expand-file-name (car command-line-args-left)))
49;; (setq command-line-args-left (cdr command-line-args-left))
50;; (batch-update-autoloads))
51
52(require 'eshell)
53(require 'esh-mode) ; brings in eshell-util
54(require 'esh-opt)
55(require 'esh-test)
56
57;; (defun eshell-generate-main-menu ()
58;; "Create the main menu for the eshell documentation."
59;; (insert "@menu
60;; * The Emacs shell:: eshell.
61
62;; Core Functionality\n")
63;; (eshell-for module
64;; (sort (eshell-subgroups 'eshell)
65;; (function
66;; (lambda (a b)
67;; (string-lessp (symbol-name a)
68;; (symbol-name b)))))
69;; (insert (format "* %-34s"
70;; (concat (get module 'custom-tag) "::"))
71;; (symbol-name module) ".\n"))
72;; (insert "\nOptional Functionality\n")
73;; (eshell-for module
74;; (sort (eshell-subgroups 'eshell-module)
75;; (function
76;; (lambda (a b)
77;; (string-lessp (symbol-name a)
78;; (symbol-name b)))))
79;; (insert (format "* %-34s"
80;; (concat (get module 'custom-tag) "::"))
81;; (symbol-name module) ".\n"))
82;; (insert "@end menu\n"))
83
84;; (defun eshell-make-texi ()
85;; "Make the eshell.texi file."
86;; (interactive)
87;; (require 'eshell-auto)
88;; (require 'texidoc)
89;; (require 'pcomplete)
90;; (apply 'texidoc-files 'eshell-generate-main-menu "eshell.doci"
91;; (append
92;; (list "eshell.el")
93;; (sort (mapcar
94;; (function
95;; (lambda (sym)
96;; (let ((name (symbol-name sym)))
97;; (if (string-match "\\`eshell-\\(.*\\)" name)
98;; (setq name (concat "esh-" (match-string 1 name))))
99;; (concat name ".el"))))
100;; (eshell-subgroups 'eshell))
101;; 'string-lessp)
102;; (sort (mapcar
103;; (function
104;; (lambda (sym)
105;; (let ((name (symbol-name sym)))
106;; (if (string-match "\\`eshell-\\(.*\\)" name)
107;; (setq name (concat "em-" (match-string 1 name))))
108;; (concat name ".el"))))
109;; (eshell-subgroups 'eshell-module))
110;; 'string-lessp)
111;; (list "eshell.texi"))))
112
113;; (defun eshell-make-readme ()
114;; "Make the README file from eshell.el."
115;; (interactive)
116;; (require 'eshell-auto)
117;; (require 'texidoc)
118;; (require 'pcomplete)
119;; (texidoc-files nil "eshell.doci" "eshell.el" "README.texi")
120;; (set-buffer (get-buffer "README.texi"))
121;; (goto-char (point-min))
122;; (search-forward "@chapter")
123;; (beginning-of-line)
124;; (forward-line -1)
125;; (kill-line 2)
126;; (re-search-forward "^@section User Options")
127;; (beginning-of-line)
128;; (delete-region (point) (point-max))
129;; (insert "@bye\n")
130;; (save-buffer)
131;; (with-temp-buffer
132;; (call-process "makeinfo" nil t nil "--no-headers" "README.texi")
133;; (goto-char (point-min))
134;; (search-forward "The Emacs Shell")
135;; (beginning-of-line)
136;; (delete-region (point-min) (point))
137;; (write-file "README"))
138;; (delete-file "README.texi")
139;; (kill-buffer "README.texi"))
140
141;; arch-tag: 662089b6-78ec-48c5-b94f-d212279e8902
142;;; esh-maint.el ends here