emacs/lisp/completion.el

30 ;; What to put in .emacs
116 ;;   m-x kill-completion
166 ;;  kill-completion string
186 ;;    Loads the completions file and sets up so that exiting emacs will
248 ;;  - More misc. fixes for version 19.0 of emacs
251 ;;  - Ported to version 19.0 of emacs (backcompatible with version 18)
308      ((file-directory-p (convert-standard-filename "~/.emacs.d/"))
310        (expand-file-name "completions" "~/.emacs.d/")))
362 ;;  "*The period in seconds to wait for emacs to be idle before autosaving
1349 (defun kill-completion (string)
1350   (interactive (interactive-completion-string-reader "Completion to kill"))
1422 ;; (kill-completion "banish")
1576 ;; (kill-completion "cumberland")
1728 	  (kill-buffer buffer)))))
1737     (cond ((memq major-mode '(emacs-lisp-mode lisp-mode))
1752 ;; Find file hook
1753 (defun completion-find-file-hook ()
1755 	 (cond ((and (memq major-mode '(emacs-lisp-mode lisp-mode))
1979 ;; The version of save-completions-to-file called at kill-emacs time.
1980 (defun kill-emacs-save-completions ()
1987   (cmpl-statistics-block (record-cmpl-kill-emacs)))
2099 ;;	      (> cmpl-emacs-idle-time *completion-auto-save-period*)
2103 ;;(add-hook 'cmpl-emacs-idle-time-hooks 'auto-save-completions)
2210 (defun completion-kill-region (&optional beg end)
2212 The text is deleted but saved in the kill ring.
2214 /(If you want to kill and then yank immediately, use \\[copy-region-as-kill].)
2216 This is the primitive for programs to kill text (as opposed to deleting it).
2219 Any command that calls this function is a \"kill command\".
2220 If the previous command was also a kill command,
2222 to make one entry in the kill ring.
2232 	 (kill-region beg end))))
2312 (defun completion-lisp-mode-hook ()
2332 (defun completion-c-mode-hook ()
2357 (defvar fortran-mode-hook)
2368   (dolist (x '((find-file-hook		. completion-find-file-hook)
2369                (pre-command-hook	. completion-before-command)
2371                (kill-emacs-hook		. kill-emacs-save-completions)
2374                (lisp-mode-hook		. completion-lisp-mode-hook)
2375                (c-mode-hook		. completion-c-mode-hook)
2376                (fortran-mode-hook	. completion-setup-fortran-mode)))
2378         (add-hook (car x) (cdr x))
2379       (remove-hook (car x) (cdr x))))
2402                ([remap kill-region] . completion-kill-region)