diff options
| author | Stefan Monnier | 2011-10-05 01:30:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-10-05 01:30:03 -0400 |
| commit | 9854542eaa862ed8b76c7c32a645f920130bb321 (patch) | |
| tree | aebfa9f62472fb5f8e38ed98ea1fc6d1dd482a12 | |
| parent | 8943cfb0c8a7e2c4bcbca20dc5d4a68e4a0eb4e6 (diff) | |
| download | emacs-9854542eaa862ed8b76c7c32a645f920130bb321.tar.gz emacs-9854542eaa862ed8b76c7c32a645f920130bb321.zip | |
* lisp/emacs-lisp/edebug.el: Heed checkdoc recommendations.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 39 |
2 files changed, 23 insertions, 20 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75bad939583..8ac25f39650 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-10-05 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * emacs-lisp/edebug.el: Heed checkdoc recommendations. | ||
| 4 | |||
| 1 | 2011-10-05 Glenn Morris <rgm@gnu.org> | 5 | 2011-10-05 Glenn Morris <rgm@gnu.org> |
| 2 | 6 | ||
| 3 | * progmodes/perl-mode.el (perl-electric-terminator): Doc fix. | 7 | * progmodes/perl-mode.el (perl-electric-terminator): Doc fix. |
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 57d25c9e169..176b906632c 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -1557,7 +1557,7 @@ expressions; a `progn' form will be returned enclosing these forms." | |||
| 1557 | ;; The first spec is handled and the remainder-handler handles the rest. | 1557 | ;; The first spec is handled and the remainder-handler handles the rest. |
| 1558 | (let ((edebug-matching-depth | 1558 | (let ((edebug-matching-depth |
| 1559 | (if (> edebug-matching-depth edebug-max-depth) | 1559 | (if (> edebug-matching-depth edebug-max-depth) |
| 1560 | (error "too deep - perhaps infinite loop in spec?") | 1560 | (error "Too deep - perhaps infinite loop in spec?") |
| 1561 | (1+ edebug-matching-depth)))) | 1561 | (1+ edebug-matching-depth)))) |
| 1562 | (cond | 1562 | (cond |
| 1563 | ((null specs) nil) | 1563 | ((null specs) nil) |
| @@ -3201,7 +3201,7 @@ before returning. The default is one second." | |||
| 3201 | "Modify the breakpoint for the form at point or after it. | 3201 | "Modify the breakpoint for the form at point or after it. |
| 3202 | Set it if FLAG is non-nil, clear it otherwise. Then move to that point. | 3202 | Set it if FLAG is non-nil, clear it otherwise. Then move to that point. |
| 3203 | If CONDITION or TEMPORARY are non-nil, add those attributes to | 3203 | If CONDITION or TEMPORARY are non-nil, add those attributes to |
| 3204 | the breakpoint. " | 3204 | the breakpoint." |
| 3205 | (let ((edebug-stop-point (edebug-find-stop-point))) | 3205 | (let ((edebug-stop-point (edebug-find-stop-point))) |
| 3206 | (if edebug-stop-point | 3206 | (if edebug-stop-point |
| 3207 | (let* ((edebug-def-name (car edebug-stop-point)) | 3207 | (let* ((edebug-def-name (car edebug-stop-point)) |
| @@ -3879,24 +3879,23 @@ Global commands prefixed by `global-edebug-prefix': | |||
| 3879 | \\{global-edebug-map} | 3879 | \\{global-edebug-map} |
| 3880 | 3880 | ||
| 3881 | Options: | 3881 | Options: |
| 3882 | edebug-setup-hook | 3882 | `edebug-setup-hook' |
| 3883 | edebug-all-defs | 3883 | `edebug-all-defs' |
| 3884 | edebug-all-forms | 3884 | `edebug-all-forms' |
| 3885 | edebug-save-windows | 3885 | `edebug-save-windows' |
| 3886 | edebug-save-displayed-buffer-points | 3886 | `edebug-save-displayed-buffer-points' |
| 3887 | edebug-initial-mode | 3887 | `edebug-initial-mode' |
| 3888 | edebug-trace | 3888 | `edebug-trace' |
| 3889 | edebug-test-coverage | 3889 | `edebug-test-coverage' |
| 3890 | edebug-continue-kbd-macro | 3890 | `edebug-continue-kbd-macro' |
| 3891 | edebug-print-length | 3891 | `edebug-print-length' |
| 3892 | edebug-print-level | 3892 | `edebug-print-level' |
| 3893 | edebug-print-circle | 3893 | `edebug-print-circle' |
| 3894 | edebug-on-error | 3894 | `edebug-on-error' |
| 3895 | edebug-on-quit | 3895 | `edebug-on-quit' |
| 3896 | edebug-on-signal | 3896 | `edebug-on-signal' |
| 3897 | edebug-unwrap-results | 3897 | `edebug-unwrap-results' |
| 3898 | edebug-global-break-condition | 3898 | `edebug-global-break-condition'" |
| 3899 | " | ||
| 3900 | ;; If the user kills the buffer in which edebug is currently active, | 3899 | ;; If the user kills the buffer in which edebug is currently active, |
| 3901 | ;; exit to top level, because the edebug command loop can't usefully | 3900 | ;; exit to top level, because the edebug command loop can't usefully |
| 3902 | ;; continue running in such a case. | 3901 | ;; continue running in such a case. |