Mercurial > emacs
changeset 15031:fef6a7e70bf4
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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Apr 1996 16:04:01 +0000 |
| parents | 257fd294d7cb |
| children | 0d32c8a2ae39 |
| files | lisp/completion.el |
| diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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