Function: add-completions-from-tags-table

add-completions-from-tags-table is an interactive and byte-compiled function defined in completion.el.gz.

Signature

(add-completions-from-tags-table)

Documentation

Add completions from the current tags table.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/completion.el.gz
;;-----------------------------------------------
;; Tags Table Completions
;;-----------------------------------------------

(defun add-completions-from-tags-table ()
  ;; Inspired by eero@media-lab.media.mit.edu
  "Add completions from the current tags table."
  (interactive)
  (visit-tags-table-buffer)		;this will prompt if no tags-table
  (save-excursion
    (goto-char (point-min))
    (let (string)
      (condition-case nil
	   (while t
	     (search-forward "\177")
	     (backward-char 3)
	     (and (setq string (symbol-under-point))
		  (add-completion-to-tail-if-new string))
	     (forward-char 3))
	 (search-failed)))))