comparison lisp/emacs-lisp/lisp-mode.el @ 5103:40b068fb4c37

(lisp-eval-defun): Renamed from lisp-send-defun. (lisp-mode-map): Use new name lisp-eval-defun. Move run-lisp to C-x C-z.

5102:e035ea595cf6

(if lisp-mode-map
    ()
  (setq lisp-mode-map
	(nconc (make-sparse-keymap) shared-lisp-mode-map))
  (define-key lisp-mode-map "\e\C-x" 'lisp-send-defun)
  (define-key lisp-mode-map "\C-c\C-l" 'run-lisp))

(defun lisp-mode ()
  "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp.
Commands:
Delete converts tabs to spaces as it moves back.

  (lisp-mode-variables t)
  (set-syntax-table lisp-mode-syntax-table)
  (run-hooks 'lisp-mode-hook))

;; This will do unless shell.el is loaded.
(defun lisp-send-defun nil
  "Send the current defun to the Lisp process made by \\[run-lisp]."
  (interactive)
  (error "Process lisp does not exist"))

(defvar lisp-interaction-mode-map ()

5103:40b068fb4c37

(if lisp-mode-map
    ()
  (setq lisp-mode-map
	(nconc (make-sparse-keymap) shared-lisp-mode-map))
  (define-key lisp-mode-map "\e\C-x" 'lisp-eval-defun)
  (define-key lisp-mode-map "\C-c\C-z" 'run-lisp))

(defun lisp-mode ()
  "Major mode for editing Lisp code for Lisps other than GNU Emacs Lisp.
Commands:
Delete converts tabs to spaces as it moves back.

  (lisp-mode-variables t)
  (set-syntax-table lisp-mode-syntax-table)
  (run-hooks 'lisp-mode-hook))

;; This will do unless shell.el is loaded.
(defun lisp-eval-defun nil
  "Send the current defun to the Lisp process made by \\[run-lisp]."
  (interactive)
  (error "Process lisp does not exist"))

(defvar lisp-interaction-mode-map ()