mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Provide `completion'.

Browse source 
(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.
This commit is contained in:
Richard M. Stallman 1996-04-16 16:04:01 +00:00
parent 36f0f2b12a
commit 1aa323ac15
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/completion.el
View file

@ -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