Lines Matching +defs:cl +defs:map
270 ;; Define edebug-gensym - from old cl.el
929 (if (featurep 'cl) 'function* 'function))
1960 ;;; See cl-specs.el for common lisp specs.
2210 (defvar edebug-outside-overriding-local-map)
2211 (defvar edebug-outside-overriding-terminal-local-map)
2216 (defvar cl-lexical-debug) ;; Defined in cl.el
2271 (cl-lexical-debug t)
2273 (edebug-outside-overriding-local-map overriding-local-map)
2274 (edebug-outside-overriding-terminal-local-map
2275 overriding-terminal-local-map)
2291 (overriding-local-map nil)
2292 (overriding-terminal-local-map nil)
2813 (defvar edebug-outside-map)
2867 (edebug-outside-map (current-local-map))
2950 (use-local-map edebug-outside-map)
3111 (substitute-command-keys "\\<global-map>\\[edebug-where]")))
3283 "Global Condition: " initial read-expression-map t
3537 (keymap (if (eq edebug-mode-map (current-local-map))
3538 edebug-mode-map))
3559 (error "Key must map to one of the mode changing commands")
3580 ;; (use-local-map edebug-outside-map)
3583 (let (;; (edebug-inside-map (current-local-map)) ;; restore map??
3620 ;; (use-local-map edebug-inside-map)
3659 (defvar cl-debug-env nil) ;; defined in cl; non-nil when lexical env used.
3662 ;; Are there cl lexical variables active?
3663 (if cl-debug-env
3664 (eval (cl-macroexpand-all edebug-expr cl-debug-env))
3767 "Eval: " nil read-expression-map t
3803 (define-key emacs-lisp-mode-map "\C-x\C-a\C-s" 'edebug-step-mode)
3804 (define-key emacs-lisp-mode-map "\C-x\C-a\C-n" 'edebug-next-mode)
3805 (define-key emacs-lisp-mode-map "\C-x\C-a\C-c" 'edebug-go-mode)
3806 (define-key emacs-lisp-mode-map "\C-x\C-a\C-l" 'edebug-where))
3808 (defvar edebug-mode-map
3809 (let ((map (copy-keymap emacs-lisp-mode-map)))
3811 (define-key map " " 'edebug-step-mode)
3812 (define-key map "n" 'edebug-next-mode)
3813 (define-key map "g" 'edebug-go-mode)
3814 (define-key map "G" 'edebug-Go-nonstop-mode)
3815 (define-key map "t" 'edebug-trace-mode)
3816 (define-key map "T" 'edebug-Trace-fast-mode)
3817 (define-key map "c" 'edebug-continue-mode)
3818 (define-key map "C" 'edebug-Continue-fast-mode)
3820 ;;(define-key map "f" 'edebug-forward) not implemented
3821 (define-key map "f" 'edebug-forward-sexp)
3822 (define-key map "h" 'edebug-goto-here)
3824 (define-key map "I" 'edebug-instrument-callee)
3825 (define-key map "i" 'edebug-step-in)
3826 (define-key map "o" 'edebug-step-out)
3829 (define-key map "q" 'top-level)
3830 (define-key map "Q" 'edebug-top-level-nonstop)
3831 (define-key map "a" 'abort-recursive-edit)
3832 (define-key map "S" 'edebug-stop)
3835 (define-key map "b" 'edebug-set-breakpoint)
3836 (define-key map "u" 'edebug-unset-breakpoint)
3837 (define-key map "B" 'edebug-next-breakpoint)
3838 (define-key map "x" 'edebug-set-conditional-breakpoint)
3839 (define-key map "X" 'edebug-set-global-break-condition)
3842 (define-key map "r" 'edebug-previous-result)
3843 (define-key map "e" 'edebug-eval-expression)
3844 (define-key map "\C-x\C-e" 'edebug-eval-last-sexp)
3845 (define-key map "E" 'edebug-visit-eval-list)
3848 (define-key map "w" 'edebug-where)
3849 (define-key map "v" 'edebug-view-outside) ;; maybe obsolete??
3850 (define-key map "p" 'edebug-bounce-point)
3851 (define-key map "P" 'edebug-view-outside) ;; same as v
3852 (define-key map "W" 'edebug-toggle-save-windows)
3855 (define-key map "?" 'edebug-help)
3856 (define-key map "d" 'edebug-backtrace)
3858 (define-key map "-" 'negative-argument)
3861 (define-key map "=" 'edebug-temp-display-freq-count)
3864 (define-key map "\C-c\C-s" 'edebug-step-mode)
3865 (define-key map "\C-c\C-n" 'edebug-next-mode)
3866 (define-key map "\C-c\C-c" 'edebug-go-mode)
3868 (define-key map "\C-x " 'edebug-set-breakpoint)
3869 (define-key map "\C-c\C-d" 'edebug-unset-breakpoint)
3870 (define-key map "\C-c\C-t"
3872 (define-key map "\C-c\C-l" 'edebug-where)
3873 map))
3881 (defvar global-edebug-map
3882 (let ((map (make-sparse-keymap)))
3884 (define-key map " " 'edebug-step-mode)
3885 (define-key map "g" 'edebug-go-mode)
3886 (define-key map "G" 'edebug-Go-nonstop-mode)
3887 (define-key map "t" 'edebug-trace-mode)
3888 (define-key map "T" 'edebug-Trace-fast-mode)
3889 (define-key map "c" 'edebug-continue-mode)
3890 (define-key map "C" 'edebug-Continue-fast-mode)
3893 (define-key map "b" 'edebug-set-breakpoint)
3894 (define-key map "u" 'edebug-unset-breakpoint)
3895 (define-key map "x" 'edebug-set-conditional-breakpoint)
3896 (define-key map "X" 'edebug-set-global-break-condition)
3899 (define-key map "w" 'edebug-where)
3900 (define-key map "W" 'edebug-toggle-save-windows)
3903 (define-key map "q" 'top-level)
3904 (define-key map "Q" 'edebug-top-level-nonstop)
3905 (define-key map "a" 'abort-recursive-edit)
3908 (define-key map "=" 'edebug-display-freq-count)
3909 map)
3910 "Global map of edebug commands, available from any buffer.")
3913 (global-set-key global-edebug-prefix global-edebug-map)
3926 in the Edebug buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
3931 \\{edebug-mode-map}
3934 \\{global-edebug-map}
3959 (use-local-map edebug-mode-map))
4069 (defvar edebug-eval-mode-map nil
4072 (unless edebug-eval-mode-map
4073 (setq edebug-eval-mode-map (make-sparse-keymap))
4074 (set-keymap-parent edebug-eval-mode-map lisp-interaction-mode-map)
4076 (define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where)
4077 (define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item)
4078 (define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list)
4079 (define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp)
4080 (define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp))
4090 buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
4093 \\{edebug-eval-mode-map}
4096 \\{global-edebug-map}")
4400 "Condition: " initial read-expression-map t
4406 (easy-menu-define edebug-menu edebug-mode-map "Edebug menus" edebug-mode-menus)
4460 edebug-gensym ;; also in cl.el
4475 cl-macroexpand-all
4482 read-expression-map))
4493 (if (featurep 'cl)
4495 (function (lambda () (require 'cl-specs))))
4496 ;; The following causes cl-specs to be loaded if you load cl.el.
4497 (add-hook 'cl-load-hook
4498 (function (lambda () (require 'cl-specs)))))
4500 ;;; edebug-cl-read and cl-read are available from liberte@cs.uiuc.edu
4501 (if (featurep 'cl-read)
4503 (function (lambda () (require 'edebug-cl-read))))
4504 ;; The following causes edebug-cl-read to be loaded when you load cl-read.el.
4505 (add-hook 'cl-read-load-hooks
4506 (function (lambda () (require 'edebug-cl-read)))))