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