switch-to-buffer's completion table uses its own sorting
* src/minibuf.c (Finternal_complete_buffer): Add Qcycle_sort_function to completion table's metadata. (syms_of_minibuf): New symbol Qcycle_sort_function.
This commit is contained in:
parent
3700375334
commit
55478e4ad7
1 changed files with 5 additions and 1 deletions
|
@ -1801,7 +1801,9 @@ If FLAG is nil, invoke `try-completion'; if it is t, invoke
|
|||
else if (EQ (flag, Qlambda))
|
||||
return Ftest_completion (string, Vbuffer_alist, predicate);
|
||||
else if (EQ (flag, Qmetadata))
|
||||
return list2 (Qmetadata, Fcons (Qcategory, Qbuffer));
|
||||
return list3 (Qmetadata,
|
||||
Fcons (Qcategory, Qbuffer),
|
||||
Fcons (Qcycle_sort_function, Qidentity));
|
||||
else
|
||||
return Qnil;
|
||||
}
|
||||
|
@ -1922,6 +1924,8 @@ syms_of_minibuf (void)
|
|||
DEFSYM (Qactivate_input_method, "activate-input-method");
|
||||
DEFSYM (Qcase_fold_search, "case-fold-search");
|
||||
DEFSYM (Qmetadata, "metadata");
|
||||
DEFSYM (Qcycle_sort_function, "cycle-sort-function");
|
||||
|
||||
/* A frame parameter. */
|
||||
DEFSYM (Qminibuffer_exit, "minibuffer-exit");
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue