masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 03:13:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ls-lisp: Drop eshell dependencies

Browse source 
Use 'file-expand-wildcards' instead of 'eshell-extended-glob' to
expand the wildcards.
Suggested by Fabrice Popineau in:
https://lists.gnu.org/archive/html/emacs-devel/2017-08/msg00108.html
* lisp/ls-lisp.el (ls-lisp--dired): Use file-expand-wildcards.
This commit is contained in:
Tino Calancha 2017-08-05 00:53:48 +09:00
parent d32d8d0cea
commit 929c60603c
1 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ls-lisp.el
View file

@ -479,14 +479,6 @@ not contain `d', so that a full listing is expected."
(message "%s: doesn't exist or is inaccessible" file)
(ding) (sit-for 2))))) ; to show user the message!
;; We cannot require 'em-glob' in the top of the file:
;; ls-lisp is compiled before than eshell, and esh-groups.el
;; wouldn't be created yet. If we require 'em-glob' inside
;; `ls-lisp--dired', then this function cannot be called
;; before eshell is compiled.
;; So instead we add an autoload call here.
;; (https://lists.gnu.org/archive/html/emacs-devel/2017-07/msg01083.html).
(autoload 'eshell-extended-glob "em-glob")
(declare-function dired-read-dir-and-switches "dired" (str))
(declare-function dired-goto-next-file "dired" ())
@ -499,7 +491,7 @@ not contain `d', so that a full listing is expected."
(if (not dir-wildcard)
(funcall orig-fun dir-or-list switches)
(let* ((default-directory (car dir-wildcard))
(files (eshell-extended-glob (cdr dir-wildcard)))
(files (file-expand-wildcards (cdr dir-wildcard)))
(dir (car dir-wildcard)))
(if files
(let ((inhibit-read-only t)