[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/edebug.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/28 04:12:52

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: edebug.el 

Log message:
        (edebug-display, edebug-outside-excursion):
        Replace uses of default-cursor-in-non-selected-windows
        with (default-value 'cursor-in-non-selected-windows).  Use 
with-current-buffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16034&r2=1.16035
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/edebug.el?cvsroot=emacs&r1=3.112&r2=3.113

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16034
retrieving revision 1.16035
diff -u -b -r1.16034 -r1.16035
--- ChangeLog   28 Aug 2009 04:05:58 -0000      1.16034
+++ ChangeLog   28 Aug 2009 04:12:49 -0000      1.16035
@@ -1,5 +1,10 @@
 2009-08-28  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/edebug.el (edebug-display, edebug-outside-excursion):
+       Replace uses of default-cursor-in-non-selected-windows
+       with (default-value 'cursor-in-non-selected-windows).
+       Use with-current-buffer.
+
        * mail/feedmail.el: Use CL macros.
        (feedmail-run-the-queue, feedmail-send-it-immediately):
        * dos-w32.el (find-buffer-file-type): Replace uses of

Index: emacs-lisp/edebug.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/edebug.el,v
retrieving revision 3.112
retrieving revision 3.113
diff -u -b -r3.112 -r3.113
--- emacs-lisp/edebug.el        21 Jul 2009 04:42:16 -0000      3.112
+++ emacs-lisp/edebug.el        28 Aug 2009 04:12:52 -0000      3.113
@@ -352,8 +352,7 @@
         (edebug:s-r-end (point-max-marker)))
      (unwind-protect
         (progn ,@body)
-       (save-excursion
-        (set-buffer (marker-buffer edebug:s-r-beg))
+       (with-current-buffer (marker-buffer edebug:s-r-beg)
         (narrow-to-region edebug:s-r-beg edebug:s-r-end)))))
 
 ;;; Display
@@ -2579,15 +2578,16 @@
        (edebug-outside-o-a-p overlay-arrow-position)
        (edebug-outside-o-a-s overlay-arrow-string)
        (edebug-outside-c-i-e-a cursor-in-echo-area)
-       (edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows))
+       (edebug-outside-d-c-i-n-s-w
+         (default-value 'cursor-in-non-selected-windows)))
     (unwind-protect
        (let ((overlay-arrow-position overlay-arrow-position)
              (overlay-arrow-string overlay-arrow-string)
              (cursor-in-echo-area nil)
-             (default-cursor-in-non-selected-windows t)
              (unread-command-events unread-command-events)
              ;; any others??
              )
+          (setq-default cursor-in-non-selected-windows t)
          (if (not (buffer-name edebug-buffer))
              (let ((debug-on-error nil))
                (error "Buffer defining %s not found" edebug-function)))
@@ -2782,10 +2782,8 @@
          ;; Restore edebug-buffer's outside point.
          ;;    (edebug-trace "restore edebug-buffer point: %s"
          ;;              edebug-buffer-outside-point)
-         (let ((current-buffer (current-buffer)))
-           (set-buffer edebug-buffer)
-           (goto-char edebug-buffer-outside-point)
-           (set-buffer current-buffer))
+         (with-current-buffer edebug-buffer
+           (goto-char edebug-buffer-outside-point))
          ;; ... nothing more.
          )
       (with-timeout-unsuspend edebug-with-timeout-suspend)
@@ -2794,8 +2792,8 @@
        unread-command-events edebug-outside-unread-command-events
        overlay-arrow-position edebug-outside-o-a-p
        overlay-arrow-string edebug-outside-o-a-s
-       cursor-in-echo-area edebug-outside-c-i-e-a
-       default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
+       cursor-in-echo-area edebug-outside-c-i-e-a)
+      (setq-default cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
       )))
 
 
@@ -2851,8 +2849,7 @@
   (let ((edebug-buffer-read-only buffer-read-only)
        ;; match-data must be done in the outside buffer
        (edebug-outside-match-data
-        (save-excursion  ; might be unnecessary now??
-          (set-buffer edebug-outside-buffer)  ; in case match buffer different
+        (with-current-buffer edebug-outside-buffer ; in case match buffer 
different
           (match-data)))
 
        ;;(edebug-number-of-recursions (1+ edebug-number-of-recursions))
@@ -3605,8 +3602,8 @@
           (overlay-arrow-position edebug-outside-o-a-p)
           (overlay-arrow-string edebug-outside-o-a-s)
           (cursor-in-echo-area edebug-outside-c-i-e-a)
-          (default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
           )
+       (setq-default cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
        (unwind-protect
           (save-excursion              ; of edebug-buffer
             (set-buffer edebug-outside-buffer)
@@ -3642,7 +3639,8 @@
          edebug-outside-o-a-p overlay-arrow-position
          edebug-outside-o-a-s overlay-arrow-string
          edebug-outside-c-i-e-a cursor-in-echo-area
-         edebug-outside-d-c-i-n-s-w default-cursor-in-non-selected-windows
+         edebug-outside-d-c-i-n-s-w (default-value
+                                       'cursor-in-non-selected-windows)
          )
 
         ;; Restore the outside saved values; don't alter
@@ -3650,6 +3648,7 @@
         (setcdr edebug-outside-pre-command-hook pre-command-hook)
         (setcdr edebug-outside-post-command-hook post-command-hook)
 
+         (setq-default cursor-in-non-selected-windows t)
         ))                             ; let
      ))