[Emacs-diffs] Changes to emacs/lisp/find-dired.el

[Juanma Barranquero]

Index: emacs/lisp/find-dired.el
diff -c emacs/lisp/find-dired.el:1.43 emacs/lisp/find-dired.el:1.44
*** emacs/lisp/find-dired.el:1.43       Thu Nov 21 12:29:22 2002
--- emacs/lisp/find-dired.el    Tue Feb  4 06:19:14 2003
***************
*** 109,115 ****
                  (delete-process find))
              (error nil))
          (error "Cannot have two processes in `%s' at once" (buffer-name)))))
!       
      (widen)
      (kill-all-local-variables)
      (setq buffer-read-only nil)
--- 109,115 ----
                  (delete-process find))
              (error nil))
          (error "Cannot have two processes in `%s' at once" (buffer-name)))))
! 
      (widen)
      (kill-all-local-variables)
      (setq buffer-read-only nil)
***************
*** 134,140 ****
        ;; and later)
        (dired-simple-subdir-alist)
        ;; else we have an ancient tree dired (or classic dired, where
!       ;; this does no harm) 
        (set (make-local-variable 'dired-subdir-alist)
           (list (cons default-directory (point-min-marker)))))
      (setq buffer-read-only nil)
--- 134,140 ----
        ;; and later)
        (dired-simple-subdir-alist)
        ;; else we have an ancient tree dired (or classic dired, where
!       ;; this does no harm)
        (set (make-local-variable 'dired-subdir-alist)
           (list (cons default-directory (point-min-marker)))))
      (setq buffer-read-only nil)
***************
*** 142,148 ****
      ;; subdir-alist points there.
      (insert "  " dir ":\n")
      ;; Make second line a ``find'' line in analogy to the ``total'' or
!     ;; ``wildcard'' line. 
      (insert "  " args "\n")
      ;; Start the find process.
      (let ((proc (start-process-shell-command find-dired-find-program 
(current-buffer) args)))
--- 142,148 ----
      ;; subdir-alist points there.
      (insert "  " dir ":\n")
      ;; Make second line a ``find'' line in analogy to the ``total'' or
!     ;; ``wildcard'' line.
      (insert "  " args "\n")
      ;; Start the find process.
      (let ((proc (start-process-shell-command find-dired-find-program 
(current-buffer) args)))