/[emacs]/emacs/lisp/eshell/em-ls.el
ViewVC logotype

Diff of /emacs/lisp/eshell/em-ls.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by ttn, Mon Aug 1 15:04:33 2005 UTC revision 1.23 by johnw, Tue Nov 1 07:03:20 2005 UTC
# Line 279  instead." Line 279  instead."
279        (if (stringp switches)        (if (stringp switches)
280            (setq switches (split-string switches)))            (setq switches (split-string switches)))
281        (let (eshell-current-handles        (let (eshell-current-handles
282              eshell-current-subjob-p)              eshell-current-subjob-p
283                font-lock-mode)
284          ;; use the fancy highlighting in `eshell-ls' rather than font-lock          ;; use the fancy highlighting in `eshell-ls' rather than font-lock
285          (when (and eshell-ls-use-colors          (when (and eshell-ls-use-colors
286                     (featurep 'font-lock))                     (featurep 'font-lock))
# Line 320  instead." Line 321  instead."
321    (defvar show-recursive)    (defvar show-recursive)
322    (defvar show-size)    (defvar show-size)
323    (defvar sort-method)    (defvar sort-method)
324    (defvar ange-cache))    (defvar ange-cache)
325      (defvar dired-flag))
326    
327  (defun eshell-do-ls (&rest args)  (defun eshell-do-ls (&rest args)
328    "Implementation of \"ls\" in Lisp, passing ARGS."    "Implementation of \"ls\" in Lisp, passing ARGS."
# Line 333  instead." Line 335  instead."
335     `((?a "all" nil show-all     `((?a "all" nil show-all
336           "show all files in directory")           "show all files in directory")
337       (?c nil by-ctime sort-method       (?c nil by-ctime sort-method
338           "sort by modification time")           "sort by last status change time")
339       (?d "directory" nil dir-literal       (?d "directory" nil dir-literal
340           "list directory entries instead of contents")           "list directory entries instead of contents")
341       (?k "kilobytes" 1024 block-size       (?k "kilobytes" 1024 block-size
# Line 372  instead." Line 374  instead."
374           "sort alphabetically by entry extension")           "sort alphabetically by entry extension")
375       (?1 nil single-column listing-style       (?1 nil single-column listing-style
376           "list one file per line")           "list one file per line")
377         (nil "dired" nil dired-flag
378              "Here for compatibility with GNU ls.")
379       (nil "help" nil nil       (nil "help" nil nil
380            "show this usage display")            "show this usage display")
381       :external "ls"       :external "ls"

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26