Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 104045:1b791c5d1cee
(emacs-lisp-mode-map): Add menu entries
for Lint.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 23 Jul 2009 07:09:28 +0000 |
| parents | ce2fc4a55d15 |
| children | bd9adfb1acc9 |
comparison
equal
deleted
inserted
replaced
| 104044:ba1929fee199 | 104045:1b791c5d1cee |
|---|---|
| 271 "Keymap for commands shared by all sorts of Lisp modes.") | 271 "Keymap for commands shared by all sorts of Lisp modes.") |
| 272 | 272 |
| 273 (defvar emacs-lisp-mode-map | 273 (defvar emacs-lisp-mode-map |
| 274 (let ((map (make-sparse-keymap "Emacs-Lisp")) | 274 (let ((map (make-sparse-keymap "Emacs-Lisp")) |
| 275 (menu-map (make-sparse-keymap "Emacs-Lisp")) | 275 (menu-map (make-sparse-keymap "Emacs-Lisp")) |
| 276 (lint-map (make-sparse-keymap)) | |
| 276 (prof-map (make-sparse-keymap)) | 277 (prof-map (make-sparse-keymap)) |
| 277 (tracing-map (make-sparse-keymap))) | 278 (tracing-map (make-sparse-keymap))) |
| 278 (set-keymap-parent map lisp-mode-shared-map) | 279 (set-keymap-parent map lisp-mode-shared-map) |
| 279 (define-key map "\e\t" 'lisp-complete-symbol) | 280 (define-key map "\e\t" 'lisp-complete-symbol) |
| 280 (define-key map "\e\C-x" 'eval-defun) | 281 (define-key map "\e\C-x" 'eval-defun) |
| 326 '(menu-item "Instrument Package..." elp-instrument-package | 327 '(menu-item "Instrument Package..." elp-instrument-package |
| 327 :help "Instrument for profiling all function that start with a prefix")) | 328 :help "Instrument for profiling all function that start with a prefix")) |
| 328 (define-key prof-map [prof-func] | 329 (define-key prof-map [prof-func] |
| 329 '(menu-item "Instrument Function..." elp-instrument-function | 330 '(menu-item "Instrument Function..." elp-instrument-function |
| 330 :help "Instrument a function for profiling")) | 331 :help "Instrument a function for profiling")) |
| 332 (define-key menu-map [lint] (cons "Lint" lint-map)) | |
| 333 (define-key lint-map [lint-b] | |
| 334 '(menu-item "Lint Buffer" elint-current-buffer | |
| 335 :help "Lint the current buffer")) | |
| 336 (define-key lint-map [lint-d] | |
| 337 '(menu-item "Lint Defun" elint-defun | |
| 338 :help "Lint the function at point")) | |
| 339 (define-key lint-map [lint-in] | |
| 340 '(menu-item "Lint Initialize" elint-initialize | |
| 341 :help "Lint Initialize")) | |
| 331 (define-key menu-map [edebug-defun] | 342 (define-key menu-map [edebug-defun] |
| 332 '(menu-item "Instrument Function for Debugging" edebug-defun | 343 '(menu-item "Instrument Function for Debugging" edebug-defun |
| 333 :help "Evaluate the top level form point is in, stepping through with Edebug" | 344 :help "Evaluate the top level form point is in, stepping through with Edebug" |
| 334 :keys "C-u C-M-x")) | 345 :keys "C-u C-M-x")) |
| 335 (define-key menu-map [separator-byte] '("--")) | 346 (define-key menu-map [separator-byte] '("--")) |