comparison lisp/progmodes/inf-lisp.el @ 62772:f2892faa87d4

* progmodes/ada-mode.el (ada-mode): * progmodes/antlr-mode.el (antlr-mode): * progmodes/autoconf.el (autoconf-mode): * progmodes/dcl-mode.el (dcl-mode): * progmodes/delphi.el (delphi-mode): * progmodes/ebrowse.el (ebrowse-tree-mode) (ebrowse-electric-list-mode, ebrowse-member-mode) (ebrowse-electric-position-mode): * progmodes/f90.el (f90-mode): * progmodes/fortran.el (fortran-mode): * progmodes/icon.el (icon-mode): * progmodes/idlw-help.el (idlwave-help-mode): * progmodes/idlw-shell.el (idlwave-shell-mode): * progmodes/idlwave.el (idlwave-mode): * progmodes/inf-lisp.el (inferior-lisp-mode): * progmodes/m4-mode.el (m4-mode): * progmodes/meta-mode.el (metafont-mode, metapost-mode): * progmodes/modula2.el (modula-2-mode): * progmodes/octave-inf.el (inferior-octave-mode): * progmodes/octave-mod.el (octave-mode): * progmodes/pascal.el (pascal-mode): * progmodes/sh-script.el (sh-mode): * progmodes/sql.el (sql-mode, sql-interactive-mode): * progmodes/vhdl-mode.el (vhdl-mode): * progmodes/xscheme.el (scheme-interaction-mode): Use run-mode-hooks.

62771:a0b0cf078b7b

  (setq mode-line-process '(":%s"))
  (lisp-mode-variables t)
  (use-local-map inferior-lisp-mode-map)    ;c-c c-k for "kompile" file
  (setq comint-get-old-input (function lisp-get-old-input))
  (setq comint-input-filter (function lisp-input-filter))
  (run-hooks 'inferior-lisp-mode-hook))

(defun lisp-get-old-input ()
  "Return a string containing the sexp ending at point."
  (save-excursion
    (let ((end (point)))

62772:f2892faa87d4

  (setq mode-line-process '(":%s"))
  (lisp-mode-variables t)
  (use-local-map inferior-lisp-mode-map)    ;c-c c-k for "kompile" file
  (setq comint-get-old-input (function lisp-get-old-input))
  (setq comint-input-filter (function lisp-input-filter))
  (run-mode-hooks 'inferior-lisp-mode-hook))

(defun lisp-get-old-input ()
  "Return a string containing the sexp ending at point."
  (save-excursion
    (let ((end (point)))