2007-08-23 Mike Sperber <mike(a)xemacs.org>
* cmuscheme.el (run-scheme): Fix argument-processing bug from
2007-03-27 patch.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
Index: cmuscheme.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/cmuscheme.el,v
retrieving revision 1.4
diff -u -r1.4 cmuscheme.el
--- cmuscheme.el 27 Mar 2007 10:03:40 -0000 1.4
+++ cmuscheme.el 23 Aug 2007 07:02:22 -0000
@@ -210,11 +210,11 @@
(interactive (list (if current-prefix-arg
(read-string "Run Scheme: " scheme-program-name)
scheme-program-name)
- (scheme-args-to-list
(if current-prefix-arg
- (read-string "Command-line arguments: "
- (scheme-list-to-args scheme-program-args))
- scheme-program-args))))
+ (scheme-args-to-list
+ (read-string "Command-line arguments: "
+ (scheme-list-to-args scheme-program-args)))
+ scheme-program-args)))
(if (not (comint-check-proc "*scheme*"))
(progn
(set-buffer (apply 'make-comint "scheme" cmd
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches