Mercurial > emacs
comparison lisp/completion.el @ 64799:e614d93ce721
(c-mode-map, fortran-mode-map): Add defvars.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Aug 2005 02:53:54 +0000 |
parents | 41bb365f41c4 |
children | ed770a0a7846 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
64798:b61d2aa00716 | 64799:e614d93ce721 |
---|---|
2346 (funcall (or (and (symbolp this-command) | 2346 (funcall (or (and (symbolp this-command) |
2347 (get this-command 'completion-function)) | 2347 (get this-command 'completion-function)) |
2348 'use-completion-under-or-before-point))) | 2348 'use-completion-under-or-before-point))) |
2349 | 2349 |
2350 ;; C mode diffs. | 2350 ;; C mode diffs. |
2351 | |
2352 (defvar c-mode-map) | |
2353 | |
2351 (defun completion-c-mode-hook () | 2354 (defun completion-c-mode-hook () |
2352 (def-completion-wrapper electric-c-semi :separator) | 2355 (def-completion-wrapper electric-c-semi :separator) |
2353 (define-key c-mode-map "+" 'completion-separator-self-insert-command) | 2356 (define-key c-mode-map "+" 'completion-separator-self-insert-command) |
2354 (define-key c-mode-map "*" 'completion-separator-self-insert-command) | 2357 (define-key c-mode-map "*" 'completion-separator-self-insert-command) |
2355 (define-key c-mode-map "/" 'completion-separator-self-insert-command)) | 2358 (define-key c-mode-map "/" 'completion-separator-self-insert-command)) |
2357 (if (featurep 'cc-mode) | 2360 (if (featurep 'cc-mode) |
2358 (completion-c-mode-hook) | 2361 (completion-c-mode-hook) |
2359 (add-hook 'c-mode-hook 'completion-c-mode-hook)) | 2362 (add-hook 'c-mode-hook 'completion-c-mode-hook)) |
2360 | 2363 |
2361 ;; FORTRAN mode diffs. (these are defined when fortran is called) | 2364 ;; FORTRAN mode diffs. (these are defined when fortran is called) |
2365 | |
2366 (defvar fortran-mode-map) | |
2367 | |
2362 (defun completion-setup-fortran-mode () | 2368 (defun completion-setup-fortran-mode () |
2363 (define-key fortran-mode-map "+" 'completion-separator-self-insert-command) | 2369 (define-key fortran-mode-map "+" 'completion-separator-self-insert-command) |
2364 (define-key fortran-mode-map "-" 'completion-separator-self-insert-command) | 2370 (define-key fortran-mode-map "-" 'completion-separator-self-insert-command) |
2365 (define-key fortran-mode-map "*" 'completion-separator-self-insert-command) | 2371 (define-key fortran-mode-map "*" 'completion-separator-self-insert-command) |
2366 (define-key fortran-mode-map "/" 'completion-separator-self-insert-command)) | 2372 (define-key fortran-mode-map "/" 'completion-separator-self-insert-command)) |