Function: semantic-ctxt-current-argument-emacs-lisp-mode

semantic-ctxt-current-argument-emacs-lisp-mode is a byte-compiled function defined in el.el.gz.

Signature

(semantic-ctxt-current-argument-emacs-lisp-mode &optional POINT)

Documentation

Return the index into the argument the cursor is in, or nil.

Override semantic-ctxt-current-argument in emacs-lisp-mode buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/el.el.gz
(define-mode-local-override semantic-ctxt-current-argument emacs-lisp-mode
  (&optional point)
  "Return the index into the argument the cursor is in, or nil."
  (save-excursion
    (if point (goto-char point))
    (if (looking-at "\\<\\w")
	(forward-char 1))
    (let ((count 0))
      (while (condition-case nil
		 (progn
		   (forward-sexp -1)
		   t)
	       (error nil))
	(setq count (1+ count)))
      (cond ((= count 0)
	     0)
	    (t (1- count))))
    ))