diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-27 05:01:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-27 05:01:09 +0000 |
| commit | 35ecd2c4d24cc75921c7c4ec5a1087b2522ff1f3 (patch) | |
| tree | a0fee63927d74fc5353ff6668bd9b2a1f5ff9137 /lisp/completion.el | |
| parent | 877b6c210a7e1f8ae3dc95b0bc906695b5a2ec30 (diff) | |
| download | emacs-35ecd2c4d24cc75921c7c4ec5a1087b2522ff1f3.tar.gz | |
Comment out handling of shell-send-input.
Delete the "local thinking machines" definitions at the end
since they caused compilation failure.
Diffstat (limited to 'lisp/completion.el')
| -rw-r--r-- | lisp/completion.el | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/lisp/completion.el b/lisp/completion.el index 8203cbe471b..d6798a04da2 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -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 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." ;;;----------------------------------------------- (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 @@ and KILLP is t if prefix arg is was specified." ;;; 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 |