Function: senator-beginning-of-defun

senator-beginning-of-defun is a byte-compiled function defined in senator.el.gz.

Signature

(senator-beginning-of-defun &optional ARG)

Documentation

Move backward to the beginning of a defun.

Use semantic tags to navigate. ARG is the number of tags to navigate (not yet implemented).

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/senator.el.gz
(defun senator-beginning-of-defun (&optional _arg)
  "Move backward to the beginning of a defun.
Use semantic tags to navigate.
ARG is the number of tags to navigate (not yet implemented)."
  (semantic-fetch-tags)
  (let* ((senator-highlight-found nil)
         ;; Step at beginning of next tag with class specified in
         ;; `senator-step-at-tag-classes'.
         (senator-step-at-start-end-tag-classes t)
         (tag (senator-previous-tag)))
    (when tag
      (if (= (point) (semantic-tag-end tag))
          (goto-char (semantic-tag-start tag)))
      (beginning-of-line))))