Function: pascal-get-default-symbol

pascal-get-default-symbol is a byte-compiled function defined in pascal.el.gz.

Signature

(pascal-get-default-symbol)

Documentation

Return symbol around current point as a string.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/pascal.el.gz
(defun pascal-get-default-symbol ()
  "Return symbol around current point as a string."
  (save-excursion
    (buffer-substring (progn
			(skip-chars-backward " \t")
			(skip-chars-backward "a-zA-Z0-9_")
			(point))
		      (progn
			(skip-chars-forward "a-zA-Z0-9_")
			(point)))))