From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: Info-insert-dir Date: Thu, 22 Mar 2007 08:19:53 +0100 Message-ID: <46022E19.803@gmx.at> References: <45FAF396.1030504@gmx.at> <45FD35C4.7060207@gmx.at> <45FE5CDD.3010909@gmx.at> <45FFAFE7.2010702@gmx.at> <4600E0F8.4020507@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1174547977 32529 80.91.229.12 (22 Mar 2007 07:19:37 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 22 Mar 2007 07:19:37 +0000 (UTC) Cc: emacs-devel@gnu.org To: rms@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Mar 22 08:19:30 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HUHa4-00040q-GH for ged-emacs-devel@m.gmane.org; Thu, 22 Mar 2007 08:19:28 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HUHbp-000351-BD for ged-emacs-devel@m.gmane.org; Thu, 22 Mar 2007 02:21:17 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HUHbl-00030q-Lm for emacs-devel@gnu.org; Thu, 22 Mar 2007 03:21:13 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HUHbj-0002xV-Uy for emacs-devel@gnu.org; Thu, 22 Mar 2007 03:21:13 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HUHbj-0002xM-Rf for emacs-devel@gnu.org; Thu, 22 Mar 2007 02:21:11 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1HUHZx-0005T1-LD for emacs-devel@gnu.org; Thu, 22 Mar 2007 03:19:21 -0400 Original-Received: (qmail invoked by alias); 22 Mar 2007 07:19:19 -0000 Original-Received: from N727P005.adsl.highway.telekom.at (EHLO [62.47.34.197]) [62.47.34.197] by mail.gmx.net (mp050) with SMTP; 22 Mar 2007 08:19:19 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1/r1ZpPggvrscf+u4ppXebzM2pYX9Urw+IgvBNRaY IvyJUl7Q/uqsFy User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en In-Reply-To: X-Y-GMX-Trusted: 0 X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:68280 Archived-At: > 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 ...