Re: Info-insert-dir

[martin rudalics]

> complete.el does not seem to use call-process,
> at least not that I can see.

`PC-expand-many-files' has this

  (with-current-buffer (generate-new-buffer " *Glob Output*")
    (erase-buffer)
    (when (and (file-name-absolute-p name)
               (not (file-directory-p default-directory)))
      ;; If the current working directory doesn't exist `shell-command'
      ;; signals an error.  So if the file names we're looking for don't
      ;; depend on the working directory, switch to a valid directory first.
      (setq default-directory "/"))
    (shell-command (concat "echo " name) t)

which should be OK (`with-temp-buffer' would be probably simpler).

> man.el has handled it in a different way, but it is ot clear that it
> has handled the job completely.  Would you like to check?

- The first two calls are OK:

(defun Man-init-defvars ()
  ...
  (let ((default-directory "/"))
           ...
           ((eq 0 (call-process Man-sed-command nil nil nil 
Man-sysv-sed-script))
           ...
           ((eq 0 (call-process Man-sed-command nil nil nil 
Man-berkeley-sed-script))
           ...

- The next is handled by `with-temp-buffer':

(defun Man-support-local-filenames ()
          ...
          (with-temp-buffer
            (and (equal (condition-case nil
                            (call-process manual-program nil t nil "--help")
                          (error nil))
                 ...

- The final ones should be OK too:

(defun Man-getpage-in-background (topic)
      ...
      (let ((process-environment (copy-sequence process-environment))
            ...
            ;; Avoid possible error by using a directory that always exists.
            (default-directory
              (if (and (file-directory-p default-directory)
                       (not (find-file-name-handler default-directory
                                                    'file-directory-p)))
                  default-directory
                "/")))
             ...
             (start-process manual-program buffer
                 ...
                 (call-process shell-file-name nil (list buffer nil) nil
                 ...