# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738478869 0
# Node ID ff7e4f44269d798d274b2c08c28688a64b530392
# Parent  762660cd6d9da96312cea9f5fffbe1585e576fd3
Comment out handling of shell-send-input.
Delete the "local thinking machines" definitions at the end
since they caused compilation failure.

diff -r 762660cd6d9d -r ff7e4f44269d lisp/completion.el
--- a/lisp/completion.el	Thu May 27 04:45:55 1993 +0000
+++ b/lisp/completion.el	Thu May 27 05:01:09 1993 +0000
@@ -5,6 +5,14 @@
 
 ;;; Commentary:
 
+;;; This file is very badly designed in that it redefines
+;;; standard functions of Emacs.  This is bad design, because
+;;; this file cannot be updated to correspond to the latest
+;;; versions of those functions.  Therefore, you must expect
+;;; it to produce unpredictable and undesirable results.
+;;; This file needs to be redesigned to work in a modular fashion.
+;;;  -- rms.
+
 ;;; This is a Completion system for GNU Emacs
 ;;;
 ;;;  E-Mail: 
@@ -2952,8 +2960,8 @@
 ;;;-----------------------------------------------
 (def-completion-wrapper newline :separator)
 (def-completion-wrapper newline-and-indent :separator)
-(if (function-defined-and-loaded 'shell-send-input)
-    (def-completion-wrapper shell-send-input :separator))
+;;;(if (function-defined-and-loaded 'shell-send-input)
+;;;    (def-completion-wrapper shell-send-input :separator))
 (def-completion-wrapper exit-minibuffer :minibuffer-separator)
 (def-completion-wrapper eval-print-last-sexp :separator)
 (def-completion-wrapper eval-last-sexp :separator)
@@ -3100,18 +3108,6 @@
 ;;; Local Thinking Machines stuff
 ;;;-----------------------------------------------
 
-(if (fboundp 'up-ten-lines)
-    (def-completion-wrapper up-ten-lines :under-or-before))
-(if (fboundp 'down-ten-lines)
-    (def-completion-wrapper down-ten-lines :under-or-before))
-(if (fboundp 'tmc-scroll-up)
-    (def-completion-wrapper tmc-scroll-up :under-or-before))
-(if (fboundp 'tmc-scroll-down)
-    (def-completion-wrapper tmc-scroll-down :under-or-before))
-(if (fboundp 'execute-extended-command-and-check-for-bindings)
-    (def-completion-wrapper execute-extended-command-and-check-for-bindings
-	:under-or-before))
-
 ;;; Tests --
 ;;; foobarbiz
 ;;; foobar