mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Require esh-util.

Browse source 
(eshell-glob-initialize): Don't assume
eshell-special-chars-outside-quoting is available.
This commit is contained in:
Stefan Monnier 2002-11-07 23:00:32 +00:00
parent 1ddad36ec0
commit 6d736b085c
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/eshell/em-glob.el
View file

@ -21,9 +21,12 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Code:
(provide 'em-glob)
(eval-when-compile (require 'esh-maint))
(require 'esh-util)
(defgroup eshell-glob nil
"This module provides extended globbing syntax, similar what is used
@ -128,8 +131,9 @@ This option slows down recursive glob processing by quite a bit."
(defun eshell-glob-initialize ()
"Initialize the extended globbing code."
;; it's important that `eshell-glob-chars-list' come first
(when (boundp 'eshell-special-chars-outside-quoting)
(set (make-local-variable 'eshell-special-chars-outside-quoting)
(append eshell-glob-chars-list eshell-special-chars-outside-quoting))
(append eshell-glob-chars-list eshell-special-chars-outside-quoting)))
(set (make-local-variable 'eshell-glob-chars-regexp)
(format "[%s]+" (apply 'string eshell-glob-chars-list)))
(add-hook 'eshell-parse-argument-hook 'eshell-parse-glob-chars t t)
@ -353,6 +357,4 @@ resulting regular expression."
(eshell-glob-entries (car rdirs) globs recurse-p)
(setq rdirs (cdr rdirs)))))
;;; Code:
;;; em-glob.el ends here