Function: thing-at-point--beginning-of-sexp

thing-at-point--beginning-of-sexp is a byte-compiled function defined in thingatpt.el.gz.

Signature

(thing-at-point--beginning-of-sexp)

Documentation

Move point to the beginning of the current sexp.

Aliases

beginning-of-sexp (obsolete since 25.1)

Source Code

;; Defined in /usr/src/emacs/lisp/thingatpt.el.gz
(defun thing-at-point--beginning-of-sexp ()
  "Move point to the beginning of the current sexp."
  (let ((char-syntax (char-syntax (char-before))))
    (if (or (eq char-syntax ?\()
	    (and (eq char-syntax ?\") (nth 3 (syntax-ppss))))
	(forward-char -1)
      (forward-sexp -1))))