comparison lisp/emacs-lisp/lisp-mode.el @ 93534:8bdec2731742

(emacs-lisp-mode-map): Add menu entries for tracing and re-builder.

93533:851deb208446

  "Keymap for commands shared by all sorts of Lisp modes.")

(defvar emacs-lisp-mode-map 
  (let ((map (make-sparse-keymap "Emacs-Lisp"))
	(menu-map (make-sparse-keymap "Emacs-Lisp"))
	(prof-map (make-sparse-keymap)))
    (set-keymap-parent map lisp-mode-shared-map)
    (define-key map "\e\t" 'lisp-complete-symbol)
    (define-key map "\e\C-x" 'eval-defun)
    (define-key map "\e\C-q" 'indent-pp-sexp)
    (define-key map [menu-bar emacs-lisp] (cons "Emacs-Lisp" menu-map))

		  :button (:toggle . (bound-and-true-p eldoc-mode))
		  :help "Display the documentation string for the item under cursor"))
    (define-key menu-map [checkdoc]
      '(menu-item "Check Documentation Strings" checkdoc
		  :help "Check documentation strings for style requirements"))
    (define-key menu-map [profiling] (cons "Profiling" prof-map))
    (define-key prof-map [prof-restall]
      '(menu-item "Remove Instrumentation for All Functions" elp-restore-all
		  :help "Restore the original definitions of all functions being profiled"))
    (define-key prof-map [prof-restfunc]

93534:8bdec2731742

  "Keymap for commands shared by all sorts of Lisp modes.")

(defvar emacs-lisp-mode-map 
  (let ((map (make-sparse-keymap "Emacs-Lisp"))
	(menu-map (make-sparse-keymap "Emacs-Lisp"))
	(prof-map (make-sparse-keymap))
	(tracing-map (make-sparse-keymap)))
    (set-keymap-parent map lisp-mode-shared-map)
    (define-key map "\e\t" 'lisp-complete-symbol)
    (define-key map "\e\C-x" 'eval-defun)
    (define-key map "\e\C-q" 'indent-pp-sexp)
    (define-key map [menu-bar emacs-lisp] (cons "Emacs-Lisp" menu-map))

		  :button (:toggle . (bound-and-true-p eldoc-mode))
		  :help "Display the documentation string for the item under cursor"))
    (define-key menu-map [checkdoc]
      '(menu-item "Check Documentation Strings" checkdoc
		  :help "Check documentation strings for style requirements"))
    (define-key menu-map [re-builder]
      '(menu-item "Construct Regexp" re-builder
		  :help "Construct a regexp interactively"))
    (define-key menu-map [tracing] (cons "Tracing" tracing-map))
    (define-key tracing-map [tr-a]
      '(menu-item "Untrace all" untrace-all
		  :help "Untraces all currently traced functions"))
    (define-key tracing-map [tr-uf]
      '(menu-item "Untrace function..." untrace-function
		  :help "Untraces FUNCTION and possibly activates all remaining advice"))
    (define-key tracing-map [tr-sep] '("--"))
    (define-key tracing-map [tr-q]
      '(menu-item "Trace function quietly..." trace-function
		  :help "Trace the function with trace output going quietly to a buffer"))
    (define-key tracing-map [tr-f]
      '(menu-item "Trace function..." trace-function
		  :help "Trace the function given as a argument"))
    (define-key menu-map [profiling] (cons "Profiling" prof-map))
    (define-key prof-map [prof-restall]
      '(menu-item "Remove Instrumentation for All Functions" elp-restore-all
		  :help "Restore the original definitions of all functions being profiled"))
    (define-key prof-map [prof-restfunc]