Function: c-literal-start

c-literal-start is a byte-compiled function defined in cc-engine.el.gz.

Signature

(c-literal-start &optional SAFE-POS)

Documentation

Return the start of the string or comment surrounding point, or nil if point isn't in one. SAFE-POS, if non-nil, is a position before point which is a known "safe position", i.e. outside of any string or comment.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cc-engine.el.gz
(defun c-literal-start (&optional safe-pos)
  "Return the start of the string or comment surrounding point, or nil if
point isn't in one.  SAFE-POS, if non-nil, is a position before point which is
a known \"safe position\", i.e. outside of any string or comment."
  (if safe-pos
      (let ((s (parse-partial-sexp safe-pos (point))))
	(and (or (nth 3 s)
		 (and (nth 4 s) (not (eq (nth 7 s) 'syntax-table))))
	     (nth 8 s)))
    (car (cddr (c-semi-pp-to-literal (point))))))