- (define-key fortran-mode-map "/" 'completion-separator-self-insert-command)
- )
-
-;;;-----------------------------------------------
-;;; End of line chars.
-;;;-----------------------------------------------
-(def-completion-wrapper newline :separator)
-(def-completion-wrapper newline-and-indent :separator)
-(def-completion-wrapper comint-send-input :separator)
-(def-completion-wrapper exit-minibuffer :minibuffer-separator)
-(def-completion-wrapper eval-print-last-sexp :separator)
-(def-completion-wrapper eval-last-sexp :separator)
-;;(def-completion-wrapper minibuffer-complete-and-exit :minibuffer)
-
-;;;-----------------------------------------------
-;;; Cursor movement
-;;;-----------------------------------------------
-
-(def-completion-wrapper next-line :under-or-before)
-(def-completion-wrapper previous-line :under-or-before)
-(def-completion-wrapper beginning-of-buffer :under-or-before)
-(def-completion-wrapper end-of-buffer :under-or-before)
-(def-completion-wrapper beginning-of-line :under-or-before)
-(def-completion-wrapper end-of-line :under-or-before)
-(def-completion-wrapper forward-char :under-or-before)
-(def-completion-wrapper forward-word :under-or-before)
-(def-completion-wrapper forward-sexp :under-or-before)
-(def-completion-wrapper backward-char :backward-under)
-(def-completion-wrapper backward-word :backward-under)
-(def-completion-wrapper backward-sexp :backward-under)
-
-(def-completion-wrapper delete-backward-char :backward)
-(def-completion-wrapper delete-backward-char-untabify :backward)
-
-;;; Tests --
-;;; foobarbiz
-;;; foobar
-;;; fooquux
-;;; fooper
-
-(cmpl-statistics-block
- (record-completion-file-loaded))
+ (define-key fortran-mode-map "/" 'completion-separator-self-insert-command))
+\f
+;;; Enable completion mode.
+
+;;;###autoload
+(defun dynamic-completion-mode ()
+ "Enable dynamic word-completion."
+ (interactive)
+ (add-hook 'find-file-hook 'cmpl-find-file-hook)
+ (add-hook 'pre-command-hook 'completion-before-command)
+
+ ;; Install the appropriate mode tables.
+ (add-hook 'lisp-mode-hook
+ (lambda ()
+ (setq cmpl-syntax-table cmpl-lisp-syntax-table)))
+ (add-hook 'c-mode-hook
+ (lambda ()
+ (setq cmpl-syntax-table cmpl-c-syntax-table)))
+ (add-hook 'fortran-mode-hook
+ (lambda ()
+ (setq cmpl-syntax-table cmpl-fortran-syntax-table)
+ (completion-setup-fortran-mode)))
+
+ ;; "Complete" Key Keybindings.
+
+ (global-set-key "\M-\r" 'complete)
+ (global-set-key [?\C-\r] 'complete)
+ (define-key function-key-map [C-return] [?\C-\r])
+
+ ;; Tests -
+ ;; (add-completion "cumberland")
+ ;; (add-completion "cumberbund")
+ ;; cum
+ ;; Cumber
+ ;; cumbering
+ ;; cumb
+
+ ;; Save completions when killing Emacs.
+
+ (add-hook 'kill-emacs-hook
+ (lambda ()
+ (kill-emacs-save-completions)
+ (cmpl-statistics-block
+ (record-cmpl-kill-emacs))))
+
+ ;; Patches to standard keymaps insert completions
+ (substitute-key-definition 'kill-region 'completion-kill-region
+ global-map)
+
+ ;; Separators
+ ;; We've used the completion syntax table given as a guide.
+ ;;
+ ;; Global separator chars.
+ ;; We left out <tab> because there are too many special cases for it. Also,
+ ;; in normal coding it's rarely typed after a word.
+ (global-set-key " " 'completion-separator-self-insert-autofilling)
+ (global-set-key "!" 'completion-separator-self-insert-command)
+ (global-set-key "%" 'completion-separator-self-insert-command)
+ (global-set-key "^" 'completion-separator-self-insert-command)
+ (global-set-key "&" 'completion-separator-self-insert-command)
+ (global-set-key "(" 'completion-separator-self-insert-command)
+ (global-set-key ")" 'completion-separator-self-insert-command)
+ (global-set-key "=" 'completion-separator-self-insert-command)
+ (global-set-key "`" 'completion-separator-self-insert-command)
+ (global-set-key "|" 'completion-separator-self-insert-command)
+ (global-set-key "{" 'completion-separator-self-insert-command)
+ (global-set-key "}" 'completion-separator-self-insert-command)
+ (global-set-key "[" 'completion-separator-self-insert-command)
+ (global-set-key "]" 'completion-separator-self-insert-command)
+ (global-set-key ";" 'completion-separator-self-insert-command)
+ (global-set-key "\"" 'completion-separator-self-insert-command)
+ (global-set-key "'" 'completion-separator-self-insert-command)
+ (global-set-key "#" 'completion-separator-self-insert-command)
+ (global-set-key "," 'completion-separator-self-insert-command)
+ (global-set-key "?" 'completion-separator-self-insert-command)
+
+ ;; We include period and colon even though they are symbol chars because :
+ ;; - in text we want to pick up the last word in a sentence.
+ ;; - in C pointer refs. we want to pick up the first symbol
+ ;; - it won't make a difference for lisp mode (package names are short)
+ (global-set-key "." 'completion-separator-self-insert-command)
+ (global-set-key ":" 'completion-separator-self-insert-command)
+
+ ;; Lisp Mode diffs
+ (define-key lisp-mode-map "!" 'self-insert-command)
+ (define-key lisp-mode-map "&" 'self-insert-command)
+ (define-key lisp-mode-map "%" 'self-insert-command)
+ (define-key lisp-mode-map "?" 'self-insert-command)
+ (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)
+
+ ;;-----------------------------------------------
+ ;; End of line chars.
+ ;;-----------------------------------------------
+ (def-completion-wrapper newline :separator)
+ (def-completion-wrapper newline-and-indent :separator)
+ (def-completion-wrapper comint-send-input :separator)
+ (def-completion-wrapper exit-minibuffer :minibuffer-separator)
+ (def-completion-wrapper eval-print-last-sexp :separator)
+ (def-completion-wrapper eval-last-sexp :separator)
+ ;;(def-completion-wrapper minibuffer-complete-and-exit :minibuffer)
+
+ ;;-----------------------------------------------
+ ;; Cursor movement
+ ;;-----------------------------------------------
+
+ (def-completion-wrapper next-line :under-or-before)
+ (def-completion-wrapper previous-line :under-or-before)
+ (def-completion-wrapper beginning-of-buffer :under-or-before)
+ (def-completion-wrapper end-of-buffer :under-or-before)
+ (def-completion-wrapper beginning-of-line :under-or-before)
+ (def-completion-wrapper end-of-line :under-or-before)
+ (def-completion-wrapper forward-char :under-or-before)
+ (def-completion-wrapper forward-word :under-or-before)
+ (def-completion-wrapper forward-sexp :under-or-before)
+ (def-completion-wrapper backward-char :backward-under)
+ (def-completion-wrapper backward-word :backward-under)
+ (def-completion-wrapper backward-sexp :backward-under)
+
+ (def-completion-wrapper delete-backward-char :backward)
+ (def-completion-wrapper delete-backward-char-untabify :backward)
+
+ ;; Tests --
+ ;; foobarbiz
+ ;; foobar
+ ;; fooquux
+ ;; fooper
+
+ (cmpl-statistics-block
+ (record-completion-file-loaded))
+
+ (initialize-completions))
+
+(mapc (lambda (x) (add-to-list 'debug-ignored-errors x))
+ '("^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
+ "^The string \".*\" is too short to be saved as a completion\\.$"))
+
+(provide 'completion)