# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 829670641 0
# Node ID fef6a7e70bf4d876c813e7d651a6cde074a3ece8
# Parent  257fd294d7cbeb0528bd5ed85982a166340af3aa
Provide `completion'.
(cmpl-make-standard-completion-syntax-table): Initialize
all chars (to whitespace if nothing else).
(c-mode-map, fortran-mode-map): Add defvars to avoid warnings.

diff -r 257fd294d7cb -r fef6a7e70bf4 lisp/completion.el
--- a/lisp/completion.el	Tue Apr 16 04:36:21 1996 +0000
+++ b/lisp/completion.el	Tue Apr 16 16:04:01 1996 +0000
@@ -528,8 +528,13 @@
 ;;-----------------------------------------------
 
 (defun cmpl-make-standard-completion-syntax-table ()
-  (let ((table (make-syntax-table)) ;; default syntax is whitespace
+  (let ((table (make-syntax-table))
 	i)
+    ;; Default syntax is whitespace.
+    (setq i 0)
+    (while (< i 256)
+      (modify-syntax-entry i " " table)
+      (setq i (1+ i)))
     ;; alpha chars
     (setq i 0)
     (while (< i 26)
@@ -2612,6 +2617,10 @@
 (define-key lisp-mode-map "=" 'self-insert-command)
 (define-key lisp-mode-map "^" 'self-insert-command)
 
+;; Avoid warnings.
+(defvar c-mode-map)
+(defvar fortran-mode-map)
+
 ;; C mode diffs.
 (defun completion-c-mode-hook ()
   (def-completion-wrapper electric-c-semi :separator)
@@ -2671,4 +2680,6 @@
 (cmpl-statistics-block
   (record-completion-file-loaded))
 
+(provide 'completion)
+
 ;;; completion.el ends here