mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-19 04:21:45 -07:00
Code Issues Projects Releases Wiki Activity

* minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls

Browse source
This commit is contained in:
Jan Djärv 2006-09-02 17:37:26 +00:00
parent 79f6ba1f7a
commit 655ea21ca3
2 changed files with 22 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2006-09-02 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls
2006-09-02 Jindrich Makovicka <makovick@gmail.com> (tiny change)
* fns.c (concat) [__GNUC__]: Declare with

36
src/minibuf.c
View file

@ -1149,24 +1149,6 @@ A user variable is one for which `user-variable-p' returns non-nil. */)
return Fintern (name, Qnil);
}
DEFUN ("internal-complete-buffer", Finternal_complete_buffer, Sinternal_complete_buffer, 3, 3, 0,
doc: /* Perform completion on buffer names.
If the argument FLAG is nil, invoke `try-completion', if it's t, invoke
`all-completions', otherwise invoke `test-completion'.
The arguments STRING and PREDICATE are as in `try-completion',
`all-completions', and `test-completion'. */)
(string, predicate, flag)
Lisp_Object string, predicate, flag;
{
if (NILP (flag))
return Ftry_completion (string, Vbuffer_alist, predicate);
else if (EQ (flag, Qt))
return Fall_completions (string, Vbuffer_alist, predicate, Qt);
else /* assume `lambda' */
return Ftest_completion (string, Vbuffer_alist, predicate);
}
DEFUN ("read-buffer", Fread_buffer, Sread_buffer, 1, 3, 0,
doc: /* Read the name of a buffer and return as a string.
Prompt with PROMPT.
@ -1923,6 +1905,24 @@ the values STRING, PREDICATE and `lambda'. */)
return Qt;
}
DEFUN ("internal-complete-buffer", Finternal_complete_buffer, Sinternal_complete_buffer, 3, 3, 0,
doc: /* Perform completion on buffer names.
If the argument FLAG is nil, invoke `try-completion', if it's t, invoke
`all-completions', otherwise invoke `test-completion'.
The arguments STRING and PREDICATE are as in `try-completion',
`all-completions', and `test-completion'. */)
(string, predicate, flag)
Lisp_Object string, predicate, flag;
{
if (NILP (flag))
return Ftry_completion (string, Vbuffer_alist, predicate);
else if (EQ (flag, Qt))
return Fall_completions (string, Vbuffer_alist, predicate, Qt);
else /* assume `lambda' */
return Ftest_completion (string, Vbuffer_alist, predicate);
}
/* returns:
* 0 no possible completion
* 1 was already an exact and unique completion