aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/emacs-lisp/edebug.el39
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 @@
12011-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * emacs-lisp/edebug.el: Heed checkdoc recommendations.
4
12011-10-05 Glenn Morris <rgm@gnu.org> 52011-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.
3202Set it if FLAG is non-nil, clear it otherwise. Then move to that point. 3202Set it if FLAG is non-nil, clear it otherwise. Then move to that point.
3203If CONDITION or TEMPORARY are non-nil, add those attributes to 3203If CONDITION or TEMPORARY are non-nil, add those attributes to
3204the breakpoint. " 3204the 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
3881Options: 3881Options:
3882edebug-setup-hook 3882`edebug-setup-hook'
3883edebug-all-defs 3883`edebug-all-defs'
3884edebug-all-forms 3884`edebug-all-forms'
3885edebug-save-windows 3885`edebug-save-windows'
3886edebug-save-displayed-buffer-points 3886`edebug-save-displayed-buffer-points'
3887edebug-initial-mode 3887`edebug-initial-mode'
3888edebug-trace 3888`edebug-trace'
3889edebug-test-coverage 3889`edebug-test-coverage'
3890edebug-continue-kbd-macro 3890`edebug-continue-kbd-macro'
3891edebug-print-length 3891`edebug-print-length'
3892edebug-print-level 3892`edebug-print-level'
3893edebug-print-circle 3893`edebug-print-circle'
3894edebug-on-error 3894`edebug-on-error'
3895edebug-on-quit 3895`edebug-on-quit'
3896edebug-on-signal 3896`edebug-on-signal'
3897edebug-unwrap-results 3897`edebug-unwrap-results'
3898edebug-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.