Commit eb533587 authored by Juri Linkov's avatar Juri Linkov
Browse files

(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.
parent 8a30a619
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment