2015-12-03 15:27:21 +00:00
|
|
|
;;; ielm.el --- interaction mode for Emacs Lisp -*- lexical-binding: t -*-
|
1996-01-14 07:34:30 +00:00
|
|
|
|
2022-01-01 07:45:51 +00:00
|
|
|
;; Copyright (C) 1994, 2001-2022 Free Software Foundation, Inc.
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;; Author: David Smith <maa036@lancaster.ac.uk>
|
2019-05-25 20:43:06 +00:00
|
|
|
;; Maintainer: emacs-devel@gnu.org
|
1994-05-02 05:16:59 +00:00
|
|
|
;; Created: 25 Feb 1994
|
|
|
|
;; Keywords: lisp
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1994-05-02 05:16:59 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
;; Provides a nice interface to evaluating Emacs Lisp expressions.
|
1994-05-02 05:16:59 +00:00
|
|
|
;; Input is handled by the comint package, and output is passed
|
|
|
|
;; through the pretty-printer.
|
|
|
|
|
|
|
|
;; To start: M-x ielm. Type C-h m in the *ielm* buffer for more info.
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
(require 'comint)
|
|
|
|
(require 'pp)
|
|
|
|
|
|
|
|
;;; User variables
|
|
|
|
|
1997-05-03 19:53:57 +00:00
|
|
|
(defgroup ielm nil
|
|
|
|
"Interaction mode for Emacs Lisp."
|
|
|
|
:group 'lisp)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom ielm-noisy t
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
"If non-nil, IELM will beep on error."
|
2020-05-11 04:12:29 +00:00
|
|
|
:type 'boolean)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2004-04-24 22:58:40 +00:00
|
|
|
(defcustom ielm-prompt-read-only t
|
|
|
|
"If non-nil, the IELM prompt is read only.
|
2004-05-01 20:18:27 +00:00
|
|
|
The read only region includes the newline before the prompt.
|
2004-04-24 22:58:40 +00:00
|
|
|
Setting this variable does not affect existing IELM runs.
|
2004-04-29 03:47:39 +00:00
|
|
|
This works by setting the buffer-local value of `comint-prompt-read-only'.
|
2004-05-01 20:18:27 +00:00
|
|
|
Setting that value directly affects new prompts in the current buffer.
|
|
|
|
|
|
|
|
If this option is enabled, then the safe way to temporarily
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
override the read-only-ness of IELM prompts is to call
|
2004-05-01 20:18:27 +00:00
|
|
|
`comint-kill-whole-line' or `comint-kill-region' with no
|
|
|
|
narrowing in effect. This way you will be certain that none of
|
|
|
|
the remaining prompts will be accidentally messed up. You may
|
2012-09-17 05:41:04 +00:00
|
|
|
wish to put something like the following in your init file:
|
2004-05-01 20:18:27 +00:00
|
|
|
|
Prefer directed to neutral quotes
Prefer directed to neutral quotes in docstings and diagnostics.
In docstrings, escape apostrophes that would otherwise be translated
to curved quotes using the newer, simpler rules.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-lang.el (math-read-giac-subscr)
(math-read-math-subscr):
* lisp/calc/calc-misc.el (report-calc-bug):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/dabbrev.el (dabbrev-expand):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/elint.el (elint-get-top-forms):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emulation/viper-cmd.el (viper-toggle-search-style):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-arg.el (eshell-parse-arguments):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/files-x.el (modify-file-local-variable):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer)
(filesets-update-pre010505):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/gnus/auth-source.el (auth-source-netrc-parse-entries):
* lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer)
(gnus-agent-fetch-headers):
* lisp/gnus/gnus-int.el (gnus-start-news-server):
* lisp/gnus/gnus-registry.el:
(gnus-registry--split-fancy-with-parent-internal):
* lisp/gnus/gnus-score.el (gnus-summary-increase-score):
* lisp/gnus/gnus-start.el (gnus-convert-old-newsrc):
* lisp/gnus/gnus-topic.el (gnus-topic-rename):
* lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/gnus/spam.el (spam-check-blackholes):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/tramp-cache.el:
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-bibtex.el (org-bibtex-fields):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/play/dunnet.el (dun-score, dun-help, dun-endgame-question)
(dun-rooms, dun-endgame-questions):
* lisp/progmodes/ada-mode.el (ada-goto-matching-start):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/antlr-mode.el (antlr-options-alists):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/server.el (server-get-auth-key):
* lisp/subr.el (version-to-list):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/vc/ediff-diff.el (ediff-same-contents):
* lisp/vc/vc-cvs.el (vc-cvs-mode-line-string):
* test/automated/tramp-tests.el (tramp-test33-asynchronous-requests):
Use directed rather than neutral quotes in diagnostics.
2015-08-25 06:39:33 +00:00
|
|
|
\(add-hook \\='ielm-mode-hook
|
2013-10-18 00:55:15 +00:00
|
|
|
(lambda ()
|
Prefer directed to neutral quotes
Prefer directed to neutral quotes in docstings and diagnostics.
In docstrings, escape apostrophes that would otherwise be translated
to curved quotes using the newer, simpler rules.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-lang.el (math-read-giac-subscr)
(math-read-math-subscr):
* lisp/calc/calc-misc.el (report-calc-bug):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/dabbrev.el (dabbrev-expand):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/elint.el (elint-get-top-forms):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emulation/viper-cmd.el (viper-toggle-search-style):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-arg.el (eshell-parse-arguments):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/files-x.el (modify-file-local-variable):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer)
(filesets-update-pre010505):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/gnus/auth-source.el (auth-source-netrc-parse-entries):
* lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer)
(gnus-agent-fetch-headers):
* lisp/gnus/gnus-int.el (gnus-start-news-server):
* lisp/gnus/gnus-registry.el:
(gnus-registry--split-fancy-with-parent-internal):
* lisp/gnus/gnus-score.el (gnus-summary-increase-score):
* lisp/gnus/gnus-start.el (gnus-convert-old-newsrc):
* lisp/gnus/gnus-topic.el (gnus-topic-rename):
* lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/gnus/spam.el (spam-check-blackholes):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/tramp-cache.el:
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-bibtex.el (org-bibtex-fields):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/play/dunnet.el (dun-score, dun-help, dun-endgame-question)
(dun-rooms, dun-endgame-questions):
* lisp/progmodes/ada-mode.el (ada-goto-matching-start):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/antlr-mode.el (antlr-options-alists):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/server.el (server-get-auth-key):
* lisp/subr.el (version-to-list):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/vc/ediff-diff.el (ediff-same-contents):
* lisp/vc/vc-cvs.el (vc-cvs-mode-line-string):
* test/automated/tramp-tests.el (tramp-test33-asynchronous-requests):
Use directed rather than neutral quotes in diagnostics.
2015-08-25 06:39:33 +00:00
|
|
|
(define-key ielm-map \"\\C-w\" \\='comint-kill-region)
|
2013-10-18 00:55:15 +00:00
|
|
|
(define-key ielm-map [C-S-backspace]
|
Prefer directed to neutral quotes
Prefer directed to neutral quotes in docstings and diagnostics.
In docstrings, escape apostrophes that would otherwise be translated
to curved quotes using the newer, simpler rules.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-lang.el (math-read-giac-subscr)
(math-read-math-subscr):
* lisp/calc/calc-misc.el (report-calc-bug):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/dabbrev.el (dabbrev-expand):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* lisp/emacs-lisp/elint.el (elint-get-top-forms):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emulation/viper-cmd.el (viper-toggle-search-style):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-arg.el (eshell-parse-arguments):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/files-x.el (modify-file-local-variable):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer)
(filesets-update-pre010505):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/gnus/auth-source.el (auth-source-netrc-parse-entries):
* lisp/gnus/gnus-agent.el (gnus-agent-check-overview-buffer)
(gnus-agent-fetch-headers):
* lisp/gnus/gnus-int.el (gnus-start-news-server):
* lisp/gnus/gnus-registry.el:
(gnus-registry--split-fancy-with-parent-internal):
* lisp/gnus/gnus-score.el (gnus-summary-increase-score):
* lisp/gnus/gnus-start.el (gnus-convert-old-newsrc):
* lisp/gnus/gnus-topic.el (gnus-topic-rename):
* lisp/gnus/legacy-gnus-agent.el (gnus-agent-unlist-expire-days):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/gnus/spam.el (spam-check-blackholes):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/tramp-cache.el:
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-bibtex.el (org-bibtex-fields):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/play/dunnet.el (dun-score, dun-help, dun-endgame-question)
(dun-rooms, dun-endgame-questions):
* lisp/progmodes/ada-mode.el (ada-goto-matching-start):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/antlr-mode.el (antlr-options-alists):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/server.el (server-get-auth-key):
* lisp/subr.el (version-to-list):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/vc/ediff-diff.el (ediff-same-contents):
* lisp/vc/vc-cvs.el (vc-cvs-mode-line-string):
* test/automated/tramp-tests.el (tramp-test33-asynchronous-requests):
Use directed rather than neutral quotes in diagnostics.
2015-08-25 06:39:33 +00:00
|
|
|
\\='comint-kill-whole-line)))
|
2004-05-01 20:18:27 +00:00
|
|
|
|
|
|
|
If you set `comint-prompt-read-only' to t, you might wish to use
|
|
|
|
`comint-mode-hook' and `comint-mode-map' instead of
|
|
|
|
`ielm-mode-hook' and `ielm-map'. That will affect all comint
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
buffers, including IELM buffers. If you sometimes use IELM on
|
2004-05-01 20:18:27 +00:00
|
|
|
text-only terminals or with `emacs -nw', you might wish to use
|
|
|
|
another binding for `comint-kill-whole-line'."
|
2004-04-24 22:58:40 +00:00
|
|
|
:type 'boolean
|
2005-02-09 15:50:47 +00:00
|
|
|
:version "22.1")
|
2004-04-24 22:58:40 +00:00
|
|
|
|
2002-02-25 16:07:01 +00:00
|
|
|
(defcustom ielm-prompt "ELISP> "
|
2004-04-24 22:58:40 +00:00
|
|
|
"Prompt used in IELM.
|
2004-04-29 03:47:39 +00:00
|
|
|
Setting this variable does not affect existing IELM runs.
|
2004-04-26 02:43:42 +00:00
|
|
|
|
|
|
|
Interrupting the IELM process with \\<ielm-map>\\[comint-interrupt-subjob],
|
|
|
|
and then restarting it using \\[ielm], makes the then current
|
2004-04-29 03:47:39 +00:00
|
|
|
default value affect _new_ prompts. Unless the new prompt
|
2004-04-26 02:43:42 +00:00
|
|
|
differs only in text properties from the old one, IELM will no
|
|
|
|
longer recognize the old prompts. However, executing \\[ielm]
|
|
|
|
does not update the prompt of an *ielm* buffer with a running process.
|
2004-04-26 03:13:43 +00:00
|
|
|
For IELM buffers that are not called `*ielm*', you can execute
|
2004-04-26 02:43:42 +00:00
|
|
|
\\[inferior-emacs-lisp-mode] in that IELM buffer to update the value,
|
|
|
|
for new prompts. This works even if the buffer has a running process."
|
2020-05-11 04:12:29 +00:00
|
|
|
:type 'string)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2004-04-29 03:47:39 +00:00
|
|
|
(defvar ielm-prompt-internal "ELISP> "
|
|
|
|
"Stored value of `ielm-prompt' in the current IELM buffer.
|
|
|
|
This is an internal variable used by IELM. Its purpose is to
|
|
|
|
prevent a running IELM process from being messed up when the user
|
|
|
|
customizes `ielm-prompt'.")
|
|
|
|
|
1997-05-03 19:53:57 +00:00
|
|
|
(defcustom ielm-dynamic-return t
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
"Controls whether \\<ielm-map>\\[ielm-return] has intelligent behavior in IELM.
|
1994-05-02 17:13:42 +00:00
|
|
|
If non-nil, \\[ielm-return] evaluates input for complete sexps, or inserts a newline
|
1997-05-03 19:53:57 +00:00
|
|
|
and indents for incomplete sexps. If nil, always inserts newlines."
|
2020-05-11 04:12:29 +00:00
|
|
|
:type 'boolean)
|
1994-05-02 17:13:42 +00:00
|
|
|
|
1997-05-03 19:53:57 +00:00
|
|
|
(defcustom ielm-dynamic-multiline-inputs t
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
"Force multiline inputs to start from column zero?
|
1994-05-02 17:13:42 +00:00
|
|
|
If non-nil, after entering the first line of an incomplete sexp, a newline
|
|
|
|
will be inserted after the prompt, moving the input to the next line.
|
|
|
|
This gives more frame width for large indented sexps, and allows functions
|
1997-05-03 19:53:57 +00:00
|
|
|
such as `edebug-defun' to work with such inputs."
|
2020-05-11 04:12:29 +00:00
|
|
|
:type 'boolean)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2018-04-20 22:34:39 +00:00
|
|
|
(defvaralias 'inferior-emacs-lisp-mode-hook 'ielm-mode-hook)
|
1997-05-03 19:53:57 +00:00
|
|
|
(defcustom ielm-mode-hook nil
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
"Hooks to be run when IELM (`inferior-emacs-lisp-mode') is started."
|
2014-01-30 07:42:57 +00:00
|
|
|
:options '(eldoc-mode)
|
2020-05-11 04:12:29 +00:00
|
|
|
:type 'hook)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2019-06-20 12:12:42 +00:00
|
|
|
;; We define these symbols (that are only used buffer-locally in ielm
|
|
|
|
;; buffers) this way to avoid having them be defined in the global
|
|
|
|
;; Emacs namespace.
|
2019-06-20 11:44:30 +00:00
|
|
|
(defvar *)
|
2019-06-20 12:12:42 +00:00
|
|
|
(put '* 'variable-documentation "Most recent value evaluated in IELM.")
|
1998-04-29 05:20:31 +00:00
|
|
|
|
2019-06-20 11:44:30 +00:00
|
|
|
(defvar **)
|
2019-06-20 12:12:42 +00:00
|
|
|
(put '** 'variable-documentation "Second-most-recent value evaluated in IELM.")
|
1998-04-29 05:20:31 +00:00
|
|
|
|
2019-06-20 11:44:30 +00:00
|
|
|
(defvar ***)
|
2019-06-20 12:12:42 +00:00
|
|
|
(put '*** 'variable-documentation "Third-most-recent value evaluated in IELM.")
|
2000-10-10 17:27:38 +00:00
|
|
|
|
2002-02-25 07:26:15 +00:00
|
|
|
(defvar ielm-match-data nil
|
|
|
|
"Match data saved at the end of last command.")
|
|
|
|
|
2019-06-20 11:44:30 +00:00
|
|
|
;; During IELM evaluation, *1 is the most recent value evaluated in
|
|
|
|
;; IELM. Normally identical to `*'. However, if the working buffer
|
|
|
|
;; is an IELM buffer, distinct from the process buffer, then `*' gives
|
|
|
|
;; the value in the working buffer, `*1' the value in the process
|
|
|
|
;; buffer. The intended value is only accessible during IELM
|
|
|
|
;; evaluation. *2 and *3 are the same for ** and ***.
|
|
|
|
(defvar *1)
|
|
|
|
(defvar *2)
|
|
|
|
(defvar *3)
|
2002-09-18 16:01:43 +00:00
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;;; System variables
|
|
|
|
|
|
|
|
(defvar ielm-working-buffer nil
|
1994-05-02 17:13:42 +00:00
|
|
|
"Buffer in which IELM sexps will be evaluated.
|
|
|
|
This variable is buffer-local.")
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2000-10-10 17:27:38 +00:00
|
|
|
(defvar ielm-header
|
2021-12-13 01:54:32 +00:00
|
|
|
(substitute-command-keys
|
|
|
|
"*** Welcome to IELM *** Type (describe-mode) or press \
|
|
|
|
\\[describe-mode] for help.\n")
|
1994-05-02 17:13:42 +00:00
|
|
|
"Message to display when IELM is started.")
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2018-04-20 22:34:39 +00:00
|
|
|
(defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
|
2021-12-13 13:14:19 +00:00
|
|
|
(defvar-keymap ielm-map
|
|
|
|
:doc "Keymap for IELM mode."
|
|
|
|
"TAB" #'ielm-tab
|
|
|
|
"RET" #'ielm-return
|
|
|
|
"M-RET" #'ielm-return-for-effect
|
|
|
|
"C-j" #'ielm-send-input
|
|
|
|
"C-M-x" #'eval-defun ; for consistency with
|
|
|
|
"M-TAB" #'completion-at-point ; lisp-interaction-mode
|
|
|
|
;; These bindings are from `lisp-mode-shared-map' -- can you inherit
|
|
|
|
;; from more than one keymap??
|
|
|
|
"C-M-q" #'indent-sexp
|
|
|
|
"DEL" #'backward-delete-char-untabify
|
|
|
|
;; Some convenience bindings for setting the working buffer
|
|
|
|
"C-c C-b" #'ielm-change-working-buffer
|
|
|
|
"C-c C-f" #'ielm-display-working-buffer
|
|
|
|
"C-c C-v" #'ielm-print-working-buffer)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2013-05-23 15:27:48 +00:00
|
|
|
(easy-menu-define ielm-menu ielm-map
|
|
|
|
"IELM mode menu."
|
|
|
|
'("IELM"
|
|
|
|
["Change Working Buffer" ielm-change-working-buffer t]
|
|
|
|
["Display Working Buffer" ielm-display-working-buffer t]
|
|
|
|
["Print Working Buffer" ielm-print-working-buffer t]))
|
|
|
|
|
1995-06-29 23:13:19 +00:00
|
|
|
(defvar ielm-font-lock-keywords
|
2004-04-29 03:47:39 +00:00
|
|
|
'(("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)"
|
1998-02-20 14:58:27 +00:00
|
|
|
(1 font-lock-comment-face)
|
|
|
|
(2 font-lock-constant-face)))
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
"Additional expressions to highlight in IELM buffers.")
|
2000-10-10 17:27:38 +00:00
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;;; Completion stuff
|
|
|
|
|
2014-01-03 05:10:52 +00:00
|
|
|
(defun ielm-tab ()
|
|
|
|
"Indent or complete."
|
1994-05-02 05:16:59 +00:00
|
|
|
(interactive)
|
2014-01-03 05:10:52 +00:00
|
|
|
(if (or (eq (preceding-char) ?\n)
|
|
|
|
(eq (char-syntax (preceding-char)) ?\s))
|
|
|
|
(ielm-indent-line)
|
|
|
|
(completion-at-point)))
|
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
(defun ielm-complete-filename nil
|
1994-05-02 17:13:42 +00:00
|
|
|
"Dynamically complete filename before point, if in a string."
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(when (nth 3 (parse-partial-sexp comint-last-input-start (point)))
|
2014-01-03 05:10:52 +00:00
|
|
|
(comint-filename-completion)))
|
2000-10-10 17:27:38 +00:00
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
(defun ielm-indent-line nil
|
1994-05-02 17:13:42 +00:00
|
|
|
"Indent the current line as Lisp code if it is not a prompt line."
|
2015-10-30 00:04:42 +00:00
|
|
|
(when (save-excursion (comint-bol t) (bolp))
|
1994-05-02 05:16:59 +00:00
|
|
|
(lisp-indent-line)))
|
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
;;; Working buffer manipulation
|
|
|
|
|
|
|
|
(defun ielm-print-working-buffer nil
|
|
|
|
"Print the current IELM working buffer's name in the echo area."
|
|
|
|
(interactive)
|
|
|
|
(message "The current working buffer is: %s" (buffer-name ielm-working-buffer)))
|
|
|
|
|
|
|
|
(defun ielm-display-working-buffer nil
|
|
|
|
"Display the current IELM working buffer.
|
|
|
|
Don't forget that selecting that buffer will change its value of `point'
|
|
|
|
to its value of `window-point'!"
|
|
|
|
(interactive)
|
|
|
|
(display-buffer ielm-working-buffer)
|
|
|
|
(ielm-print-working-buffer))
|
|
|
|
|
|
|
|
(defun ielm-change-working-buffer (buf)
|
|
|
|
"Change the current IELM working buffer to BUF.
|
|
|
|
This is the buffer in which all sexps entered at the IELM prompt are
|
|
|
|
evaluated. You can achieve the same effect with a call to
|
|
|
|
`set-buffer' at the IELM prompt."
|
|
|
|
(interactive "bSet working buffer to: ")
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(let ((buffer (get-buffer buf)))
|
|
|
|
(if (and buffer (buffer-live-p buffer))
|
2013-10-18 00:55:15 +00:00
|
|
|
(setq ielm-working-buffer buffer)
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(error "No such buffer: %S" buf)))
|
1994-05-02 17:13:42 +00:00
|
|
|
(ielm-print-working-buffer))
|
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;;; Other bindings
|
|
|
|
|
2013-10-18 00:55:15 +00:00
|
|
|
(defun ielm-return (&optional for-effect)
|
1994-05-02 17:13:42 +00:00
|
|
|
"Newline and indent, or evaluate the sexp before the prompt.
|
|
|
|
Complete sexps are evaluated; for incomplete sexps inserts a newline
|
|
|
|
and indents. If however `ielm-dynamic-return' is nil, this always
|
|
|
|
simply inserts a newline."
|
1994-05-02 05:16:59 +00:00
|
|
|
(interactive)
|
2000-10-10 17:27:38 +00:00
|
|
|
(if ielm-dynamic-return
|
|
|
|
(let ((state
|
2013-10-18 00:55:15 +00:00
|
|
|
(save-excursion
|
|
|
|
(end-of-line)
|
|
|
|
(parse-partial-sexp (ielm-pm)
|
|
|
|
(point)))))
|
|
|
|
(if (and (< (car state) 1) (not (nth 3 state)))
|
|
|
|
(ielm-send-input for-effect)
|
|
|
|
(when (and ielm-dynamic-multiline-inputs
|
|
|
|
(save-excursion
|
|
|
|
(beginning-of-line)
|
|
|
|
(looking-at-p comint-prompt-regexp)))
|
|
|
|
(save-excursion
|
|
|
|
(goto-char (ielm-pm))
|
|
|
|
(newline 1)))
|
|
|
|
(newline-and-indent)))
|
1994-05-02 05:16:59 +00:00
|
|
|
(newline)))
|
|
|
|
|
2013-10-18 00:55:15 +00:00
|
|
|
(defun ielm-return-for-effect ()
|
|
|
|
"Like `ielm-return', but do not print the result."
|
|
|
|
(interactive)
|
|
|
|
(ielm-return t))
|
|
|
|
|
1997-05-27 20:37:34 +00:00
|
|
|
(defvar ielm-input)
|
|
|
|
|
2011-04-19 13:44:55 +00:00
|
|
|
(defun ielm-input-sender (_proc input)
|
2000-10-10 17:27:38 +00:00
|
|
|
;; Just sets the variable ielm-input, which is in the scope of
|
1994-05-02 17:13:42 +00:00
|
|
|
;; `ielm-send-input's call.
|
1994-05-02 05:16:59 +00:00
|
|
|
(setq ielm-input input))
|
|
|
|
|
2013-10-18 00:55:15 +00:00
|
|
|
(defun ielm-send-input (&optional for-effect)
|
1994-05-02 17:13:42 +00:00
|
|
|
"Evaluate the Emacs Lisp expression after the prompt."
|
1994-05-02 05:16:59 +00:00
|
|
|
(interactive)
|
2013-10-18 00:55:15 +00:00
|
|
|
(let (ielm-input) ; set by ielm-input-sender
|
|
|
|
(comint-send-input) ; update history, markers etc.
|
|
|
|
(ielm-eval-input ielm-input for-effect)))
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;;; Utility functions
|
|
|
|
|
2008-02-15 16:32:39 +00:00
|
|
|
(defun ielm-is-whitespace-or-comment (string)
|
2008-02-16 16:17:37 +00:00
|
|
|
"Return non-nil if STRING is all whitespace or a comment."
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(or (string= string "")
|
|
|
|
(string-match-p "\\`[ \t\n]*\\(?:;.*\\)*\\'" string)))
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;;; Evaluation
|
|
|
|
|
2013-10-18 00:55:15 +00:00
|
|
|
(defun ielm-standard-output-impl (process)
|
|
|
|
"Return a function to use for `standard-output' while in ielm eval.
|
|
|
|
The returned function takes one character as input. Passing nil
|
|
|
|
to this function instead of a character flushes the output
|
|
|
|
buffer. Passing t appends a terminating newline if the buffer is
|
|
|
|
nonempty, then flushes the buffer."
|
|
|
|
;; Use an intermediate output buffer because doing redisplay for
|
|
|
|
;; each character we output is too expensive. Set up a flush timer
|
|
|
|
;; so that users don't have to wait for whole lines to appear before
|
|
|
|
;; seeing output.
|
|
|
|
(let* ((output-buffer nil)
|
|
|
|
(flush-timer nil)
|
|
|
|
(flush-buffer
|
|
|
|
(lambda ()
|
|
|
|
(comint-output-filter
|
|
|
|
process
|
|
|
|
(apply #'string (nreverse output-buffer)))
|
|
|
|
(redisplay)
|
|
|
|
(setf output-buffer nil)
|
|
|
|
(when flush-timer
|
|
|
|
(cancel-timer flush-timer)
|
|
|
|
(setf flush-timer nil)))))
|
|
|
|
(lambda (char)
|
|
|
|
(let (flush-now)
|
|
|
|
(cond ((and (eq char t) output-buffer)
|
|
|
|
(push ?\n output-buffer)
|
|
|
|
(setf flush-now t))
|
|
|
|
((characterp char)
|
|
|
|
(push char output-buffer)))
|
|
|
|
(if flush-now
|
|
|
|
(funcall flush-buffer)
|
|
|
|
(unless flush-timer
|
|
|
|
(setf flush-timer (run-with-timer 0.1 nil flush-buffer))))))))
|
|
|
|
|
|
|
|
(defun ielm-eval-input (input-string &optional for-effect)
|
2011-04-19 13:44:55 +00:00
|
|
|
"Evaluate the Lisp expression INPUT-STRING, and pretty-print the result."
|
1994-05-02 05:16:59 +00:00
|
|
|
;; This is the function that actually `sends' the input to the
|
1994-05-02 17:13:42 +00:00
|
|
|
;; `inferior Lisp process'. All comint-send-input does is works out
|
1994-05-02 05:16:59 +00:00
|
|
|
;; what that input is. What this function does is evaluates that
|
|
|
|
;; input and produces `output' which gets inserted into the buffer,
|
|
|
|
;; along with a new prompt. A better way of doing this might have
|
|
|
|
;; been to actually send the output to the `cat' process, and write
|
|
|
|
;; this as in output filter that converted sexps in the output
|
|
|
|
;; stream to their evaluated value. But that would have involved
|
|
|
|
;; more process coordination than I was happy to deal with.
|
2013-10-18 00:55:15 +00:00
|
|
|
(let ((string input-string) ; input expression, as a string
|
|
|
|
form ; form to evaluate
|
|
|
|
pos ; End posn of parse in string
|
|
|
|
result ; Result, or error message
|
|
|
|
error-type ; string, nil if no error
|
|
|
|
(output "") ; result to display
|
|
|
|
(wbuf ielm-working-buffer) ; current buffer after evaluation
|
|
|
|
(pmark (ielm-pm)))
|
|
|
|
(unless (ielm-is-whitespace-or-comment string)
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(condition-case err
|
2013-10-18 00:55:15 +00:00
|
|
|
(let ((rout (read-from-string string)))
|
|
|
|
(setq form (car rout)
|
|
|
|
pos (cdr rout)))
|
|
|
|
(error (setq result (error-message-string err))
|
|
|
|
(setq error-type "Read error")))
|
|
|
|
(unless error-type
|
|
|
|
;; Make sure working buffer has not been killed
|
|
|
|
(if (not (buffer-name ielm-working-buffer))
|
|
|
|
(setq result "Working buffer has been killed"
|
|
|
|
error-type "IELM Error"
|
|
|
|
wbuf (current-buffer))
|
|
|
|
(if (ielm-is-whitespace-or-comment (substring string pos))
|
|
|
|
;; To correctly handle the ielm-local variables *,
|
|
|
|
;; ** and ***, we need a temporary buffer to be
|
|
|
|
;; current at entry to the inner of the next two let
|
|
|
|
;; forms. We need another temporary buffer to exit
|
|
|
|
;; that same let. To avoid problems, neither of
|
|
|
|
;; these buffers should be alive during the
|
|
|
|
;; evaluation of form.
|
2020-05-11 04:12:29 +00:00
|
|
|
(let* ((*1 (bound-and-true-p *))
|
|
|
|
(*2 (bound-and-true-p **))
|
|
|
|
(*3 (bound-and-true-p ***))
|
2013-10-18 00:55:15 +00:00
|
|
|
(active-process (ielm-process))
|
|
|
|
(old-standard-output standard-output)
|
2014-12-05 18:34:42 +00:00
|
|
|
new-standard-output
|
2013-10-18 00:55:15 +00:00
|
|
|
ielm-temp-buffer)
|
|
|
|
(set-match-data ielm-match-data)
|
|
|
|
(save-excursion
|
|
|
|
(with-temp-buffer
|
2018-01-20 17:51:06 +00:00
|
|
|
(condition-case-unless-debug err
|
2013-10-18 00:55:15 +00:00
|
|
|
(unwind-protect
|
|
|
|
;; The next let form creates default
|
|
|
|
;; bindings for *, ** and ***. But
|
|
|
|
;; these default bindings are
|
|
|
|
;; identical to the ielm-local
|
|
|
|
;; bindings. Hence, during the
|
|
|
|
;; evaluation of form, the
|
|
|
|
;; ielm-local values are going to be
|
|
|
|
;; used in all buffers except for
|
|
|
|
;; other ielm buffers, which override
|
|
|
|
;; them. Normally, the variables *1,
|
|
|
|
;; *2 and *3 also have default
|
|
|
|
;; bindings, which are not overridden.
|
|
|
|
(let ((* *1)
|
|
|
|
(** *2)
|
|
|
|
(*** *3))
|
|
|
|
(when (eq standard-output t)
|
|
|
|
(setf new-standard-output
|
|
|
|
(ielm-standard-output-impl
|
|
|
|
active-process))
|
|
|
|
(setf standard-output new-standard-output))
|
|
|
|
(kill-buffer (current-buffer))
|
|
|
|
(set-buffer wbuf)
|
|
|
|
(setq result
|
|
|
|
(eval form lexical-binding))
|
|
|
|
(setq wbuf (current-buffer))
|
|
|
|
(setq
|
|
|
|
ielm-temp-buffer
|
|
|
|
(generate-new-buffer " *ielm-temp*"))
|
|
|
|
(set-buffer ielm-temp-buffer))
|
|
|
|
(when ielm-temp-buffer
|
|
|
|
(kill-buffer ielm-temp-buffer))
|
|
|
|
(when (eq new-standard-output standard-output)
|
|
|
|
(ignore-errors
|
|
|
|
(funcall standard-output t))
|
|
|
|
(setf standard-output old-standard-output)))
|
|
|
|
(error (setq result (error-message-string err))
|
|
|
|
(setq error-type "Eval error"))
|
|
|
|
(quit (setq result "Quit during evaluation")
|
|
|
|
(setq error-type "Eval error")))))
|
|
|
|
(setq ielm-match-data (match-data)))
|
|
|
|
(setq error-type "IELM error")
|
|
|
|
(setq result "More than one sexp in input"))))
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
|
|
|
|
;; If the eval changed the current buffer, mention it here
|
2013-10-18 00:55:15 +00:00
|
|
|
(unless (eq wbuf ielm-working-buffer)
|
|
|
|
(message "current buffer is now: %s" wbuf)
|
|
|
|
(setq ielm-working-buffer wbuf))
|
|
|
|
|
|
|
|
(goto-char pmark)
|
|
|
|
(unless error-type
|
2018-01-15 22:04:05 +00:00
|
|
|
(condition-case err
|
2013-10-18 00:55:15 +00:00
|
|
|
;; Self-referential objects cause loops in the printer, so
|
|
|
|
;; trap quits here. May as well do errors, too
|
|
|
|
(unless for-effect
|
2018-01-15 22:04:05 +00:00
|
|
|
(let* ((ielmbuf (current-buffer))
|
|
|
|
(aux (let ((str (eval-expression-print-format result)))
|
|
|
|
(if str (propertize str 'font-lock-face 'shadow)))))
|
|
|
|
(setq output (with-temp-buffer
|
|
|
|
(let ((tmpbuf (current-buffer)))
|
|
|
|
;; Use print settings (e.g. print-circle,
|
|
|
|
;; print-gensym, etc...) from the
|
|
|
|
;; right buffer!
|
|
|
|
(with-current-buffer ielmbuf
|
|
|
|
(cl-prin1 result tmpbuf))
|
|
|
|
(pp-buffer)
|
|
|
|
(concat (buffer-string) aux))))))
|
|
|
|
(error
|
|
|
|
(setq error-type "IELM Error")
|
2021-09-04 08:38:50 +00:00
|
|
|
(setq result (format "Error during pretty-printing: %S" err)))
|
2013-10-18 00:55:15 +00:00
|
|
|
(quit (setq error-type "IELM Error")
|
|
|
|
(setq result "Quit during pretty-printing"))))
|
|
|
|
(if error-type
|
|
|
|
(progn
|
|
|
|
(when ielm-noisy (ding))
|
2020-05-11 04:12:29 +00:00
|
|
|
(setq output (concat output
|
|
|
|
"*** " error-type " *** "
|
|
|
|
result)))
|
2013-10-18 00:55:15 +00:00
|
|
|
;; There was no error, so shift the *** values
|
2020-05-11 04:12:29 +00:00
|
|
|
(setq *** (bound-and-true-p **))
|
|
|
|
(setq ** (bound-and-true-p *))
|
2013-10-18 00:55:15 +00:00
|
|
|
(setq * result))
|
|
|
|
(when (or (not for-effect) (not (equal output "")))
|
|
|
|
(setq output (concat output "\n"))))
|
|
|
|
(setq output (concat output ielm-prompt-internal))
|
|
|
|
(comint-output-filter (ielm-process) output)))
|
1994-05-02 05:16:59 +00:00
|
|
|
|
|
|
|
;;; Process and marker utilities
|
|
|
|
|
|
|
|
(defun ielm-process nil
|
1994-05-02 17:13:42 +00:00
|
|
|
;; Return the current buffer's process.
|
1994-05-02 05:16:59 +00:00
|
|
|
(get-buffer-process (current-buffer)))
|
|
|
|
|
|
|
|
(defun ielm-pm nil
|
1994-05-02 17:13:42 +00:00
|
|
|
;; Return the process mark of the current buffer.
|
1994-05-02 05:16:59 +00:00
|
|
|
(process-mark (get-buffer-process (current-buffer))))
|
|
|
|
|
|
|
|
(defun ielm-set-pm (pos)
|
1994-05-02 17:13:42 +00:00
|
|
|
;; Set the process mark in the current buffer to POS.
|
1994-05-02 05:16:59 +00:00
|
|
|
(set-marker (process-mark (get-buffer-process (current-buffer))) pos))
|
|
|
|
|
2022-09-09 18:11:33 +00:00
|
|
|
;;; Input fontification
|
|
|
|
|
|
|
|
(defcustom ielm-comint-fl-enable t
|
2022-09-11 10:59:02 +00:00
|
|
|
"Enable fontification of input in ielm buffers.
|
2022-09-09 18:11:33 +00:00
|
|
|
This variable only has effect when creating an ielm buffer. Use
|
2022-09-11 10:59:02 +00:00
|
|
|
the command `comint-fl-mode' to toggle fontification of input in
|
2022-09-09 18:11:33 +00:00
|
|
|
an already existing ielm buffer."
|
|
|
|
:type 'boolean
|
|
|
|
:safe 'booleanp
|
|
|
|
:version "29.1")
|
|
|
|
|
|
|
|
(defcustom ielm-indirect-setup-hook nil
|
2022-09-11 10:59:02 +00:00
|
|
|
"Hook run in an indirect buffer for input fontification.
|
|
|
|
Input fontification and indentation of an IELM buffer, if
|
|
|
|
enabled, is performed in an indirect buffer, whose indentation
|
|
|
|
and syntax highlighting are set up with `emacs-lisp-mode'. In
|
|
|
|
addition to `comint-indirect-setup-hook', run this hook with the
|
|
|
|
indirect buffer as the current buffer after its setup is done.
|
|
|
|
This can be used to further customize fontification and other
|
2022-09-29 13:19:01 +00:00
|
|
|
behavior of the indirect buffer."
|
2022-09-09 18:11:33 +00:00
|
|
|
:type 'boolean
|
|
|
|
:safe 'booleanp
|
|
|
|
:version "29.1")
|
|
|
|
|
|
|
|
(defun ielm-indirect-setup-hook ()
|
|
|
|
"Run `ielm-indirect-setup-hook'."
|
|
|
|
(run-hooks 'ielm-indirect-setup-hook))
|
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;;; Major mode
|
|
|
|
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(define-derived-mode inferior-emacs-lisp-mode comint-mode "IELM"
|
1994-05-02 17:13:42 +00:00
|
|
|
"Major mode for interactively evaluating Emacs Lisp expressions.
|
|
|
|
Uses the interface provided by `comint-mode' (which see).
|
|
|
|
|
2002-10-21 22:49:17 +00:00
|
|
|
* \\<ielm-map>\\[ielm-send-input] evaluates the sexp following the prompt. There must be at most
|
|
|
|
one top level sexp per prompt.
|
1994-05-02 05:16:59 +00:00
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
* \\[ielm-return] inserts a newline and indents, or evaluates a
|
|
|
|
complete expression (but see variable `ielm-dynamic-return').
|
|
|
|
Inputs longer than one line are moved to the line following the
|
|
|
|
prompt (but see variable `ielm-dynamic-multiline-inputs').
|
|
|
|
|
2013-10-18 00:55:15 +00:00
|
|
|
* \\[ielm-return-for-effect] works like `ielm-return', except
|
|
|
|
that it doesn't print the result of evaluating the input. This
|
|
|
|
functionality is useful when forms would generate voluminous
|
|
|
|
output.
|
|
|
|
|
2013-05-30 03:30:34 +00:00
|
|
|
* \\[completion-at-point] completes Lisp symbols (or filenames, within strings),
|
1994-05-02 17:13:42 +00:00
|
|
|
or indents the line if there is nothing to complete.
|
1994-05-02 05:16:59 +00:00
|
|
|
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
The current working buffer may be changed (with a call to `set-buffer',
|
|
|
|
or with \\[ielm-change-working-buffer]), and its value is preserved between successive
|
|
|
|
evaluations. In this way, expressions may be evaluated in a different
|
|
|
|
buffer than the *ielm* buffer. By default, its name is shown on the
|
|
|
|
mode line; you can always display it with \\[ielm-print-working-buffer], or the buffer itself
|
|
|
|
with \\[ielm-display-working-buffer].
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2002-09-18 16:01:43 +00:00
|
|
|
During evaluations, the values of the variables `*', `**', and `***'
|
|
|
|
are the results of the previous, second previous and third previous
|
|
|
|
evaluations respectively. If the working buffer is another IELM
|
|
|
|
buffer, then the values in the working buffer are used. The variables
|
|
|
|
`*1', `*2' and `*3', yield the process buffer values.
|
|
|
|
|
2015-05-21 17:04:45 +00:00
|
|
|
If, at the start of evaluation, `standard-output' is t (the
|
2013-10-18 00:55:15 +00:00
|
|
|
default), `standard-output' is set to a special function that
|
|
|
|
causes output to be directed to the ielm buffer.
|
|
|
|
`standard-output' is restored after evaluation unless explicitly
|
|
|
|
set to a different value during evaluation. You can use (princ
|
|
|
|
VALUE) or (pp VALUE) to write to the ielm buffer.
|
|
|
|
|
2005-06-10 14:04:24 +00:00
|
|
|
The behavior of IELM may be customized with the following variables:
|
2004-04-23 21:33:38 +00:00
|
|
|
* To stop beeping on error, set `ielm-noisy' to nil.
|
1994-05-02 05:16:59 +00:00
|
|
|
* If you don't like the prompt, you can change it by setting `ielm-prompt'.
|
2004-04-24 22:58:40 +00:00
|
|
|
* If you do not like that the prompt is (by default) read-only, set
|
|
|
|
`ielm-prompt-read-only' to nil.
|
2004-04-23 21:33:38 +00:00
|
|
|
* Set `ielm-dynamic-return' to nil for bindings like `lisp-interaction-mode'.
|
1994-05-02 05:16:59 +00:00
|
|
|
* Entry to this mode runs `comint-mode-hook' and `ielm-mode-hook'
|
|
|
|
(in that order).
|
|
|
|
|
2004-04-23 21:33:38 +00:00
|
|
|
Customized bindings may be defined in `ielm-map', which currently contains:
|
1994-05-02 05:16:59 +00:00
|
|
|
\\{ielm-map}"
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
:syntax-table emacs-lisp-mode-syntax-table
|
2022-09-09 18:11:33 +00:00
|
|
|
:after-hook
|
|
|
|
(and (null comint-use-prompt-regexp)
|
|
|
|
ielm-comint-fl-enable
|
|
|
|
(comint-fl-mode))
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
(setq comint-prompt-regexp (concat "^" (regexp-quote ielm-prompt)))
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local paragraph-separate "\\'")
|
|
|
|
(setq-local paragraph-start comint-prompt-regexp)
|
1994-05-02 05:16:59 +00:00
|
|
|
(setq comint-input-sender 'ielm-input-sender)
|
|
|
|
(setq comint-process-echoes nil)
|
2020-11-04 05:24:45 +00:00
|
|
|
(dolist (f '(elisp-completion-at-point
|
|
|
|
ielm-complete-filename
|
|
|
|
comint-replace-by-expanded-history))
|
|
|
|
(add-hook 'completion-at-point-functions f nil t))
|
2020-02-25 22:53:04 +00:00
|
|
|
(add-hook 'eldoc-documentation-functions
|
2020-07-23 20:05:26 +00:00
|
|
|
#'elisp-eldoc-var-docstring nil t)
|
|
|
|
(add-hook 'eldoc-documentation-functions
|
|
|
|
#'elisp-eldoc-funcall nil t)
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local ielm-prompt-internal ielm-prompt)
|
|
|
|
(setq-local comint-prompt-read-only ielm-prompt-read-only)
|
1994-05-02 17:13:42 +00:00
|
|
|
(setq comint-get-old-input 'ielm-get-old-input)
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local comint-completion-addsuffix '("/" . ""))
|
2004-04-25 17:18:00 +00:00
|
|
|
(setq mode-line-process '(":%s on " (:eval (buffer-name ielm-working-buffer))))
|
2013-05-23 15:27:48 +00:00
|
|
|
;; Useful for `hs-minor-mode'.
|
|
|
|
(setq-local comment-start ";")
|
2014-02-10 02:53:15 +00:00
|
|
|
(setq-local comment-use-syntax t)
|
2019-04-25 18:36:03 +00:00
|
|
|
(setq-local lexical-binding t)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local indent-line-function #'ielm-indent-line)
|
|
|
|
(setq-local ielm-working-buffer (current-buffer))
|
|
|
|
(setq-local fill-paragraph-function #'lisp-fill-paragraph)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
;; Value holders
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local * nil)
|
|
|
|
(setq-local ** nil)
|
|
|
|
(setq-local *** nil)
|
|
|
|
(setq-local ielm-match-data nil)
|
1994-05-02 05:16:59 +00:00
|
|
|
|
1995-06-29 23:13:19 +00:00
|
|
|
;; font-lock support
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local font-lock-defaults
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
'(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w"))))
|
2000-10-10 17:27:38 +00:00
|
|
|
|
2022-09-09 18:11:33 +00:00
|
|
|
(add-hook 'comint-indirect-setup-hook
|
|
|
|
#'ielm-indirect-setup-hook 'append t)
|
|
|
|
(setq comint-indirect-setup-function #'emacs-lisp-mode)
|
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;; A dummy process to keep comint happy. It will never get any input
|
2002-08-19 05:03:55 +00:00
|
|
|
(unless (comint-check-proc (current-buffer))
|
2002-02-24 13:14:07 +00:00
|
|
|
;; Was cat, but on non-Unix platforms that might not exist, so
|
|
|
|
;; use hexl instead, which is part of the Emacs distribution.
|
2002-10-21 22:49:17 +00:00
|
|
|
(condition-case nil
|
2013-10-18 00:55:15 +00:00
|
|
|
(start-process "ielm" (current-buffer) "hexl")
|
2002-10-21 22:49:17 +00:00
|
|
|
(file-error (start-process "ielm" (current-buffer) "cat")))
|
2004-08-25 18:40:22 +00:00
|
|
|
(set-process-query-on-exit-flag (ielm-process) nil)
|
1994-05-02 05:16:59 +00:00
|
|
|
(goto-char (point-max))
|
2003-02-04 11:26:42 +00:00
|
|
|
|
2002-08-19 05:03:55 +00:00
|
|
|
;; Lisp output can include raw characters that confuse comint's
|
|
|
|
;; carriage control code.
|
2020-12-07 10:19:15 +00:00
|
|
|
(setq-local comint-inhibit-carriage-motion t)
|
2002-08-19 05:03:55 +00:00
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;; Add a silly header
|
|
|
|
(insert ielm-header)
|
|
|
|
(ielm-set-pm (point-max))
|
2005-04-26 23:26:20 +00:00
|
|
|
(unless comint-use-prompt-regexp
|
2004-04-25 17:18:00 +00:00
|
|
|
(let ((inhibit-read-only t))
|
|
|
|
(add-text-properties
|
|
|
|
(point-min) (point-max)
|
|
|
|
'(rear-nonsticky t field output inhibit-line-move-field-capture t))))
|
2004-04-29 03:47:39 +00:00
|
|
|
(comint-output-filter (ielm-process) ielm-prompt-internal)
|
1994-05-02 05:16:59 +00:00
|
|
|
(set-marker comint-last-input-start (ielm-pm))
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter)))
|
1994-05-02 05:16:59 +00:00
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
(defun ielm-get-old-input nil
|
|
|
|
;; Return the previous input surrounding point
|
|
|
|
(save-excursion
|
|
|
|
(beginning-of-line)
|
* ielm.el (ielm-noisy, ielm-dynamic-return, ielm-mode-hook)
(ielm-dynamic-multiline-inputs): Remove * from defcustom docstrings.
(ielm-prompt-read-only, ielm-font-lock-keywords): Fix docstring typos.
(ielm-map): Define within defvar. Add docstring.
(ielm-tab, ielm-eval-input, ielm-get-old-input, ielm-return)
(ielm-complete-filename): Use `when', `unless'.
(ielm-is-whitespace-or-comment): Use `string-match-p'.
(ielm-return, ielm-get-old-input): Use `looking-at-p'.
(ielm-change-working-buffer): Check that the buffer is live.
(inferior-emacs-lisp-mode): Define with `define-derived-mode'.
Simplify. Reflow docstring.
(inferior-emacs-lisp-mode-hook, inferior-emacs-lisp-mode-map):
New aliases, to satisfy `define-derived-mode' expectations.
2008-11-16 04:54:05 +00:00
|
|
|
(unless (looking-at-p comint-prompt-regexp)
|
1994-05-02 17:13:42 +00:00
|
|
|
(re-search-backward comint-prompt-regexp))
|
|
|
|
(comint-skip-prompt)
|
|
|
|
(buffer-substring (point) (progn (forward-sexp 1) (point)))))
|
|
|
|
|
1994-05-02 05:16:59 +00:00
|
|
|
;;; User command
|
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
;;;###autoload
|
2018-07-21 11:00:11 +00:00
|
|
|
(defun ielm (&optional buf-name)
|
1994-05-02 17:13:42 +00:00
|
|
|
"Interactively evaluate Emacs Lisp expressions.
|
2018-07-21 11:00:11 +00:00
|
|
|
Switches to the buffer named BUF-NAME if provided (`*ielm*' by default),
|
|
|
|
or creates it if it does not exist.
|
2013-10-18 00:55:15 +00:00
|
|
|
See `inferior-emacs-lisp-mode' for details."
|
1994-05-02 05:16:59 +00:00
|
|
|
(interactive)
|
2018-07-21 11:00:11 +00:00
|
|
|
(let (old-point
|
|
|
|
(buf-name (or buf-name "*ielm*")))
|
|
|
|
(unless (comint-check-proc buf-name)
|
|
|
|
(with-current-buffer (get-buffer-create buf-name)
|
2013-10-18 00:55:15 +00:00
|
|
|
(unless (zerop (buffer-size)) (setq old-point (point)))
|
|
|
|
(inferior-emacs-lisp-mode)))
|
2018-07-21 11:00:11 +00:00
|
|
|
(pop-to-buffer-same-window buf-name)
|
2004-04-26 02:43:42 +00:00
|
|
|
(when old-point (push-mark old-point))))
|
1994-05-02 05:16:59 +00:00
|
|
|
|
1997-06-22 18:57:55 +00:00
|
|
|
(provide 'ielm)
|
|
|
|
|
1994-05-02 17:13:42 +00:00
|
|
|
;;; ielm.el ends here
|