Mercurial > emacs
comparison lisp/eshell/esh-maint.el @ 33020:e21feeab77fb
See ChangeLog
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Sun, 29 Oct 2000 05:18:48 +0000 |
| parents | 8e57189d61b4 |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 33019:6306740f6938 | 33020:e21feeab77fb |
|---|---|
| 46 | 46 |
| 47 ;; (defun eshell-generate-autoloads () | 47 ;; (defun eshell-generate-autoloads () |
| 48 ;; (interactive) | 48 ;; (interactive) |
| 49 ;; (require 'autoload) | 49 ;; (require 'autoload) |
| 50 ;; (setq generated-autoload-file | 50 ;; (setq generated-autoload-file |
| 51 ;; (expand-file-name (car command-line-args-left))) | 51 ;; (expand-file-name (car command-line-args-left))) |
| 52 ;; (setq command-line-args-left (cdr command-line-args-left)) | 52 ;; (setq command-line-args-left (cdr command-line-args-left)) |
| 53 ;; (batch-update-autoloads)) | 53 ;; (batch-update-autoloads)) |
| 54 | 54 |
| 55 (require 'eshell) | 55 (require 'eshell) |
| 56 (require 'esh-mode) ; brings in eshell-util | 56 (require 'esh-mode) ; brings in eshell-util |
| 63 ;; * The Emacs shell:: eshell. | 63 ;; * The Emacs shell:: eshell. |
| 64 | 64 |
| 65 ;; Core Functionality\n") | 65 ;; Core Functionality\n") |
| 66 ;; (eshell-for module | 66 ;; (eshell-for module |
| 67 ;; (sort (eshell-subgroups 'eshell) | 67 ;; (sort (eshell-subgroups 'eshell) |
| 68 ;; (function | 68 ;; (function |
| 69 ;; (lambda (a b) | 69 ;; (lambda (a b) |
| 70 ;; (string-lessp (symbol-name a) | 70 ;; (string-lessp (symbol-name a) |
| 71 ;; (symbol-name b))))) | 71 ;; (symbol-name b))))) |
| 72 ;; (insert (format "* %-34s" | 72 ;; (insert (format "* %-34s" |
| 73 ;; (concat (get module 'custom-tag) "::")) | 73 ;; (concat (get module 'custom-tag) "::")) |
| 74 ;; (symbol-name module) ".\n")) | 74 ;; (symbol-name module) ".\n")) |
| 75 ;; (insert "\nOptional Functionality\n") | 75 ;; (insert "\nOptional Functionality\n") |
| 76 ;; (eshell-for module | 76 ;; (eshell-for module |
| 77 ;; (sort (eshell-subgroups 'eshell-module) | 77 ;; (sort (eshell-subgroups 'eshell-module) |
| 78 ;; (function | 78 ;; (function |
| 79 ;; (lambda (a b) | 79 ;; (lambda (a b) |
| 80 ;; (string-lessp (symbol-name a) | 80 ;; (string-lessp (symbol-name a) |
| 81 ;; (symbol-name b))))) | 81 ;; (symbol-name b))))) |
| 82 ;; (insert (format "* %-34s" | 82 ;; (insert (format "* %-34s" |
| 83 ;; (concat (get module 'custom-tag) "::")) | 83 ;; (concat (get module 'custom-tag) "::")) |
| 84 ;; (symbol-name module) ".\n")) | 84 ;; (symbol-name module) ".\n")) |
| 85 ;; (insert "@end menu\n")) | 85 ;; (insert "@end menu\n")) |
| 86 | 86 |
| 87 ;; (defun eshell-make-texi () | 87 ;; (defun eshell-make-texi () |
| 88 ;; "Make the eshell.texi file." | 88 ;; "Make the eshell.texi file." |
| 89 ;; (interactive) | 89 ;; (interactive) |
| 90 ;; (require 'eshell-auto) | 90 ;; (require 'eshell-auto) |
| 91 ;; (require 'texidoc) | 91 ;; (require 'texidoc) |
| 92 ;; (require 'pcomplete) | 92 ;; (require 'pcomplete) |
| 93 ;; (apply 'texidoc-files 'eshell-generate-main-menu "eshell.doci" | 93 ;; (apply 'texidoc-files 'eshell-generate-main-menu "eshell.doci" |
| 94 ;; (append | 94 ;; (append |
| 95 ;; (list "eshell.el") | 95 ;; (list "eshell.el") |
| 96 ;; (sort (mapcar | 96 ;; (sort (mapcar |
| 97 ;; (function | 97 ;; (function |
| 98 ;; (lambda (sym) | 98 ;; (lambda (sym) |
| 99 ;; (let ((name (symbol-name sym))) | 99 ;; (let ((name (symbol-name sym))) |
| 100 ;; (if (string-match "\\`eshell-\\(.*\\)" name) | 100 ;; (if (string-match "\\`eshell-\\(.*\\)" name) |
| 101 ;; (setq name (concat "esh-" (match-string 1 name)))) | 101 ;; (setq name (concat "esh-" (match-string 1 name)))) |
| 102 ;; (concat name ".el")))) | 102 ;; (concat name ".el")))) |
| 103 ;; (eshell-subgroups 'eshell)) | 103 ;; (eshell-subgroups 'eshell)) |
| 104 ;; 'string-lessp) | 104 ;; 'string-lessp) |
| 105 ;; (sort (mapcar | 105 ;; (sort (mapcar |
| 106 ;; (function | 106 ;; (function |
| 107 ;; (lambda (sym) | 107 ;; (lambda (sym) |
| 108 ;; (let ((name (symbol-name sym))) | 108 ;; (let ((name (symbol-name sym))) |
| 109 ;; (if (string-match "\\`eshell-\\(.*\\)" name) | 109 ;; (if (string-match "\\`eshell-\\(.*\\)" name) |
| 110 ;; (setq name (concat "em-" (match-string 1 name)))) | 110 ;; (setq name (concat "em-" (match-string 1 name)))) |
| 111 ;; (concat name ".el")))) | 111 ;; (concat name ".el")))) |
| 112 ;; (eshell-subgroups 'eshell-module)) | 112 ;; (eshell-subgroups 'eshell-module)) |
| 113 ;; 'string-lessp) | 113 ;; 'string-lessp) |
| 114 ;; (list "eshell.texi")))) | 114 ;; (list "eshell.texi")))) |
| 115 | 115 |
| 116 ;; (defun eshell-make-readme () | 116 ;; (defun eshell-make-readme () |
| 117 ;; "Make the README file from eshell.el." | 117 ;; "Make the README file from eshell.el." |
| 118 ;; (interactive) | 118 ;; (interactive) |
| 119 ;; (require 'eshell-auto) | 119 ;; (require 'eshell-auto) |