Mercurial > emacs
comparison lisp/eshell/em-glob.el @ 85953:9e350f92b40d
David Hansen <david.hansen at gmx.net>
(eshell-extended-glob): Sort matches.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 07 Nov 2007 03:56:57 +0000 |
parents | a1e8300d3c55 |
children | 456092c61f93 |
comparison
equal
deleted
inserted
replaced
85952:9bb0a271c2eb | 85953:9e350f92b40d |
---|---|
256 (eshell-glob-entries (file-name-as-directory (car paths)) | 256 (eshell-glob-entries (file-name-as-directory (car paths)) |
257 (cdr paths)) | 257 (cdr paths)) |
258 (eshell-glob-entries (file-name-as-directory ".") paths)) | 258 (eshell-glob-entries (file-name-as-directory ".") paths)) |
259 (if message-shown | 259 (if message-shown |
260 (message nil))) | 260 (message nil))) |
261 (or (and matches (nreverse matches)) | 261 (or (and matches (sort matches #'string<)) |
262 (if eshell-error-if-no-glob | 262 (if eshell-error-if-no-glob |
263 (error "No matches found: %s" glob) | 263 (error "No matches found: %s" glob) |
264 glob)))) | 264 glob)))) |
265 | 265 |
266 (eval-when-compile | 266 (eval-when-compile |