198 |
;;; Completion stuff |
;;; Completion stuff |
199 |
|
|
200 |
(defun ielm-tab nil |
(defun ielm-tab nil |
201 |
"Possibly indent the current line as lisp code." |
"Possibly indent the current line as Lisp code." |
202 |
(interactive) |
(interactive) |
203 |
(if (or (eq (preceding-char) ?\n) |
(if (or (eq (preceding-char) ?\n) |
204 |
(eq (char-syntax (preceding-char)) ? )) |
(eq (char-syntax (preceding-char)) ? )) |
207 |
t))) |
t))) |
208 |
|
|
209 |
(defun ielm-complete-symbol nil |
(defun ielm-complete-symbol nil |
210 |
"Complete the lisp symbol before point." |
"Complete the Lisp symbol before point." |
211 |
;; A wrapper for lisp-complete symbol that returns non-nil if |
;; A wrapper for lisp-complete symbol that returns non-nil if |
212 |
;; completion has occurred |
;; completion has occurred |
213 |
(let* ((btick (buffer-modified-tick)) |
(let* ((btick (buffer-modified-tick)) |
528 |
(condition-case nil |
(condition-case nil |
529 |
(start-process "ielm" (current-buffer) "hexl") |
(start-process "ielm" (current-buffer) "hexl") |
530 |
(file-error (start-process "ielm" (current-buffer) "cat"))) |
(file-error (start-process "ielm" (current-buffer) "cat"))) |
531 |
(process-kill-without-query (ielm-process)) |
(set-process-query-on-exit-flag (ielm-process) nil) |
532 |
(goto-char (point-max)) |
(goto-char (point-max)) |
533 |
|
|
534 |
;; Lisp output can include raw characters that confuse comint's |
;; Lisp output can include raw characters that confuse comint's |