From xemacs-m  Tue Jul  8 03:03:55 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA19021
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 03:03:54 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id BAA04736;
	Tue, 8 Jul 1997 01:06:44 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH] Re: comint-dynamic-complete
References: <199707080346.EAA06834@cerise.sensei.co.uk> 	<kigoh8ep445.fsf@jagor.srce.hr> <199707080530.GAA07157@cerise.sensei.co.uk>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
In-Reply-To: Glynn Clements's message of "Tue, 8 Jul 1997 06:30:44 +0100"
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 08 Jul 1997 01:06:43 -0700
Message-ID: <m2soxq0xyk.fsf_-_@altair.xemacs.org>
Lines: 38
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

Glynn Clements <glynn@sensei.co.uk> writes:

>> > In shell mode, if I enter
>> > 
>> > 	grep ^foo filena
>> > 
>> > and hit TAB, I get a `not found' error, and everything from the ^
>> > onwards is replaced with the previous command from the history.

This is not a new problem.  A possible work around is to quote the
caret.

1997-07-08  Steven L Baur  <steve@altair.xemacs.org>

	* comint/comint.el (comint-replace-by-expanded-history): Change
	buggy history test regexp.
	From Simon Marshall  <simon@spiff.gnu.ai.mit.edu> (Emacs/Mule zeta)

Index: lisp/comint/comint.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/comint/comint.el,v
retrieving revision 1.9
diff -u -r1.9 comint.el
--- comint.el	1997/07/07 00:52:30	1.9
+++ comint.el	1997/07/08 08:02:52
@@ -1103,7 +1103,7 @@
 Returns t if successful."
   (interactive)
   (if (and comint-input-autoexpand
-	   (string-match "[!^]" (funcall comint-get-old-input))
+	   (string-match "!\\|^\\^" (funcall comint-get-old-input))
 	   (save-excursion (beginning-of-line)
 			   (looking-at comint-prompt-regexp)))
       ;; Looks like there might be history references in the command.

-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

