mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(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.
This commit is contained in:
Juri Linkov 2005-12-23 21:57:08 +00:00
parent 8a30a619e2
commit eb53358796
2 changed files with 44 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/ChangeLog
View file

@ -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.

16
lisp/emacs-lisp/edebug.el
View file

@ -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.