Mercurial > emacs

comparison lisp/eshell/em-xtra.el @ 87077:05b2a3908507

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require individual files if needed when compiling, rather than esh-maint. Collect any require statements. Move provide statement to end. Move any commentary to start.
author Glenn Morris <rgm@gnu.org>
date Wed, 05 Dec 2007 07:03:18 +0000
parents a1e8300d3c55
children 107ccd98fa12 53108e6cea98
comparison
equal deleted inserted replaced
87076:9b97b187c7e2 87077:05b2a3908507
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA. 23 ;; Boston, MA 02110-1301, USA.
24 24
25 (provide 'em-xtra) 25 ;;; Commentary:
26 26
27 (eval-when-compile (require 'esh-maint)) 27 ;;; Code:
28
29 (eval-when-compile
30 (require 'eshell)
31 (require 'pcomplete))
32 (require 'compile)
28 33
29 (defgroup eshell-xtra nil 34 (defgroup eshell-xtra nil
30 "This module defines some extra alias functions which are entirely 35 "This module defines some extra alias functions which are entirely
31 optional. They can be viewed as samples for how to write Eshell alias 36 optional. They can be viewed as samples for how to write Eshell alias
32 functions, or as aliases which make some of Emacs' behavior more 37 functions, or as aliases which make some of Emacs' behavior more
33 naturally accessible within Emacs." 38 naturally accessible within Emacs."
34 :tag "Extra alias functions" 39 :tag "Extra alias functions"
35 :group 'eshell-module) 40 :group 'eshell-module)
36
37 ;;; Commentary:
38
39 (require 'compile)
40 41
41 ;;; Functions: 42 ;;; Functions:
42 43
43 (defun eshell/expr (&rest args) 44 (defun eshell/expr (&rest args)
44 "Implementation of expr, using the calc package." 45 "Implementation of expr, using the calc package."
115 (while (pcomplete-here 116 (while (pcomplete-here
116 (pcomplete-dirs-or-entries "\\.[iCc]\\([Pp][Pp]\\)?\\'")))) 117 (pcomplete-dirs-or-entries "\\.[iCc]\\([Pp][Pp]\\)?\\'"))))
117 118
118 (defalias 'pcomplete/bcc 'pcomplete/bcc32) 119 (defalias 'pcomplete/bcc 'pcomplete/bcc32)
119 120
120 ;;; Code: 121 (provide 'em-xtra)
121 122
122 ;;; arch-tag: f944cfda-a118-470c-a0d6-b41a3a5c99c7 123 ;;; arch-tag: f944cfda-a118-470c-a0d6-b41a3a5c99c7
123 ;;; em-xtra.el ends here 124 ;;; em-xtra.el ends here