[Emacs-diffs] Changes to emacs/lisp/eshell/esh-ext.el

[John Wiegley]

Index: emacs/lisp/eshell/esh-ext.el
diff -c emacs/lisp/eshell/esh-ext.el:1.8 emacs/lisp/eshell/esh-ext.el:1.9
*** emacs/lisp/eshell/esh-ext.el:1.8    Sun Jul 15 15:53:53 2001
--- emacs/lisp/eshell/esh-ext.el        Sat Feb 16 01:43:43 2002
***************
*** 212,218 ****
                                        default-directory)))
           (find-file-name-handler default-directory
                                   'shell-command))))
!     (if handler
        (eshell-remote-command handler command args))
      (let ((interp (eshell-find-interpreter command)))
        (assert interp)
--- 212,220 ----
                                        default-directory)))
           (find-file-name-handler default-directory
                                   'shell-command))))
!     (if (and handler
!            (not (and (eshell-under-xemacs-p)
!                      (eq handler 'dired-handler-fn))))
        (eshell-remote-command handler command args))
      (let ((interp (eshell-find-interpreter command)))
        (assert interp)
***************
*** 258,264 ****
             (file-regular-p file))
        (with-temp-buffer
          (insert-file-contents-literally file nil 0 maxlen)
!         (if (looking-at "#!\\([^ \t\n]+\\)\\([ \t]+\\(.+\\)\\)?")
              (if (match-string 3)
                  (list (match-string 1)
                        (match-string 3)
--- 260,266 ----
             (file-regular-p file))
        (with-temp-buffer
          (insert-file-contents-literally file nil 0 maxlen)
!         (if (looking-at "#![ \t]*\\([^ \t\n]+\\)\\([ \t]+\\(.+\\)\\)?")
              (if (match-string 3)
                  (list (match-string 1)
                        (match-string 3)