From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Maybe we can improve this function call-process-to-string? Date: Thu, 08 Apr 2021 10:40:17 +0300 Message-ID: Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="24902"; mail-complaints-to="usenet@ciao.gmane.io" To: Help GNU Emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Apr 08 09:41:32 2021 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1lUPIC-0006Ow-10 for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 08 Apr 2021 09:41:32 +0200 Original-Received: from localhost ([::1]:57734 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lUPIB-0008Gc-1x for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 08 Apr 2021 03:41:31 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:34368) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lUPHn-0008FI-50 for help-gnu-emacs@gnu.org; Thu, 08 Apr 2021 03:41:07 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:48657) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lUPHk-0003Mf-UW for help-gnu-emacs@gnu.org; Thu, 08 Apr 2021 03:41:06 -0400 Original-Received: from localhost ([::ffff:41.210.159.189]) (AUTH: PLAIN securesender, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 000000000001DF34.00000000606EB36E.00004722; Thu, 08 Apr 2021 00:40:29 -0700 Received-SPF: pass client-ip=217.170.207.13; envelope-from=support1@rcdrun.com; helo=stw1.rcdrun.com X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:128895 Archived-At: Hello, There is function `shell-command-to-string' which is very handy. But when there are problems with quoting it is better to use `call-process'. Yet there is no function `call-process-to-string', which I have made as below. Maybe people can tell me how to improve this function? (defun call-process-to-string (program &optional infile display &rest args) (let* ((buffer-name "Output") (buffer (generate-new-buffer buffer-name)) (status (apply #'call-process program infile buffer display args)) (current-buffer (current-buffer)) (output (if status (progn (switch-to-buffer buffer) (buffer-string)) ""))) (switch-to-buffer current-buffer) output)) (call-process-to-string "identify" nil nil "/home/data1/protected/2021-03-27-10:02:52.png") Is there maybe some other function that can give me string from buffer? Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns Sign an open letter in support of Richard M. Stallman https://rms-support-letter.github.io/