# HG changeset patch # User Stefan Monnier <monnier@iro.umontreal.ca> # Date 1035240557 0 # Node ID cdc87bc8e049e2b1f14ec29f84a04ffae843ac14 # Parent 73b8f2ad9e286a057649f50af1eed8c68612edb5 (inferior-emacs-lisp-mode): If hexl not found, use cat. point-min != 1. diff -r 73b8f2ad9e28 -r cdc87bc8e049 lisp/ielm.el --- a/lisp/ielm.el Mon Oct 21 22:45:20 2002 +0000 +++ b/lisp/ielm.el Mon Oct 21 22:49:17 2002 +0000 @@ -419,8 +419,8 @@ "Major mode for interactively evaluating Emacs Lisp expressions. Uses the interface provided by `comint-mode' (which see). -* \\<ielm-map>\\[ielm-send-input] evaluates the sexp following the prompt. There must be at most - one top-level sexp per prompt. +* \\<ielm-map>\\[ielm-send-input] evaluates the sexp following the prompt. There must be at most + one top level sexp per prompt. * \\[ielm-return] inserts a newline and indents, or evaluates a complete expression (but see variable `ielm-dynamic-return'). @@ -499,7 +499,9 @@ (unless (comint-check-proc (current-buffer)) ;; Was cat, but on non-Unix platforms that might not exist, so ;; use hexl instead, which is part of the Emacs distribution. - (start-process "ielm" (current-buffer) "hexl") + (condition-case nil + (start-process "ielm" (current-buffer) "hexl") + (file-error (start-process "ielm" (current-buffer) "cat"))) (process-kill-without-query (ielm-process)) (goto-char (point-max)) @@ -512,7 +514,7 @@ (ielm-set-pm (point-max)) (unless comint-use-prompt-regexp-instead-of-fields (add-text-properties - 1 (point-max) + (point-min) (point-max) '(rear-nonsticky t field output inhibit-line-move-field-capture t))) (comint-output-filter (ielm-process) ielm-prompt) (set-marker comint-last-input-start (ielm-pm))