summaryrefslogtreecommitdiff
path: root/src/minibuf.c
diff options
context:
space:
mode:
authorJan Djärv <jan.h.d@swipnet.se>2006-09-02 17:37:26 +0000
committerJan Djärv <jan.h.d@swipnet.se>2006-09-02 17:37:26 +0000
commit655ea21ca38fc769588027b2e8097c1edda6f19d (patch)
treee698c59048ebb67777f25a722adf062bfb0e4d5d /src/minibuf.c
parent79f6ba1f7a39b9a5a6b4282caefcefe03e8dc78c (diff)
downloademacs-655ea21ca38fc769588027b2e8097c1edda6f19d.tar.gz
* minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls
Diffstat (limited to 'src/minibuf.c')
-rw-r--r--src/minibuf.c36
1 files changed, 18 insertions, 18 deletions
diff --git a/src/minibuf.c b/src/minibuf.c
index a5ad7077dbe..58da5385728 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -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