<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Ivan Shvedunov wrote:
<blockquote
cite="mid:4d93c5bf0810301320l70a1b0b9vd4c253bbddb9a3f8@mail.gmail.com"
type="cite">
<pre wrap="">On Thu, Oct 30, 2008 at 11:02 AM, Helmut Eller <a class="moz-txt-link-rfc2396E" href="mailto:heller@common-lisp.net"><heller@common-lisp.net></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">Patch applied.
</pre>
</blockquote>
<pre wrap=""><!---->
Thanks.
</pre>
<blockquote type="cite">
<blockquote type="cite">
<pre wrap=""> Another patch attached to this message makes SLIME REPL usable in
Paredit mode by using the part of input between its start and (point)
as history search pattern. I've sent a patch doing that long time ago,
it was applied but later accidentally (as I understood it after asking
on #lisp) reverted. I forgot about it for a while and just kept
changes in my copy of SLIME, but now I decided to share them again.
</pre>
</blockquote>
<pre wrap="">I committed this with some modifications. It's still a mystery to me
how this patch can affect paredit mode.
</pre>
</blockquote>
<pre wrap=""><!---->
Well, it affects paredit mode in REPL buffer. Paredit automagically
inserts ')' after you type '('. So if you typed '(lo' you will have
'(lo)' at your REPL prompt with point before the closing paren and
when you press M-p to find previous '(loop ...)' expression you typed
before, nothing will be found unless the portion between start of
input and point is used, unless of course you typed exactly '(lo)'
before.
</pre>
</blockquote>
How I fixed that in my slime.el is that I added t to
slime-repl-current-input<br>
<br>
===================================<br>
file: slime.el<br>
<br>
<tt>(defun slime-repl-history-pattern (&optional use-current-input)<br>
"Return the regexp for the navigation commands."<br>
(cond ((slime-repl-history-search-in-progress-p)<br>
slime-repl-history-pattern)<br>
(use-current-input<br>
- (let ((str (slime-repl-current-input)))<br>
+ (let ((str (slime-repl-current-input t)))<br>
(cond ((string-match "^[ \n]*$" str) nil)<br>
(t (concat "^" (regexp-quote str))))))<br>
(t nil)))<br>
</tt><br>
<pre class="moz-signature" cols="72">--
Konsulent, Fri Programvare / Free Software Consultant
Cell: +47 - 473 44 008
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Nydalsveien 30 B, 0484 Oslo
Web: <a class="moz-txt-link-abbreviated" href="http://www.freecode.no">www.freecode.no</a>
"It seems that I know that I know. What I'd like to see,
Is the I that knows me, When I know that I know that I know."
</pre>
</body>
</html>