bug#20732: in-string-p fails

[Andreas Röhler]

Cursor at 4th line before sdsd:

"asdf

(defun foo1 (&optional beg end)
  sdsd "

;;;

(in-string-p) returns falsely nil, because it scans from "(defun "

This would do it

(defun ar-in-string-p ()
  "Return delimiters start position, if inside, otherwise return nil. "
  (interactive)
  (save-restriction
    (widen)
    (let* ((erg (nth 8 (parse-partial-sexp (point-min) (point))))
       (la (unless erg (when (looking-at "\\s\"")
                 (match-beginning 0)))))
      (setq erg (or erg la))
      (when (interactive-p) (message "%s" erg))
      erg)))

Introduced "widen" - IMO there is no reliability without.

It also returns t if at the first char of a string-delimiter.

Source:

http://bazaar.launchpad.net/~a-roehler/s-x-emacs-werkstatt/trunk/view/head:/misc-utils.el