From 7d22ed15b7bec3317eaaba55a6248a9e4b76fedc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Oct 1998 23:55:45 +0000 Subject: [PATCH] (completion-fixup-function): Variable deleted. (completion-setup-function): Delete code for completion-fixup-function. --- lisp/simple.el | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index acdc8bba433..a797263e9f5 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3804,13 +3804,6 @@ Use \\\\[mouse-choose-completion] to select one\ (setq completion-base-size nil) (run-hooks 'completion-list-mode-hook)) -(defvar completion-fixup-function nil - "A function to customize how completions are identified in completion lists. -`completion-setup-function' calls this function with no arguments -each time it has found what it thinks is one completion. -Point is at the end of the completion in the completion list buffer. -If this function moves point, it can alter the end of that completion.") - (defvar completion-setup-hook nil "Normal hook run at the end of setting up a completion list buffer. When this hook is run, the current buffer is the one in which the @@ -3848,15 +3841,7 @@ The completion list buffer is available as the value of `standard-output'.") "Click \\[mouse-choose-completion] on a completion to select it.\n"))) (insert (substitute-command-keys "In this buffer, type \\[choose-completion] to \ -select the completion near point.\n\n")) - (forward-line 1) - (while (re-search-forward "[^ \t\n]+\\( [^ \t\n]+\\)*" nil t) - (let ((beg (match-beginning 0)) - (end (point))) - (if completion-fixup-function - (funcall completion-fixup-function)) - (put-text-property beg (point) 'mouse-face 'highlight) - (goto-char end)))))) +select the completion near point.\n\n"))))) (add-hook 'completion-setup-hook 'completion-setup-function) -- 2.39.2