diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-10-13 23:56:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-10-13 23:56:32 +0000 |
| commit | e323ab22c38944d1c3d0b6e5e2eddf2bd29b580d (patch) | |
| tree | 132689e6849a1f48f02385381eac0fecd55ab6b7 /lisp/emacs-lisp/lisp.el | |
| parent | 7d22ed15b7bec3317eaaba55a6248a9e4b76fedc (diff) | |
| download | emacs-e323ab22c38944d1c3d0b6e5e2eddf2bd29b580d.tar.gz emacs-e323ab22c38944d1c3d0b6e5e2eddf2bd29b580d.tar.bz2 emacs-e323ab22c38944d1c3d0b6e5e2eddf2bd29b580d.zip | |
(lisp-complete-symbol): Don't bind completion-fixup-function.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 7 |
1 files changed, 1 insertions, 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 " <f>")) - (forward-char -4)))))) + (let ((list (all-completions pattern obarray predicate))) (setq list (sort list 'string<)) (or (eq predicate 'fboundp) (let (new) |