lisp/emacs-lisp/debug.el

71 (defvar debugger-outer-load-read-function)
72 (defvar debugger-outer-overriding-local-map)
73 (defvar debugger-outer-overriding-terminal-local-map)
108   "Enter debugger.  To return, type \\<debugger-mode-map>`\\[debugger-continue]'.
134 	  (debugger-outer-load-read-function load-read-function)
135 	  (debugger-outer-overriding-local-map overriding-local-map)
136 	  (debugger-outer-overriding-terminal-local-map
137 	   overriding-terminal-local-map)
157       (setq overriding-terminal-local-map nil)
166 	    overriding-local-map
167 	    load-read-function
208 		      (buffer-read-only t))
210 		  ;; Make sure we unbind buffer-read-only in the right buffer.
243       (setq load-read-function debugger-outer-load-read-function)
244       (setq overriding-local-map debugger-outer-overriding-local-map)
245       (setq overriding-terminal-local-map
246 	    debugger-outer-overriding-terminal-local-map)
270   (setq buffer-read-only nil)
337     (let ((inhibit-read-only t)
404   "Proceed, stepping through subexpressions of this expression.
415   "Continue, evaluating this expression without stopping."
500       (let ((inhibit-read-only t))
516       (let ((inhibit-read-only t))
529     (let ((load-read-function debugger-outer-load-read-function)
530           (overriding-terminal-local-map
531            debugger-outer-overriding-terminal-local-map)
532           (overriding-local-map debugger-outer-overriding-local-map)
560         (setq debugger-outer-load-read-function load-read-function)
561         (setq debugger-outer-overriding-terminal-local-map
562               overriding-terminal-local-map)
563         (setq debugger-outer-overriding-local-map overriding-local-map)
580 (defun debugger-eval-expression (exp)
581   "Eval an expression, in an environment like that outside the debugger."
583    (list (read-from-minibuffer "Eval: "
584 			       nil read-expression-map t
585 			       'read-expression-history)))
586   (debugger-env-macro (eval-expression exp)))
589 (defvar debugger-mode-map
590   (let ((map (make-keymap)))
591     (set-keymap-parent map button-buffer-map)
592     (suppress-keymap map)
593     (define-key map "-" 'negative-argument)
594     (define-key map "b" 'debugger-frame)
595     (define-key map "c" 'debugger-continue)
596     (define-key map "j" 'debugger-jump)
597     (define-key map "r" 'debugger-return-value)
598     (define-key map "u" 'debugger-frame-clear)
599     (define-key map "d" 'debugger-step-through)
600     (define-key map "l" 'debugger-list-functions)
601     (define-key map "h" 'describe-mode)
602     (define-key map "q" 'top-level)
603     (define-key map "e" 'debugger-eval-expression)
604     (define-key map " " 'next-line)
605     (define-key map "R" 'debugger-record-expression)
606     (define-key map "\C-m" 'debug-help-follow)
607     (define-key map [mouse-2] 'push-button)
608     map))
614 \\<debugger-mode-map>
626 \\{debugger-mode-map}"
632   (use-local-map debugger-mode-map)
637   "*Buffer name for expression values, for \\[debugger-record-expression]."
642 (defun debugger-record-expression  (exp)
645    (list (read-from-minibuffer
648 	  read-expression-map t
649 	  'read-expression-history)))
653     (princ (debugger-eval-expression exp))
720      (setq val (completing-read
764 		(completing-read