# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1157218646 0
# Node ID 760e84d650e1b7f42157c4647d98e01f1443a777
# Parent  de0011d21a6af23e887d3e7c18bb187c25620c18
 * minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls

diff -r de0011d21a6a -r 760e84d650e1 src/ChangeLog
--- a/src/ChangeLog	Sat Sep 02 13:49:52 2006 +0000
+++ b/src/ChangeLog	Sat Sep 02 17:37:26 2006 +0000
@@ -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
diff -r de0011d21a6a -r 760e84d650e1 src/minibuf.c
--- a/src/minibuf.c	Sat Sep 02 13:49:52 2006 +0000
+++ b/src/minibuf.c	Sat Sep 02 17:37:26 2006 +0000
@@ -1149,24 +1149,6 @@
   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 @@
     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