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) |