(edebug-slow-after, edebug-slow-before): Do nothing if edebug-active.

(edebug-enter): Don't do with-timeout-suspend here.
(edebug-display): Do it here instead.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79ff4e73daa252b7682f82661838d02baf241cba..5f6f751ec5b9c4d23da72302bd0e793f355ca133 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,38 @@
+2005-07-11  Richard M. Stallman  <rms@gnu.org>
+
+       * emacs-lisp/edebug.el (edebug-slow-after, edebug-slow-before):
+       Do nothing if edebug-active.
+
+       * emacs-lisp/edebug.el (edebug-enter): Don't with-timeout-suspend here.
+       (edebug-display): Do it here instead.
+
+2005-07-10  Richard M. Stallman  <rms@gnu.org>
+
+       * cus-face.el (custom-theme-set-faces): Make it work.
+       (custom-reset-faces): Doc fix.
+       (custom-theme-reset-internal-face, custom-theme-face-value):
+       Functions deleted.
+
+       * custom.el (custom-push-theme): Maintain list of the settings
+       of a given theme in its theme-settings property.
+       Maintain position of old settings in the theme-value
+       or theme-face property.
+       (custom-enabled-themes): New variable.
+       (custom-theme-enabled-p): New function.
+       (provide-theme): Update custom-enabled-themes.
+       Disable and reenable the `user' theme.
+       (require-theme): Doc fix.
+       (custom-do-theme-reset, custom-remove-theme): Functions deleted.
+       (custom-theme-value, custom-theme-variable-value): Likewise.
+       (custom-theme-reset-internal): Likewise.
+       (custom-theme-load-themes): Fix bugs and use custom-disable-theme.
+       (custom-enable-theme, custom-disable-theme): New functions.
+       (custom-variable-theme-value, custom-face-theme-value): Likewise.
+       (custom-theme-recalc-variable, custom-theme-recalc-face): Likewise.
+       (custom-theme-reset-variables): Simplify.
+       (deftheme, custom-declare-theme, custom-make-theme-feature):
+       Definitions moved.
+
 2005-07-10  Chong Yidong  <cyd@stupidchicken.com>
 
        * longlines.el (longlines-show-region)

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 720463993527d7f1a8a249c8f59c95ac490ab521..1a592709819de18ec047801751ea508a5e7f4233 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -2244,7 +2244,6 @@ error is signaled again."
            (max-specpdl-size (+ 200 max-specpdl-size))
 
            (debugger edebug-debugger)  ; only while edebug is active.
-           (edebug-with-timeout-suspend (with-timeout-suspend))
            (edebug-outside-debug-on-error debug-on-error)
            (edebug-outside-debug-on-quit debug-on-quit)
            ;; Binding these may not be the right thing to do.
@@ -2290,7 +2289,6 @@ error is signaled again."
              (edebug-enter edebug-function edebug-args edebug-body))
          ;; Reset global variables in case outside value was changed.
          (setq executing-kbd-macro edebug-outside-executing-macro)
-         (with-timeout-unsuspend edebug-with-timeout-suspend)
          (edebug-restore-status
           'post-command-hook edebug-outside-post-command-hook)
          (edebug-restore-status
@@ -2376,18 +2374,19 @@ MSG is printed after `::::} '."
 
 
 (defun edebug-slow-before (edebug-before-index)
-  ;; Debug current function given BEFORE position.
-  ;; Called from functions compiled with edebug-eval-top-level-form.
-  ;; Return the before index.
-  (setcar edebug-offset-indices edebug-before-index)
-
-  ;; Increment frequency count
-  (aset edebug-freq-count edebug-before-index
-       (1+ (aref edebug-freq-count edebug-before-index)))
-
-  (if (or (not (memq edebug-execution-mode '(Go-nonstop next)))
-         (edebug-input-pending-p))
-      (edebug-debugger edebug-before-index 'before nil))
+  (unless edebug-active
+    ;; Debug current function given BEFORE position.
+    ;; Called from functions compiled with edebug-eval-top-level-form.
+    ;; Return the before index.
+    (setcar edebug-offset-indices edebug-before-index)
+
+    ;; Increment frequency count
+    (aset edebug-freq-count edebug-before-index
+         (1+ (aref edebug-freq-count edebug-before-index)))
+
+    (if (or (not (memq edebug-execution-mode '(Go-nonstop next)))
+           (edebug-input-pending-p))
+       (edebug-debugger edebug-before-index 'before nil)))
   edebug-before-index)
 
 (defun edebug-fast-before (edebug-before-index)
@@ -2395,22 +2394,24 @@ MSG is printed after `::::} '."
   )
 
 (defun edebug-slow-after (edebug-before-index edebug-after-index edebug-value)
-  ;; Debug current function given AFTER position and VALUE.
-  ;; Called from functions compiled with edebug-eval-top-level-form.
-  ;; Return VALUE.
-  (setcar edebug-offset-indices edebug-after-index)
-
-  ;; Increment frequency count
-  (aset edebug-freq-count edebug-after-index
-       (1+ (aref edebug-freq-count edebug-after-index)))
-  (if edebug-test-coverage (edebug-update-coverage))
-
-  (if (and (eq edebug-execution-mode 'Go-nonstop)
-          (not (edebug-input-pending-p)))
-      ;; Just return result.
+  (if edebug-active
       edebug-value
-    (edebug-debugger edebug-after-index 'after edebug-value)
-    ))
+    ;; Debug current function given AFTER position and VALUE.
+    ;; Called from functions compiled with edebug-eval-top-level-form.
+    ;; Return VALUE.
+    (setcar edebug-offset-indices edebug-after-index)
+
+    ;; Increment frequency count
+    (aset edebug-freq-count edebug-after-index
+         (1+ (aref edebug-freq-count edebug-after-index)))
+    (if edebug-test-coverage (edebug-update-coverage))
+
+    (if (and (eq edebug-execution-mode 'Go-nonstop)
+            (not (edebug-input-pending-p)))
+       ;; Just return result.
+       edebug-value
+      (edebug-debugger edebug-after-index 'after edebug-value)
+      )))
 
 (defun edebug-fast-after (edebug-before-index edebug-after-index edebug-value)
   ;; Do nothing but return the value.
@@ -2535,6 +2536,7 @@ MSG is printed after `::::} '."
   ;; Uses local variables of edebug-enter, edebug-before, edebug-after
   ;; and edebug-debugger.
   (let ((edebug-active t)              ; for minor mode alist
+       (edebug-with-timeout-suspend (with-timeout-suspend))
        edebug-stop                     ; should we enter recursive-edit
        (edebug-point (+ edebug-def-mark
                         (aref (nth 2 edebug-data) edebug-offset-index)))
@@ -2761,6 +2763,7 @@ MSG is printed after `::::} '."
            (set-buffer current-buffer))
          ;; ... nothing more.
          )
+      (with-timeout-unsuspend edebug-with-timeout-suspend)
       ;; Reset global variables to outside values in case they were changed.
       (setq
        overlay-arrow-position edebug-outside-o-a-p