diff options
| author | Jonathan Yavner | 2003-11-30 06:58:00 +0000 |
|---|---|---|
| committer | Jonathan Yavner | 2003-11-30 06:58:00 +0000 |
| commit | 01a9e5933da0f45101161d0572ad77bd6da66cbc (patch) | |
| tree | cdeeea8dba8fb042926b352a58d85d3001068ccc | |
| parent | 1116910a519ba0e4ff84b9a83ff5207aa4fe5a24 (diff) | |
| download | emacs-01a9e5933da0f45101161d0572ad77bd6da66cbc.tar.gz emacs-01a9e5933da0f45101161d0572ad77bd6da66cbc.zip | |
Add edebug specs for macros `1value' and `noreturn'.
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
2 files changed, 16 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 95d1125ad9d..f35d9bf898a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,15 @@ | |||
| 1 | 2003-11-30 Jonathan Yavner <jyavner@member.fsf.org> | ||
| 2 | |||
| 3 | * subr.el (noreturn, 1value): New macros for test coverage. See | ||
| 4 | `testcover.el'. | ||
| 5 | |||
| 6 | * emacs-lisp/edebug.el: Add def-edebug-spec for `noreturn' and `1value'. | ||
| 7 | |||
| 8 | * emacs-lisp/testcover.el (testcover-reinstrument): Special case | ||
| 9 | for macro `1value'. | ||
| 10 | (testcover-1value): New function. Checks that a 1value form | ||
| 11 | actually returns only one value. Requested by RMS. | ||
| 12 | |||
| 1 | 2003-11-29 Nick Roberts <nick@nick.uklinux.net> | 13 | 2003-11-29 Nick Roberts <nick@nick.uklinux.net> |
| 2 | 14 | ||
| 3 | * gdb-ui.el (gud-watch, gdb-var-create-handler) | 15 | * gdb-ui.el (gud-watch, gdb-var-create-handler) |
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 74ea2f37b22..1ef30a309a3 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -2090,6 +2090,10 @@ expressions; a `progn' form will be returned enclosing these forms." | |||
| 2090 | (def-edebug-spec push (form sexp)) | 2090 | (def-edebug-spec push (form sexp)) |
| 2091 | (def-edebug-spec pop (sexp)) | 2091 | (def-edebug-spec pop (sexp)) |
| 2092 | 2092 | ||
| 2093 | (def-edebug-spec 1value (form)) | ||
| 2094 | (def-edebug-spec noreturn (form)) | ||
| 2095 | |||
| 2096 | |||
| 2093 | ;; Anything else? | 2097 | ;; Anything else? |
| 2094 | 2098 | ||
| 2095 | 2099 | ||