Mercurial > emacs

comparison lisp/eshell/em-ls.el @ 87069:592ff64540d2

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:01:37 +0000
parents a1e8300d3c55
children 107ccd98fa12 53108e6cea98
comparison
equal deleted inserted replaced
87068:27cfd1655fb2 87069:592ff64540d2
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-ls) 25 ;;; Commentary:
26 26
27 (eval-when-compile (require 'esh-maint)) 27 ;; Most of the command switches recognized by GNU's ls utility are
28 ;; supported ([(fileutils)ls invocation]).
29
30 ;;; Code:
31
32 (eval-when-compile (require 'eshell))
33 (require 'esh-util)
34 (require 'esh-opt)
28 35
29 (defgroup eshell-ls nil 36 (defgroup eshell-ls nil
30 "This module implements the \"ls\" utility fully in Lisp. If it is 37 "This module implements the \"ls\" utility fully in Lisp. If it is
31 passed any unrecognized command switches, it will revert to the 38 passed any unrecognized command switches, it will revert to the
32 operating system's version. This version of \"ls\" uses text 39 operating system's version. This version of \"ls\" uses text
33 properties to colorize its output based on the setting of 40 properties to colorize its output based on the setting of
34 `eshell-ls-use-colors'." 41 `eshell-ls-use-colors'."
35 :tag "Implementation of `ls' in Lisp" 42 :tag "Implementation of `ls' in Lisp"
36 :group 'eshell-module) 43 :group 'eshell-module)
37
38 ;;; Commentary:
39
40 ;; Most of the command switches recognized by GNU's ls utility are
41 ;; supported ([(fileutils)ls invocation]).
42
43 (require 'esh-util)
44 (require 'esh-opt)
45 44
46 ;;; User Variables: 45 ;;; User Variables:
47 46
48 (defvar eshell-ls-orig-insert-directory 47 (defvar eshell-ls-orig-insert-directory
49 (symbol-function 'insert-directory) 48 (symbol-function 'insert-directory)
920 (add-text-properties 0 (length (car file)) 919 (add-text-properties 0 (length (car file))
921 (list 'face face) 920 (list 'face face)
922 (car file))))) 921 (car file)))))
923 (car file)) 922 (car file))
924 923
925 ;;; Code: 924 (provide 'em-ls)
926 925
927 ;;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb 926 ;;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb
928 ;;; em-ls.el ends here 927 ;;; em-ls.el ends here