From 66f067937bc07860c3f3a3845c4e0f11febfbf25 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Oct 2002 22:49:17 +0000 Subject: [PATCH] (inferior-emacs-lisp-mode): If hexl not found, use cat. point-min != 1. --- lisp/ielm.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ielm.el b/lisp/ielm.el index d2c015b18bd..5e8be90d797 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -419,8 +419,8 @@ simply inserts a newline." "Major mode for interactively evaluating Emacs Lisp expressions. Uses the interface provided by `comint-mode' (which see). -* \\\\[ielm-send-input] evaluates the sexp following the prompt. There must be at most - one top-level sexp per prompt. +* \\\\[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 @@ Customised bindings may be defined in `ielm-map', which currently contains: (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 @@ Customised bindings may be defined in `ielm-map', which currently contains: (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)) -- 2.39.2