From e323ab22c38944d1c3d0b6e5e2eddf2bd29b580d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 13 Oct 1998 23:56:32 +0000 Subject: [PATCH] (lisp-complete-symbol): Don't bind completion-fixup-function. --- lisp/emacs-lisp/lisp.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index d2effa5d88c..ceedda40fcb 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -316,12 +316,7 @@ function definitions, values or properties are considered." (insert completion)) (t (message "Making completion list...") - (let ((list (all-completions pattern obarray predicate)) - (completion-fixup-function - (function (lambda () (if (save-excursion - (goto-char (max (point-min) (- (point) 4))) - (looking-at " ")) - (forward-char -4)))))) + (let ((list (all-completions pattern obarray predicate))) (setq list (sort list 'string<)) (or (eq predicate 'fboundp) (let (new) -- 2.39.2