mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

Comment out handling of shell-send-input.

Browse Source 
Delete the "local thinking machines" definitions at the end
since they caused compilation failure.
This commit is contained in:
Richard M. Stallman 1993-05-27 05:01:09 +00:00
parent 4455c148a4
commit b22fda6fe5
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/completion.el
View File

@ -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