]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/minibuffer.el (completion-all-sorted-completions): Fix last change
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 19 Apr 2021 19:10:05 +0000 (15:10 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 19 Apr 2021 19:10:05 +0000 (15:10 -0400)
lisp/minibuffer.el

index b98bc6a2b6cbe2d5ef3b2f963c5731ff74b5fc20..4a414aef4e0f6b84855f55b280673f90cb3b5135 100644 (file)
@@ -1411,8 +1411,9 @@ KEYFUN takes an element of ELEMS and should return a numerical value."
                     (cl-incf index))
                   (when (stringp def)
                     (puthash def -1 hash))
-                  (minibuffer--sort-by-key
-                   all (lambda (x) (gethash x hash most-positive-fixnum)))))))
+                  (setq all (minibuffer--sort-by-key
+                             all (lambda (x)
+                                   (gethash x hash most-positive-fixnum))))))))
 
           ;; Cache the result.  This is not just for speed, but also so that
           ;; repeated calls to minibuffer-force-complete can cycle through