Lines Matching defs:func
610 (let ((nest 0) (max -1) (func 0)
621 (setq func (1- func)))
626 (setq func (1+ func)))
629 (if (= 0 func)
631 (setq func (1- func)))))))
642 (let ((nest 0) (func 1)
646 (while (and (/= func 0)
657 (setq func (1+ func))))
661 (setq func (1- func))))
663 (setq func (1+ func))))))
855 (did-func (looking-at "[ \t]*\\(procedure\\|function\\)\\>"))
911 did-func t)
930 (not did-func)
1145 (defun pascal-func-completion (type)
1286 (pascal-func-completion 'procedure)
1290 (pascal-func-completion 'function)