Lines Matching defs:pos
193 (defvar ada-xref-pos-ring '()
210 (defconst ada-xref-pos-ring-max 16
211 "Number of positions kept in the list `ada-xref-pos-ring'.")
599 (defun ada-xref-push-pos (filename position)
601 (setq ada-xref-pos-ring (cons (list position filename) ada-xref-pos-ring))
602 (if (> (length ada-xref-pos-ring) ada-xref-pos-ring-max)
603 (setcdr (nthcdr (1- ada-xref-pos-ring-max) ada-xref-pos-ring) nil)))
608 (if ada-xref-pos-ring
609 (let ((pos (car ada-xref-pos-ring)))
610 (setq ada-xref-pos-ring (cdr ada-xref-pos-ring))
611 (find-file (car (cdr pos)))
612 (goto-char (car pos)))))
875 (defun ada-find-references (&optional pos arg local-only)
883 (let* ((identlist (ada-read-identifier pos))
901 (defun ada-find-local-references (&optional pos arg)
906 (ada-find-references pos arg t))
970 (defun ada-complete-identifier (pos)
978 (identlist (ada-read-identifier pos))
1020 (defun ada-goto-body (pos &optional other-frame)
1026 (ada-goto-declaration pos other-frame)
1033 (defun ada-goto-declaration (pos &optional other-frame)
1040 (push-mark pos)
1041 (ada-xref-push-pos (buffer-file-name) pos)
1046 (let ((identlist (ada-read-identifier pos)))
1069 (defun ada-goto-declaration-other-frame (pos)
1073 (ada-goto-declaration pos t))
1572 (defun ada-read-identifier (pos)
1583 (goto-char pos)