[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.261 
emacs/lisp/progmodes/compile.el:1.262
*** emacs/lisp/progmodes/compile.el:1.261       Mon Oct  7 18:48:47 2002
--- emacs/lisp/progmodes/compile.el     Mon Oct 28 02:29:35 2002
***************
*** 632,638 ****
  (defvar grep-find-use-xargs nil
    "Whether \\[grep-find] uses the `xargs' utility by default.
  
! If nil, it uses `grep -exec'; if `gnu', it uses `find -print0' and `xargs -0';
  if not nil and not `gnu', it uses `find -print' and `xargs'.
  
  This variable's value takes effect when `grep-compute-defaults' is called.")
--- 632,638 ----
  (defvar grep-find-use-xargs nil
    "Whether \\[grep-find] uses the `xargs' utility by default.
  
! If nil, it uses `find -exec'; if `gnu', it uses `find -print0' and `xargs -0';
  if not nil and not `gnu', it uses `find -print' and `xargs'.
  
  This variable's value takes effect when `grep-compute-defaults' is called.")
***************
*** 922,928 ****
                           (if (stringp subdirs)
                               subdirs
                             (mapconcat 'identity subdirs " "))
!                        nil)  ;; we change default-directory to dir 
                       (and grep-tree-ignore-CVS-directories "-path '*/CVS' 
-prune -o ")
                       grep-tree-ignore-case))
        (default-directory dir)
--- 922,928 ----
                           (if (stringp subdirs)
                               subdirs
                             (mapconcat 'identity subdirs " "))
!                        nil)  ;; we change default-directory to dir
                       (and grep-tree-ignore-CVS-directories "-path '*/CVS' 
-prune -o ")
                       grep-tree-ignore-case))
        (default-directory dir)
***************
*** 948,956 ****
  If current buffer is in Compilation mode for the same mode name
  return the name of the current buffer, so that it gets reused.
  Otherwise, construct a buffer name from MODE-NAME."
!   (cond (name-function 
         (funcall name-function mode-name))
!       (compilation-buffer-name-function 
         (funcall compilation-buffer-name-function mode-name))
        ((and (eq major-mode 'compilation-mode)
              (equal mode-name (nth 2 compilation-arguments)))
--- 948,956 ----
  If current buffer is in Compilation mode for the same mode name
  return the name of the current buffer, so that it gets reused.
  Otherwise, construct a buffer name from MODE-NAME."
!   (cond (name-function
         (funcall name-function mode-name))
!       (compilation-buffer-name-function
         (funcall compilation-buffer-name-function mode-name))
        ((and (eq major-mode 'compilation-mode)
              (equal mode-name (nth 2 compilation-arguments)))