Function: c-ml-string-back-to-neutral

c-ml-string-back-to-neutral is a byte-compiled function defined in cc-engine.el.gz.

Signature

(c-ml-string-back-to-neutral OPENING-POINT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cc-engine.el.gz
(defun c-ml-string-back-to-neutral (opening-point)
  ;; Given OPENING-POINT, the position of the start of a multiline string
  ;; opening delimiter, move point back to a neutral position within the ml
  ;; string.  It is assumed that point is within the innards of or the closing
  ;; delimiter of string opened by OPEN-DELIM.
  (let ((opener-end (save-excursion
		      (goto-char opening-point)
		      (looking-at c-ml-string-opener-re)
		      (match-end 1))))
    (if (not c-ml-string-back-closer-re)
	(goto-char (max (c-point 'boll) opener-end))
      (re-search-backward c-ml-string-back-closer-re
			  (max opener-end
			       (c-point 'eopl))
			  'bound))))