Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 93034:a155e008f7c7
(emacs-lisp-mode-map): Add menu entries for eldoc and ielm.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 17 Mar 2008 16:19:05 +0000 |
parents | d90ba9c4c093 |
children | ade33d67202c |
comparison
equal
deleted
inserted
replaced
93033:408f1bfeb7e8 | 93034:a155e008f7c7 |
---|---|
277 (set-keymap-parent map lisp-mode-shared-map) | 277 (set-keymap-parent map lisp-mode-shared-map) |
278 (define-key map "\e\t" 'lisp-complete-symbol) | 278 (define-key map "\e\t" 'lisp-complete-symbol) |
279 (define-key map "\e\C-x" 'eval-defun) | 279 (define-key map "\e\C-x" 'eval-defun) |
280 (define-key map "\e\C-q" 'indent-pp-sexp) | 280 (define-key map "\e\C-q" 'indent-pp-sexp) |
281 (define-key map [menu-bar emacs-lisp] (cons "Emacs-Lisp" menu-map)) | 281 (define-key map [menu-bar emacs-lisp] (cons "Emacs-Lisp" menu-map)) |
282 (define-key menu-map [eldoc] | |
283 '(menu-item "Auto-Display Documentation Strings" eldoc-mode | |
284 :button (:toggle . eldoc-mode) | |
285 :help "Display the documentation string for the item under cursor")) | |
286 (define-key menu-map [checkdoc] | |
287 '(menu-item "Check Documentation Strings" checkdoc | |
288 :help "Check documentation strings for style requirements")) | |
282 (define-key menu-map [profiling] (cons "Profiling" prof-map)) | 289 (define-key menu-map [profiling] (cons "Profiling" prof-map)) |
283 (define-key prof-map [prof-restall] | 290 (define-key prof-map [prof-restall] |
284 '(menu-item "Remove Instrumentation for All Functions" elp-restore-all | 291 '(menu-item "Remove Instrumentation for All Functions" elp-restore-all |
285 :help "Restore the original definitions of all functions being profiled")) | 292 :help "Restore the original definitions of all functions being profiled")) |
286 (define-key prof-map [prof-restfunc] | 293 (define-key prof-map [prof-restfunc] |
301 '(menu-item "Instrument Package" elp-instrument-package | 308 '(menu-item "Instrument Package" elp-instrument-package |
302 :help "Instrument for profiling all function that start with a prefix")) | 309 :help "Instrument for profiling all function that start with a prefix")) |
303 (define-key prof-map [prof-func] | 310 (define-key prof-map [prof-func] |
304 '(menu-item "Instrument Function" elp-instrument-function | 311 '(menu-item "Instrument Function" elp-instrument-function |
305 :help "Instrument a function for profiling")) | 312 :help "Instrument a function for profiling")) |
306 (define-key menu-map [checkdoc] | |
307 '(menu-item "Check Documentation Strings" checkdock | |
308 :help "Check documentation strings for style requirements")) | |
309 (define-key menu-map [edebug-defun] | 313 (define-key menu-map [edebug-defun] |
310 '(menu-item "Instrument Function for Debugging" edebug-defun | 314 '(menu-item "Instrument Function for Debugging" edebug-defun |
311 :help "Evaluate the top level form point is in, stepping through with Edebug" | 315 :help "Evaluate the top level form point is in, stepping through with Edebug" |
312 :keys "C-u C-M-x")) | 316 :keys "C-u C-M-x")) |
313 (define-key menu-map [separator-byte] '("--")) | 317 (define-key menu-map [separator-byte] '("--")) |
319 :help "Byte-compile the current file (if it has changed), then load compiled code")) | 323 :help "Byte-compile the current file (if it has changed), then load compiled code")) |
320 (define-key menu-map [byte-compile] | 324 (define-key menu-map [byte-compile] |
321 '(menu-item "Byte-compile This File" emacs-lisp-byte-compile | 325 '(menu-item "Byte-compile This File" emacs-lisp-byte-compile |
322 :help "Byte compile the file containing the current buffer")) | 326 :help "Byte compile the file containing the current buffer")) |
323 (define-key menu-map [separator-eval] '("--")) | 327 (define-key menu-map [separator-eval] '("--")) |
328 (define-key menu-map [ielm] | |
329 '(menu-item "Interactive Expression Evaluation" ielm | |
330 :help "Interactively evaluate Emacs Lisp expressions")) | |
324 (define-key menu-map [eval-buffer] | 331 (define-key menu-map [eval-buffer] |
325 '(menu-item "Evaluate Buffer" eval-buffer | 332 '(menu-item "Evaluate Buffer" eval-buffer |
326 :help "Execute the current buffer as Lisp code")) | 333 :help "Execute the current buffer as Lisp code")) |
327 (define-key menu-map [eval-region] | 334 (define-key menu-map [eval-region] |
328 '(menu-item "Evaluate Region" eval-region | 335 '(menu-item "Evaluate Region" eval-region |