Mercurial > emacs
comparison lisp/eshell/em-xtra.el @ 91204:53108e6cea98
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 |