Mercurial > emacs

comparison lisp/eshell/em-xtra.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 09:51:45 +0000
parents f55f9811f5d7 05b2a3908507
children 606f2d163a64
comparison
equal deleted inserted replaced
91203:db40129142b2 91204:53108e6cea98
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