(edebug-all-defs, edebug-all-forms): Add autoload cookies.

(edebug-outside-d-c-i-n-s-w): New variable.
(edebug-display, edebug-outside-excursion): Use it to save the
original value of default-cursor-in-non-selected-windows.
Set default-cursor-in-non-selected-windows to t while Edebug is active.
(edebug-mode, edebug-eval-mode): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21a25f79be385fc67e496f3dca13766a90514fa5..029c0b93d7df932f39e0a49f8fd1b1acf28e5940 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,35 @@
+2005-12-23  Juri Linkov  <juri@jurta.org>
+
+       * emacs-lisp/edebug.el (edebug-all-defs, edebug-all-forms):
+       Add autoload cookies.
+       (edebug-outside-d-c-i-n-s-w): New variable.
+       (edebug-display, edebug-outside-excursion): Use it to save the
+       original value of default-cursor-in-non-selected-windows.
+       Set default-cursor-in-non-selected-windows to t while Edebug
+       is active.
+       (edebug-mode, edebug-eval-mode): Doc fix.
+
+       * mouse.el (mouse-choose-completion): Replace `buffer-substring'
+       with `buffer-substring-no-properties' to remove common substring
+       highlighting.
+
+       * info.el (info-other-window, info): Rename function argument
+       `file' to `file-or-node'.
+       (Info-complete-menu-item): Use local variable `complete-nodes' to
+       keep the global value of `Info-complete-nodes' unchanged for
+       subsequent completions.
+       (info-tool-bar-map): Put `Info-index' icon just before `Info-search'.
+
+       * simple.el (get-next-valid-buffer, last-buffer)
+       (next-error-buffer-p, next-error-find-buffer)
+       (minibuffer-history-sexp-flag): Doc fix.
+
+       * savehist.el (savehist-mode-hook): Add `:group'.
+
+       * log-view.el: Call autoload for vc-find-version.
+       (log-view-current-file): Adjust subgroup numbers.
+       (log-view-current-tag): Add `length'.
+
 2005-12-23  Richard M. Stallman  <rms@gnu.org>
 
        * vc.el (vc-annotate-car-last-cons): Defn moved up.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 9290ede2bdfa034a9770313b4b734368186b18fa..beb88cfea25362b46b259517447152c9ee5dd8c0 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -570,6 +570,7 @@ already is one.)"
 ;; Compatibility with old versions.
 (defalias 'edebug-all-defuns 'edebug-all-defs)
 
+;;;###autoload
 (defun edebug-all-defs ()
   "Toggle edebugging of all definitions."
   (interactive)
@@ -578,6 +579,7 @@ already is one.)"
           (if edebug-all-defs "on" "off")))
 
 
+;;;###autoload
 (defun edebug-all-forms ()
   "Toggle edebugging of all forms."
   (interactive)
@@ -2516,6 +2518,7 @@ MSG is printed after `::::} '."
 (defvar edebug-outside-o-a-p) ; outside overlay-arrow-position
 (defvar edebug-outside-o-a-s) ; outside overlay-arrow-string
 (defvar edebug-outside-c-i-e-a) ; outside cursor-in-echo-area
+(defvar edebug-outside-d-c-i-n-s-w) ; outside default-cursor-in-non-selected-windows
 
 (defvar edebug-eval-list nil) ;; List of expressions to evaluate.
 
@@ -2557,11 +2560,13 @@ MSG is printed after `::::} '."
 
        (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-c-i-e-a cursor-in-echo-area)
+       (edebug-outside-d-c-i-n-s-w default-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)
              ;; any others??
              )
          (if (not (buffer-name edebug-buffer))
@@ -2767,7 +2772,8 @@ MSG is printed after `::::} '."
       (setq
        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)
+       cursor-in-echo-area edebug-outside-c-i-e-a
+       default-cursor-in-non-selected-windows edebug-outside-d-c-i-n-s-w)
       )))
 
 
@@ -3580,6 +3586,7 @@ Return the result of the last expression."
           (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)
           )
        (unwind-protect
           (save-excursion              ; of edebug-buffer
@@ -3618,6 +3625,7 @@ Return the result of the last expression."
          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
          )
 
         ;; Restore the outside saved values; don't alter
@@ -3897,7 +3905,7 @@ buffer) there are local and global key bindings to several Edebug
 specific commands.  E.g. `edebug-step-mode' is bound to \\[edebug-step-mode]
 in the Edebug buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
 
-Also see bindings for the eval list buffer, *edebug*.
+Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'.
 
 The edebug buffer commands:
 \\{edebug-mode-map}
@@ -4054,7 +4062,7 @@ buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
 Eval list buffer commands:
 \\{edebug-eval-mode-map}
 
-Global commands prefixed by global-edebug-prefix:
+Global commands prefixed by `global-edebug-prefix':
 \\{global-edebug-map}")
 
 ;;; Interface with standard debugger.