Function: comint-extract-string

comint-extract-string is a byte-compiled function defined in comint.el.gz.

Signature

(comint-extract-string)

Documentation

Return string around point, or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/comint.el.gz
(defun comint-extract-string ()
  "Return string around point, or nil."
  (let ((syntax (syntax-ppss)))
    (when (nth 3 syntax)
      (condition-case ()
	  (buffer-substring-no-properties (1+ (nth 8 syntax))
					  (progn (goto-char (nth 8 syntax))
						 (forward-sexp)
						 (1- (point))))
	(error nil)))))