From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Markus Triska Newsgroups: gmane.emacs.devel,gmane.emacs.pretest.bugs Subject: Re: 23.0.60; Input history and simplifications for ps-mode.el Date: Thu, 05 Jun 2008 01:22:37 +0200 Message-ID: References: <20080604190808.3116E8BB048@mt-computer.local> <87ej7corb5.fsf@stupidchicken.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1212621814 13586 80.91.229.12 (4 Jun 2008 23:23:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 4 Jun 2008 23:23:34 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org To: Chong Yidong Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Jun 05 01:24:15 2008 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 1K42KV-0000Ry-Cn for ged-emacs-devel@m.gmane.org; Thu, 05 Jun 2008 01:23:43 +0200 Original-Received: from localhost ([127.0.0.1]:44234 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1K42Ji-0001XK-6t for ged-emacs-devel@m.gmane.org; Wed, 04 Jun 2008 19:22:54 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1K42Jd-0001X3-Hs for emacs-devel@gnu.org; Wed, 04 Jun 2008 19:22:49 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1K42Jc-0001Wj-4c for emacs-devel@gnu.org; Wed, 04 Jun 2008 19:22:49 -0400 Original-Received: from [199.232.76.173] (port=54819 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1K42Jb-0001Wg-V2 for emacs-devel@gnu.org; Wed, 04 Jun 2008 19:22:47 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]:60645) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1K42Jb-00040S-RO for emacs-devel@gnu.org; Wed, 04 Jun 2008 19:22:47 -0400 Original-Received: from mx10.gnu.org ([199.232.76.166]:51655) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1K42Hm-0007fw-1R for emacs-pretest-bug@gnu.org; Wed, 04 Jun 2008 19:20:54 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1K42JZ-0003zh-1I for emacs-pretest-bug@gnu.org; Wed, 04 Jun 2008 19:22:47 -0400 Original-Received: from mail.gmx.net ([213.165.64.20]:53854) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1K42JY-0003zN-6y for emacs-pretest-bug@gnu.org; Wed, 04 Jun 2008 19:22:44 -0400 Original-Received: (qmail invoked by alias); 04 Jun 2008 23:22:41 -0000 Original-Received: from chello062178240212.3.14.tuwien.teleweb.at (EHLO mt-computer.local) [62.178.240.212] by mail.gmx.net (mp010) with SMTP; 05 Jun 2008 01:22:41 +0200 X-Authenticated: #4064391 X-Provags-ID: V01U2FsdGVkX1/PtFo3VCvP9OYI6Zic9KhxeGkrbANwcPck0/PWam SItpHL3L/wZDEO Original-Received: by mt-computer.local (Postfix, from userid 502) id 63CBE8BDA29; Thu, 5 Jun 2008 01:22:38 +0200 (CEST) In-Reply-To: <87ej7corb5.fsf@stupidchicken.com> (Chong Yidong's message of "Wed, 04 Jun 2008 16:53:18 -0400") X-Y-GMX-Trusted: 0 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-detected-kernel: by monty-python.gnu.org: 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:98434 gmane.emacs.pretest.bugs:22556 Archived-At: On top of the previous patch, please apply the following to make it work correctly if the command has additional parameters: diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 9cd9019..9eff050 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -1023,7 +1023,7 @@ This mode is invoked from `ps-mode' and should not be called directly. (erase-buffer) (setq command (append command init-file)) (insert (mapconcat 'identity command " ") "\n") - (apply 'make-comint "ps-run" command) + (apply 'make-comint "ps-run" (car command) nil (cdr command)) (with-current-buffer "*ps-run*" (use-local-map ps-run-mode-map) (setq comint-prompt-regexp ps-run-prompt))