From: Glenn Morris Date: Thu, 6 Nov 2008 03:56:27 +0000 (+0000) Subject: Remove unused file. X-Git-Tag: emacs-pretest-23.0.90~1947 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c108d549d4145e5c8294fde34ba9fa22654b7167;p=emacs.git Remove unused file. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5423f02046f..1d1bb0a3f74 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2008-11-06 Glenn Morris + * eshell/esh-maint.el: Remove unused file. + + * progmodes/cc-defs.el (cl-macroexpand-all): Declare. + * cus-edit.el (custom-comment-tag): Doc fix. (custom-comment, custom-variable-value-create, custom-face): Use face names sans -face suffix rather than aliases. 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 @@ -;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*- - -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. - -;; Author: John Wiegley - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;;; Code: - -;; This cannot be moved to the end of the file without causing a -;; recursive require during bootstrap. -(provide 'esh-maint) - -(and (fboundp 'font-lock-add-keywords) - (font-lock-add-keywords - 'emacs-lisp-mode - '(("(eshell-for\\>" . font-lock-keyword-face) - ("(eshell-deftest\\>" . font-lock-keyword-face) - ("(eshell-condition-case\\>" . font-lock-keyword-face)))) - -(require 'pcomplete nil t) ; why? - -(eval-when-compile - (require 'cl) - (setq cl-optimize-speed 9)) - -;; (defun eshell-generate-autoloads () -;; (interactive) -;; (require 'autoload) -;; (setq generated-autoload-file -;; (expand-file-name (car command-line-args-left))) -;; (setq command-line-args-left (cdr command-line-args-left)) -;; (batch-update-autoloads)) - -(require 'eshell) -(require 'esh-mode) ; brings in eshell-util -(require 'esh-opt) -(require 'esh-test) - -;; (defun eshell-generate-main-menu () -;; "Create the main menu for the eshell documentation." -;; (insert "@menu -;; * The Emacs shell:: eshell. - -;; Core Functionality\n") -;; (eshell-for module -;; (sort (eshell-subgroups 'eshell) -;; (function -;; (lambda (a b) -;; (string-lessp (symbol-name a) -;; (symbol-name b))))) -;; (insert (format "* %-34s" -;; (concat (get module 'custom-tag) "::")) -;; (symbol-name module) ".\n")) -;; (insert "\nOptional Functionality\n") -;; (eshell-for module -;; (sort (eshell-subgroups 'eshell-module) -;; (function -;; (lambda (a b) -;; (string-lessp (symbol-name a) -;; (symbol-name b))))) -;; (insert (format "* %-34s" -;; (concat (get module 'custom-tag) "::")) -;; (symbol-name module) ".\n")) -;; (insert "@end menu\n")) - -;; (defun eshell-make-texi () -;; "Make the eshell.texi file." -;; (interactive) -;; (require 'eshell-auto) -;; (require 'texidoc) -;; (require 'pcomplete) -;; (apply 'texidoc-files 'eshell-generate-main-menu "eshell.doci" -;; (append -;; (list "eshell.el") -;; (sort (mapcar -;; (function -;; (lambda (sym) -;; (let ((name (symbol-name sym))) -;; (if (string-match "\\`eshell-\\(.*\\)" name) -;; (setq name (concat "esh-" (match-string 1 name)))) -;; (concat name ".el")))) -;; (eshell-subgroups 'eshell)) -;; 'string-lessp) -;; (sort (mapcar -;; (function -;; (lambda (sym) -;; (let ((name (symbol-name sym))) -;; (if (string-match "\\`eshell-\\(.*\\)" name) -;; (setq name (concat "em-" (match-string 1 name)))) -;; (concat name ".el")))) -;; (eshell-subgroups 'eshell-module)) -;; 'string-lessp) -;; (list "eshell.texi")))) - -;; (defun eshell-make-readme () -;; "Make the README file from eshell.el." -;; (interactive) -;; (require 'eshell-auto) -;; (require 'texidoc) -;; (require 'pcomplete) -;; (texidoc-files nil "eshell.doci" "eshell.el" "README.texi") -;; (set-buffer (get-buffer "README.texi")) -;; (goto-char (point-min)) -;; (search-forward "@chapter") -;; (beginning-of-line) -;; (forward-line -1) -;; (kill-line 2) -;; (re-search-forward "^@section User Options") -;; (beginning-of-line) -;; (delete-region (point) (point-max)) -;; (insert "@bye\n") -;; (save-buffer) -;; (with-temp-buffer -;; (call-process "makeinfo" nil t nil "--no-headers" "README.texi") -;; (goto-char (point-min)) -;; (search-forward "The Emacs Shell") -;; (beginning-of-line) -;; (delete-region (point-min) (point)) -;; (write-file "README")) -;; (delete-file "README.texi") -;; (kill-buffer "README.texi")) - -;; arch-tag: 662089b6-78ec-48c5-b94f-d212279e8902 -;;; esh-maint.el ends here