comparison lisp/emacs-lisp/lisp-mode.el @ 105941:d1bb0f3aad35

* net/eudc.el (eudc-tools-menu): * international/mule-cmds.el (set-coding-system-map) (mule-menu-keymap): * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): * vc-hooks.el (vc-menu-map): Use menu-bar-separator.

105940:f7147d70f6ef

      `(menu-item ,(purecopy "Untrace all") untrace-all
		  :help ,(purecopy "Untrace all currently traced functions")))
    (define-key tracing-map [tr-uf]
      `(menu-item ,(purecopy "Untrace function...") untrace-function
		  :help ,(purecopy "Untrace function, and possibly activate all remaining advice")))
    (define-key tracing-map [tr-sep] '("--"))
    (define-key tracing-map [tr-q]
      `(menu-item ,(purecopy "Trace function quietly...") trace-function-background
		  :help ,(purecopy "Trace the function with trace output going quietly to a buffer")))
    (define-key tracing-map [tr-f]
      `(menu-item ,(purecopy "Trace function...") trace-function

		  :help ,(purecopy "Restore the original definitions of all functions being profiled")))
    (define-key prof-map [prof-restfunc]
      `(menu-item ,(purecopy "Remove Instrumentation for Function...") elp-restore-function
		  :help ,(purecopy "Restore an instrumented function to its original definition")))

    (define-key prof-map [sep-rem] '("--"))
    (define-key prof-map [prof-resall]
      `(menu-item ,(purecopy "Reset Counters for All Functions") elp-reset-all
		  :help ,(purecopy "Reset the profiling information for all functions being profiled")))
    (define-key prof-map [prof-resfunc]
      `(menu-item ,(purecopy "Reset Counters for Function...") elp-reset-function

		  :help ,(purecopy "Lint the function at point")))
    (define-key menu-map [edebug-defun]
      `(menu-item ,(purecopy "Instrument Function for Debugging") edebug-defun
		  :help ,(purecopy "Evaluate the top level form point is in, stepping through with Edebug")
		  :keys ,(purecopy "C-u C-M-x")))
    (define-key menu-map [separator-byte] '("--"))
    (define-key menu-map [disas]
      `(menu-item ,(purecopy "Disassemble byte compiled object...") disassemble
		  :help ,(purecopy "Print disassembled code for OBJECT in a buffer")))
    (define-key menu-map [byte-recompile]
      `(menu-item ,(purecopy "Byte-recompile Directory...") byte-recompile-directory

      `(menu-item ,(purecopy "Byte-compile And Load") emacs-lisp-byte-compile-and-load
		  :help ,(purecopy "Byte-compile the current file (if it has changed), then load compiled code")))
    (define-key menu-map [byte-compile]
      `(menu-item ,(purecopy "Byte-compile This File") emacs-lisp-byte-compile
		  :help ,(purecopy "Byte compile the file containing the current buffer")))
    (define-key menu-map [separator-eval] '("--"))
    (define-key menu-map [ielm]
      `(menu-item ,(purecopy "Interactive Expression Evaluation") ielm
		  :help ,(purecopy "Interactively evaluate Emacs Lisp expressions")))
    (define-key menu-map [eval-buffer]
      `(menu-item ,(purecopy "Evaluate Buffer") eval-buffer

		  :help ,(purecopy "Execute the region as Lisp code")
		  :enable mark-active))
    (define-key menu-map [eval-sexp]
      `(menu-item ,(purecopy "Evaluate Last S-expression") eval-last-sexp
		  :help ,(purecopy "Evaluate sexp before point; print value in minibuffer")))
    (define-key menu-map [separator-format] '("--"))
    (define-key menu-map [comment-region]
      `(menu-item ,(purecopy "Comment Out Region") comment-region
		  :help ,(purecopy "Comment or uncomment each line in the region")
		  :enable mark-active))
    (define-key menu-map [indent-region]
      `(menu-item ,(purecopy "Indent Region") indent-region
		  :help ,(purecopy "Indent each nonblank line in the region")
		  :enable mark-active))
    (define-key menu-map [indent-line] '("Indent Line" . lisp-indent-line))
    map)
  "Keymap for Emacs Lisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map.")

(defun emacs-lisp-byte-compile ()

105941:d1bb0f3aad35

      `(menu-item ,(purecopy "Untrace all") untrace-all
		  :help ,(purecopy "Untrace all currently traced functions")))
    (define-key tracing-map [tr-uf]
      `(menu-item ,(purecopy "Untrace function...") untrace-function
		  :help ,(purecopy "Untrace function, and possibly activate all remaining advice")))
    (define-key tracing-map [tr-sep] menu-bar-separator)
    (define-key tracing-map [tr-q]
      `(menu-item ,(purecopy "Trace function quietly...") trace-function-background
		  :help ,(purecopy "Trace the function with trace output going quietly to a buffer")))
    (define-key tracing-map [tr-f]
      `(menu-item ,(purecopy "Trace function...") trace-function

		  :help ,(purecopy "Restore the original definitions of all functions being profiled")))
    (define-key prof-map [prof-restfunc]
      `(menu-item ,(purecopy "Remove Instrumentation for Function...") elp-restore-function
		  :help ,(purecopy "Restore an instrumented function to its original definition")))

    (define-key prof-map [sep-rem] menu-bar-separator)
    (define-key prof-map [prof-resall]
      `(menu-item ,(purecopy "Reset Counters for All Functions") elp-reset-all
		  :help ,(purecopy "Reset the profiling information for all functions being profiled")))
    (define-key prof-map [prof-resfunc]
      `(menu-item ,(purecopy "Reset Counters for Function...") elp-reset-function

		  :help ,(purecopy "Lint the function at point")))
    (define-key menu-map [edebug-defun]
      `(menu-item ,(purecopy "Instrument Function for Debugging") edebug-defun
		  :help ,(purecopy "Evaluate the top level form point is in, stepping through with Edebug")
		  :keys ,(purecopy "C-u C-M-x")))
    (define-key menu-map [separator-byte] menu-bar-separator)
    (define-key menu-map [disas]
      `(menu-item ,(purecopy "Disassemble byte compiled object...") disassemble
		  :help ,(purecopy "Print disassembled code for OBJECT in a buffer")))
    (define-key menu-map [byte-recompile]
      `(menu-item ,(purecopy "Byte-recompile Directory...") byte-recompile-directory

      `(menu-item ,(purecopy "Byte-compile And Load") emacs-lisp-byte-compile-and-load
		  :help ,(purecopy "Byte-compile the current file (if it has changed), then load compiled code")))
    (define-key menu-map [byte-compile]
      `(menu-item ,(purecopy "Byte-compile This File") emacs-lisp-byte-compile
		  :help ,(purecopy "Byte compile the file containing the current buffer")))
    (define-key menu-map [separator-eval] menu-bar-separator)
    (define-key menu-map [ielm]
      `(menu-item ,(purecopy "Interactive Expression Evaluation") ielm
		  :help ,(purecopy "Interactively evaluate Emacs Lisp expressions")))
    (define-key menu-map [eval-buffer]
      `(menu-item ,(purecopy "Evaluate Buffer") eval-buffer

		  :help ,(purecopy "Execute the region as Lisp code")
		  :enable mark-active))
    (define-key menu-map [eval-sexp]
      `(menu-item ,(purecopy "Evaluate Last S-expression") eval-last-sexp
		  :help ,(purecopy "Evaluate sexp before point; print value in minibuffer")))
    (define-key menu-map [separator-format] menu-bar-separator)
    (define-key menu-map [comment-region]
      `(menu-item ,(purecopy "Comment Out Region") comment-region
		  :help ,(purecopy "Comment or uncomment each line in the region")
		  :enable mark-active))
    (define-key menu-map [indent-region]
      `(menu-item ,(purecopy "Indent Region") indent-region
		  :help ,(purecopy "Indent each nonblank line in the region")
		  :enable mark-active))
    (define-key menu-map [indent-line]
      `(menu-item ,(purecopy "Indent Line") lisp-indent-line))
    map)
  "Keymap for Emacs Lisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map.")

(defun emacs-lisp-byte-compile ()