Path: utzoo!attcan!uunet!husc6!mailrus!ames!amelia!orville.nas.nasa.gov!raible
From: raible@orville.nas.nasa.gov (Eric L. Raible)
Newsgroups: comp.emacs
Subject: edebug bug fixes
Message-ID: <1229@amelia.nas.nasa.gov>
Date: 23 Nov 88 01:35:43 GMT
Sender: news@amelia.nas.nasa.gov
Reply-To: raible@orville.nas.nasa.gov (Eric L. Raible)
Organization: NASA Ames Research Center, Moffett Field, CA
Lines: 55

Here are two bug fixes for edebug.el.

The first fixes (it didn't execute):

(defun foo () (cond (t t)))

The second fixes (it didn't parse):

(defun foo () ())


*** old-edebug  Nov 22 17:19:51 1988
--- edebug.el	Tue Nov 22 17:09:20 1988
***************
*** 365,371
  		 (error "Bad condition in cond")
  	       (forward-char 1) ; \(
  	       (prog1
! 		   (list
  		    (edebug-sexp)
  		    (if (eq 'rparen (edebug-next-token-class))
  			nil

--- 347,353 -----
  		 (error "Bad condition in cond")
  	       (forward-char 1) ; \(
  	       (prog1
! 		   (cons		; Eric Raible - was list
  		    (edebug-sexp)
  		    (if (eq 'rparen (edebug-next-token-class))
  			nil
***************
*** 444,450
  parens, dot, quote, and (anything else) atom."
    (edebug-next-token)
    (cond
!    ((= (following-char) ?\() 'lparen)
     ((= (following-char) ?\)) 'rparen)
     ((= (following-char) ?\.) 'dot)
     ((= (following-char) ?\') 'quote)

--- 426,438 -----
  parens, dot, quote, and (anything else) atom."
    (edebug-next-token)
    (cond
!    ;;((= (following-char) ?\() 'lparen)	; Eric Raible -
!    ((= (following-char) ?\()		; () is an atom
!     (save-excursion
!       (forward-char 1)
!       (if (= (following-char) ?\))
! 	  'atom
! 	'lparen)))
     ((= (following-char) ?\)) 'rparen)
     ((= (following-char) ?\.) 'dot)
     ((= (following-char) ?\') 'quote)