Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 2629:137117f5c44c
* edebug.el (edebug-display): Call the `mark' function with the
FORCE argument non-nil, so that we don't get an error if the mark
isn't set yet.
* edebug.el (global-edebug-prefix, global-edebug-map): Add
autoload cookies for these, so they are present when Emacs starts
up.
* edebug.el (global-edebug-map): Bind `C-x X d' to edebug-defun in
this map; we can't bind it to `C-x x', as the installation
instructions suggest, because that conflicts with
copy-to-register.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 03 May 1993 03:36:19 +0000 |
parents | 10e417efb12a |
children | c9689f8d0574 |
comparison
equal
deleted
inserted
replaced
2628:6b17fe69a82f | 2629:137117f5c44c |
---|---|
1295 edebug-window ; window displaying edebug-buffer | 1295 edebug-window ; window displaying edebug-buffer |
1296 edebug-inside-window ; window displayed after recursive edit | 1296 edebug-inside-window ; window displayed after recursive edit |
1297 (edebug-outside-window (selected-window)) | 1297 (edebug-outside-window (selected-window)) |
1298 (edebug-outside-buffer (current-buffer)) | 1298 (edebug-outside-buffer (current-buffer)) |
1299 (edebug-outside-point (point)) | 1299 (edebug-outside-point (point)) |
1300 (edebug-outside-mark (mark)) | 1300 (edebug-outside-mark (mark t)) |
1301 edebug-outside-windows ; window or screen configuration | 1301 edebug-outside-windows ; window or screen configuration |
1302 edebug-outside-edebug-point ; old point in edebug buffer | 1302 edebug-outside-edebug-point ; old point in edebug buffer |
1303 edebug-outside-edebug-mark | 1303 edebug-outside-edebug-mark |
1304 | 1304 |
1305 edebug-eval-buffer ; declared here so we can kill it below | 1305 edebug-eval-buffer ; declared here so we can kill it below |
1338 (select-window edebug-window) | 1338 (select-window edebug-window) |
1339 | 1339 |
1340 (if edebug-save-point | 1340 (if edebug-save-point |
1341 (progn | 1341 (progn |
1342 (setq edebug-outside-edebug-point (point)) | 1342 (setq edebug-outside-edebug-point (point)) |
1343 (setq edebug-outside-edebug-mark (mark)))) | 1343 (setq edebug-outside-edebug-mark (mark t)))) |
1344 | 1344 |
1345 (edebug-save-restriction | 1345 (edebug-save-restriction |
1346 (setq edebug-outside-point-min (point-min)) | 1346 (setq edebug-outside-point-min (point-min)) |
1347 (setq edebug-outside-point-max (point-max)) | 1347 (setq edebug-outside-point-max (point-max)) |
1348 (widen) | 1348 (widen) |
2207 (define-key edebug-mode-map "d" 'edebug-backtrace) | 2207 (define-key edebug-mode-map "d" 'edebug-backtrace) |
2208 | 2208 |
2209 (define-key edebug-mode-map "-" 'negative-argument) | 2209 (define-key edebug-mode-map "-" 'negative-argument) |
2210 )) | 2210 )) |
2211 | 2211 |
2212 | 2212 ;;;###autoload |
2213 (defvar global-edebug-prefix "\^XX" | 2213 (defvar global-edebug-prefix "\^XX" |
2214 "Prefix key for global edebug commands, available from any buffer.") | 2214 "Prefix key for global edebug commands, available from any buffer.") |
2215 | 2215 |
2216 ;;;###autoload | |
2216 (defvar global-edebug-map nil | 2217 (defvar global-edebug-map nil |
2217 "Global map of edebug commands, available from any buffer.") | 2218 "Global map of edebug commands, available from any buffer.") |
2218 | 2219 |
2220 ;;;###autoload | |
2219 (if global-edebug-map | 2221 (if global-edebug-map |
2220 nil | 2222 nil |
2221 (setq global-edebug-map (make-sparse-keymap)) | 2223 (setq global-edebug-map (make-sparse-keymap)) |
2222 | 2224 |
2223 (global-unset-key global-edebug-prefix) | 2225 (global-unset-key global-edebug-prefix) |
2224 (global-set-key global-edebug-prefix global-edebug-map) | 2226 (global-set-key global-edebug-prefix global-edebug-map) |
2225 | 2227 |
2226 ;; (define-key global-edebug-map "X" 'edebug-step-through) | 2228 ;; (define-key global-edebug-map "X" 'edebug-step-through) |
2229 (define-key global-edebug-map "d" 'edebug-defun) | |
2227 (define-key global-edebug-map " " 'edebug-step-through) | 2230 (define-key global-edebug-map " " 'edebug-step-through) |
2228 (define-key global-edebug-map "g" 'edebug-go) | 2231 (define-key global-edebug-map "g" 'edebug-go) |
2229 (define-key global-edebug-map "G" 'edebug-Go-nonstop) | 2232 (define-key global-edebug-map "G" 'edebug-Go-nonstop) |
2230 (define-key global-edebug-map "t" 'edebug-trace) | 2233 (define-key global-edebug-map "t" 'edebug-trace) |
2231 (define-key global-edebug-map "T" 'edebug-Trace-fast) | 2234 (define-key global-edebug-map "T" 'edebug-Trace-fast) |