Function: pascal-type-completion

pascal-type-completion is a byte-compiled function defined in pascal.el.gz.

Signature

(pascal-type-completion PASCAL-STR)

Documentation

Calculate all possible completions for types.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/pascal.el.gz
(defun pascal-type-completion (pascal-str)
  "Calculate all possible completions for types."
  (save-excursion
    (let ((start (point))
          (pascal-all ())
	  goon)
      ;; Search for all reachable type declarations
      (while (or (pascal-beg-of-defun)
                 (setq goon (not goon)))
        (save-excursion
	  (if (and (< start (prog1 (save-excursion (pascal-end-of-defun)
						   (point))
			      (forward-char 1)))
		   (re-search-forward
		    "\\<type\\>\\|\\<\\(begin\\|function\\|procedure\\)\\>"
		    start t)
		   (not (match-end 1)))
	      ;; Check current type declaration
              (setq pascal-all
                    (nconc (pascal-get-completion-decl pascal-str)
                           pascal-all)))))

      pascal-all)))