[Emacs-diffs] trunk r116560: * lisp/emacs-lisp/edebug.el (defmacro): Fix debug spec.

[Glenn Morris]

------------------------------------------------------------
revno: 116560
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16868
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2014-02-25 16:55:45 -0500
message:
  * lisp/emacs-lisp/edebug.el (defmacro): Fix debug spec.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/edebug.el      edebug.el-20091113204419-o5vbwnq5f7feedwu-483

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-25 08:41:47 +0000
+++ b/lisp/ChangeLog    2014-02-25 21:55:45 +0000
@@ -1,5 +1,7 @@
 2014-02-25  Glenn Morris  <address@hidden>
 
+       * emacs-lisp/edebug.el (defmacro): Fix debug spec.  (Bug#16868)
+
        * faces.el (tty-setup-hook, tty-run-terminal-initialization): Doc fixes.
        * startup.el (term-setup-hook): Doc fix.  Make obsolete.
        * term/sun.el (sun-raw-prefix-hooks):

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2014-02-10 01:34:22 +0000
+++ b/lisp/emacs-lisp/edebug.el 2014-02-25 21:55:45 +0000
@@ -1,7 +1,6 @@
 ;;; edebug.el --- a source-level debugger for Emacs Lisp  -*- lexical-binding: 
t -*-
 
-;; Copyright (C) 1988-1995, 1997, 1999-2014 Free Software Foundation,
-;; Inc.
+;; Copyright (C) 1988-1995, 1997, 1999-2014 Free Software Foundation, Inc.
 
 ;; Author: Daniel LaLiberte <address@hidden>
 ;; Maintainer: address@hidden
@@ -1936,11 +1935,11 @@
           [&optional stringp]
           [&optional ("interactive" interactive)]
           def-body))
-;; FIXME? Isn't this missing the doc-string?  Cf defun.
 (def-edebug-spec defmacro
   ;; FIXME: Improve `declare' so we can Edebug gv-expander and
   ;; gv-setter declarations.
-  (&define name lambda-list [&optional ("declare" &rest sexp)] def-body))
+  (&define name lambda-list [&optional stringp]
+           [&optional ("declare" &rest sexp)] def-body))
 
 (def-edebug-spec arglist lambda-list)  ;; deprecated - use lambda-list.