Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c108d549
Commit
c108d549
authored
Nov 06, 2008
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove unused file.
parent
e8fee30c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
142 deletions
+4
-142
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/eshell/esh-maint.el
lisp/eshell/esh-maint.el
+0
-142
No files found.
lisp/ChangeLog
View file @
c108d549
2008-11-06 Glenn Morris <rgm@gnu.org>
* 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.
...
...
lisp/eshell/esh-maint.el
deleted
100644 → 0
View file @
e8fee30c
;;; 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 <johnw@gnu.org>
;; 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 <http://www.gnu.org/licenses/>.
;;; 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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment