Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 3261:830872ebe096

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-02-26 14:29:08 by michaels] 2006-02-26 Mike Sperber <mike@xemacs.org> * lisp-mode.el (lisp-send-defun): Remove this function; the definition here didn't do anything---once upon a time, it may have gotten overwritten by some code that has evaporated since then.
author michaels
date Sun, 26 Feb 2006 14:29:08 +0000
parents ce294639d321
children 8f1ee2d15784
comparison
equal deleted inserted replaced
3260:020e42010015 3261:830872ebe096
338 () 338 ()
339 ;; XEmacs changes 339 ;; XEmacs changes
340 (setq lisp-mode-map (make-sparse-keymap)) 340 (setq lisp-mode-map (make-sparse-keymap))
341 (set-keymap-name lisp-mode-map 'lisp-mode-map) 341 (set-keymap-name lisp-mode-map 'lisp-mode-map)
342 (set-keymap-parents lisp-mode-map (list shared-lisp-mode-map)) 342 (set-keymap-parents lisp-mode-map (list shared-lisp-mode-map))
343 (define-key lisp-mode-map "\e\C-x" 'lisp-send-defun)
344 ;; gag, no. use ilisp. -jwz 343 ;; gag, no. use ilisp. -jwz
345 ;; (define-key lisp-mode-map "\C-c\C-z" 'run-lisp) 344 ;; (define-key lisp-mode-map "\C-c\C-z" 'run-lisp)
346 ) 345 )
347 346
348 (defun lisp-mode () 347 (defun lisp-mode ()
362 (setq major-mode 'lisp-mode) 361 (setq major-mode 'lisp-mode)
363 (setq mode-name "Lisp") 362 (setq mode-name "Lisp")
364 (lisp-mode-variables t) 363 (lisp-mode-variables t)
365 (set-syntax-table lisp-mode-syntax-table) 364 (set-syntax-table lisp-mode-syntax-table)
366 (run-hooks 'lisp-mode-hook)) 365 (run-hooks 'lisp-mode-hook))
367
368 ;; This will do unless shell.el is loaded.
369 ;; XEmacs change
370 (defun lisp-send-defun ()
371 "Send the current defun to the Lisp process made by \\[run-lisp]."
372 (interactive)
373 (error "Process lisp does not exist"))
374 366
375 ;; XEmacs change: emacs-lisp-mode-map is a more appropriate parent. 367 ;; XEmacs change: emacs-lisp-mode-map is a more appropriate parent.
376 (defvar lisp-interaction-mode-map () 368 (defvar lisp-interaction-mode-map ()
377 "Keymap for Lisp Interaction mode. 369 "Keymap for Lisp Interaction mode.
378 All commands in `shared-lisp-mode-map' are inherited by this map.") 370 All commands in `shared-lisp-mode-map' are inherited by this map.")