Show
Ignore:
Timestamp:
08/06/05 09:04:04 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/eshell/em-ls.el

    r3756 r3799  
    11;;; em-ls.el --- implementation of ls in Lisp 
    22 
    3 ;; Copyright (C) 1999, 2000, 2005 Free Software Foundation 
     3;; Copyright (C) 1999, 2000, 2002, 2003, 2004, 
     4;;   2005 Free Software Foundation, Inc. 
    45 
    56;; Author: John Wiegley <johnw@gnu.org> 
    …… 
    1920;; You should have received a copy of the GNU General Public License 
    2021;; along with GNU Emacs; see the file COPYING.  If not, write to the 
    21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
    22 ;; Boston, MA 02111-1307, USA. 
     22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
     23;; Boston, MA 02110-1301, USA. 
    2324 
    2425(provide 'em-ls) 
    …… 
    6566 
    6667(defcustom eshell-ls-dired-initial-args nil 
    67   "*If non-nil, args is included before any call to `ls' in dired. 
     68  "*If non-nil, args is included before any call to `ls' in Dired. 
    6869This is useful for enabling human-readable format (-h), for example." 
    6970  :type '(repeat :tag "Arguments" string) 
    …… 
    7172 
    7273(defcustom eshell-ls-use-in-dired nil 
    73   "*If non-nil, use `eshell-ls' to read directories in dired." 
     74  "*If non-nil, use `eshell-ls' to read directories in Dired." 
    7475  :set (lambda (symbol value) 
    7576         (if value 
    …… 
    159160  '((((class color) (background light)) (:foreground "Red" :weight bold)) 
    160161    (((class color) (background dark)) (:foreground "Red" :weight bold))) 
    161   "*The face used for highlighting non-existant file names." 
     162  "*The face used for highlighting non-existent file names." 
    162163  :group 'eshell-ls) 
    163164;; backward-compatibility alias 
    …… 
    864865 
    865866(defun eshell-ls-decorated-name (file) 
    866   "Return FILE, possibly decorated. 
    867 Use TRUENAME for predicate tests, if passed." 
     867  "Return FILE, possibly decorated." 
    868868  (if eshell-ls-use-colors 
    869869      (let ((face