Re: display-completion-list should not strip text properties

[Richard Stallman]

    ! (defvar grep-find-use-xargs
    !   (if (equal (call-process "find" nil nil nil
    !                      grep-null-device "-print0")
    !        0)
    !       'gnu)
    !   "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 `compile.el' is loaded
    ! by influencing the default value for the variable `grep-find-command'.")

    Ditto.  The current doc string is 50% similar to Kevin's work.

Can someone rewrite that?

      ;; Setting process-setup-function makes exit-message-function work
      ;; even when async processes aren't supported.
      (let* ((compilation-process-setup-function 'grep-process-setup)
             (buf (compile-internal (concat command-args " " grep-null-device)
                                    "No more grep hits" "grep"
                                    ;; Give it a simpler regexp to match.
                                    nil grep-regexp-alist)))))


I think we're ok with that much.