diff options
| author | Richard M. Stallman | 1996-11-01 08:19:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-11-01 08:19:07 +0000 |
| commit | 030dccec3e4ec39f8f98e0cd87dd20caee19f8be (patch) | |
| tree | e427fc981c713c4db7fb8e15c09bab7da482631d | |
| parent | 23b642258082eabd10b393e93b2546dec0050947 (diff) | |
| download | emacs-030dccec3e4ec39f8f98e0cd87dd20caee19f8be.tar.gz emacs-030dccec3e4ec39f8f98e0cd87dd20caee19f8be.zip | |
(lisp-complete-symbol): Sort the list.
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index fb9443e0788..767c96e620b 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -299,6 +299,7 @@ function definitions, values or properties are considered." | |||
| 299 | (goto-char (max (point-min) (- (point) 4))) | 299 | (goto-char (max (point-min) (- (point) 4))) |
| 300 | (looking-at " <f>")) | 300 | (looking-at " <f>")) |
| 301 | (forward-char -4)))))) | 301 | (forward-char -4)))))) |
| 302 | (setq list (sort list 'string<)) | ||
| 302 | (or (eq predicate 'fboundp) | 303 | (or (eq predicate 'fboundp) |
| 303 | (let (new) | 304 | (let (new) |
| 304 | (while list | 305 | (while list |