raible@orville.nas.nasa.gov (Eric L. Raible) (11/23/88)
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)