From: Kevin R. <ke...@ro...> - 2003-03-23 03:45:07
|
Below is a simple patch relative to CVS HEAD that fixes the input cmd when a previous history number is entered. --=20 Kevin Rosenberg | .''`. ** Debian GNU/Linux ** http://b9.com/debian.html | : :' : The universal GPG signed and encrypted | `. `' Operating System messages accepted. | `- http://www.debian.org/ Index: sb-aclrepl.lisp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/sb-aclrepl.lisp,v retrieving revision 1.2 diff -u -r1.2 sb-aclrepl.lisp --- sb-aclrepl.lisp 7 Mar 2003 15:14:59 -0000 1.2 +++ sb-aclrepl.lisp 23 Mar 2003 03:42:27 -0000 @@ -77,7 +77,12 @@ (string-trim-whitespace (subseq line first-space-pos)) ""))) (if (numberp (read-from-string cmd-string)) - (get-history (read-from-string cmd-string)) + (let ((cmd (get-history (read-from-string cmd-string)))) + (when cmd + (make-user-cmd :func (user-cmd-func cmd) + :input (user-cmd-input cmd) + :args (user-cmd-args cmd) + :hnum *cmd-number*))) (let ((cmd-entry (find-cmd cmd-string))) (if cmd-entry (make-user-cmd :func (cmd-table-entry-func cmd-entry) |