[Emacs-diffs] Changes to emacs/lisp/ielm.el

[John Paul Wallington]

Index: emacs/lisp/ielm.el
diff -c emacs/lisp/ielm.el:1.43 emacs/lisp/ielm.el:1.44
*** emacs/lisp/ielm.el:1.43     Sat May  1 20:15:57 2004
--- emacs/lisp/ielm.el  Wed Aug 25 18:40:22 2004
***************
*** 198,204 ****
  ;;; Completion stuff
  
  (defun ielm-tab nil
!   "Possibly indent the current line as lisp code."
    (interactive)
    (if (or (eq (preceding-char) ?\n)
          (eq (char-syntax (preceding-char)) ? ))
--- 198,204 ----
  ;;; Completion stuff
  
  (defun ielm-tab nil
!   "Possibly indent the current line as Lisp code."
    (interactive)
    (if (or (eq (preceding-char) ?\n)
          (eq (char-syntax (preceding-char)) ? ))
***************
*** 207,213 ****
        t)))
  
  (defun ielm-complete-symbol nil
!   "Complete the lisp symbol before point."
    ;; A wrapper for lisp-complete symbol that returns non-nil if
    ;; completion has occurred
    (let* ((btick (buffer-modified-tick))
--- 207,213 ----
        t)))
  
  (defun ielm-complete-symbol nil
!   "Complete the Lisp symbol before point."
    ;; A wrapper for lisp-complete symbol that returns non-nil if
    ;; completion has occurred
    (let* ((btick (buffer-modified-tick))
***************
*** 528,534 ****
      (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))
  
      ;; Lisp output can include raw characters that confuse comint's
--- 528,534 ----
      (condition-case nil
        (start-process "ielm" (current-buffer) "hexl")
        (file-error (start-process "ielm" (current-buffer) "cat")))
!     (set-process-query-on-exit-flag (ielm-process) nil)
      (goto-char (point-max))
  
      ;; Lisp output can include raw characters that confuse comint's