*** complete.el	2006-03-06 21:07:38.000000000 +0100
--- complete.el	2006-03-06 21:06:33.000000000 +0100
***************
*** 1,7 ****
  ;;; complete.el --- partial completion mechanism plus other goodies
  
  ;; Copyright (C) 1990, 1991, 1992, 1993, 1999, 2000, 2002, 2003, 2004,
! ;;   2005 Free Software Foundation, Inc.
  
  ;; Author: Dave Gillespie <daveg@synaptics.com>
  ;; Keywords: abbrev convenience
--- 1,7 ----
  ;;; complete.el --- partial completion mechanism plus other goodies
  
  ;; Copyright (C) 1990, 1991, 1992, 1993, 1999, 2000, 2002, 2003, 2004,
! ;;   2005, 2006 Free Software Foundation, Inc.
  
  ;; Author: Dave Gillespie <daveg@synaptics.com>
  ;; Keywords: abbrev convenience
***************
*** 767,783 ****
    (save-excursion
      (set-buffer (generate-new-buffer " *Glob Output*"))
      (erase-buffer)
!     (shell-command (concat "echo " name) t)
      (goto-char (point-min))
!     (if (looking-at ".*No match")
  	nil
        (insert "(\"")
!       (while (search-forward " " nil t)
  	(delete-backward-char 1)
  	(insert "\" \""))
!       (goto-char (point-max))
!       (delete-backward-char 1)
!       (insert "\")")
        (goto-char (point-min))
        (let ((files (read (current-buffer))) (p nil))
  	(kill-buffer (current-buffer))
--- 767,783 ----
    (save-excursion
      (set-buffer (generate-new-buffer " *Glob Output*"))
      (erase-buffer)
!     (shell-command (concat "for f in " name "; do test -e \"$f\" && echo \"$f\"; done") t)
      (goto-char (point-min))
!     (if (looking-at "\\($\\|.*No match\\)")
  	nil
        (insert "(\"")
!       (setq goal-column 0)
!       (while (= (forward-line 1) 0)
  	(delete-backward-char 1)
  	(insert "\" \""))
!       (delete-backward-char 2)
!       (insert ")")
        (goto-char (point-min))
        (let ((files (read (current-buffer))) (p nil))
  	(kill-buffer (current-buffer))