Mercurial > emacs
comparison lisp/ielm.el @ 43509:d4b9f0aaf4f7
(inferior-emacs-lisp-mode): Use hexl for the dummy process.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 24 Feb 2002 13:14:07 +0000 |
parents | 7c181d033dae |
children | a604392198d7 |
comparison
equal
deleted
inserted
replaced
43508:c092c3c65251 | 43509:d4b9f0aaf4f7 |
---|---|
457 (setq font-lock-defaults | 457 (setq font-lock-defaults |
458 '(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w")))) | 458 '(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w")))) |
459 | 459 |
460 ;; A dummy process to keep comint happy. It will never get any input | 460 ;; A dummy process to keep comint happy. It will never get any input |
461 (if (comint-check-proc (current-buffer)) nil | 461 (if (comint-check-proc (current-buffer)) nil |
462 (start-process "ielm" (current-buffer) "cat") | 462 ;; Was cat, but on non-Unix platforms that might not exist, so |
463 ;; use hexl instead, which is part of the Emacs distribution. | |
464 (start-process "ielm" (current-buffer) "hexl") | |
463 (process-kill-without-query (ielm-process)) | 465 (process-kill-without-query (ielm-process)) |
464 (goto-char (point-max)) | 466 (goto-char (point-max)) |
465 ;; Add a silly header | 467 ;; Add a silly header |
466 (insert ielm-header) | 468 (insert ielm-header) |
467 (ielm-set-pm (point-max)) | 469 (ielm-set-pm (point-max)) |