(defun locate-completion-db-error ()
;; recursive error: really scrod
- (error "Completion database corrupted. Try M-x clear-all-completions. Send bug report."))
+ (error "Completion database corrupted. Try M-x clear-all-completions. Send bug report"))
;; WRITES
(defun add-completion-to-tail-if-new (string)
;; Install the appropriate mode tables.
(add-hook 'lisp-mode-hook
- '(lambda ()
+ (lambda ()
(setq cmpl-syntax-table cmpl-lisp-syntax-table)))
(add-hook 'c-mode-hook
- '(lambda ()
+ (lambda ()
(setq cmpl-syntax-table cmpl-c-syntax-table)))
(add-hook 'fortran-mode-hook
- '(lambda ()
+ (lambda ()
(setq cmpl-syntax-table cmpl-fortran-syntax-table)
(completion-setup-fortran-mode)))
;; Save completions when killing Emacs.
(add-hook 'kill-emacs-hook
- '(lambda ()
+ (lambda ()
(kill-emacs-save-completions)
(cmpl-statistics-block
(record-cmpl-kill-emacs))))