[m-dev.] diff: emacs interface bug fix

[Fergus Henderson]

Estimated hours taken: 0.5

scripts/gud.el:
	Fix a bug: the code was depending on the `first' and `second'
	functions, which are apparently defined only if you load the
	`viper' package.  The fix is to use `car' and `cdr' instead.

Workspace: /home/mercury0/fjh/mercury
Index: scripts/gud.el
===================================================================
RCS file: /home/mercury1/repository/mercury/scripts/gud.el,v
retrieving revision 1.3
diff -u -d -r1.3 gud.el
--- gud.el	1998/12/21 17:45:10	1.3
+++ gud.el	1999/11/18 05:59:33
@@ -1500,8 +1500,8 @@
     (if gud-redirect-io
 	;; Create window for I/O, and insert "--tty" option in args
 	(let* ((buf-tty (gud-start-io-window prog-buf-name))
-	       (buf (first buf-tty))
-	       (tty (second buf-tty)))
+	       (buf (car buf-tty))
+	       (tty (car (cdr buf-tty))))
 	  (setq prog-buf-name base-file)
 	  (setq debugger-buf buf)
 	  (setq args (cons "--tty" (cons tty args)))))

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------