Commit 1aa323ac authored by Richard M. Stallman's avatar Richard M. Stallman

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.
parent 36f0f2b1
......@@ -528,8 +528,13 @@ Used to decide whether to save completions.")
;;-----------------------------------------------
(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 @@ TYPE is the type of the wrapper to be added. Can be :before or :under."
(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 @@ TYPE is the type of the wrapper to be added. Can be :before or :under."
(cmpl-statistics-block
(record-completion-file-loaded))
(provide 'completion)
;;; completion.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment