Function: lisp-fn-called-at-pt

lisp-fn-called-at-pt is a byte-compiled function defined in inf-lisp.el.gz.

Signature

(lisp-fn-called-at-pt)

Documentation

Return the name of the function called in the current call.

The value is nil if it can't find one.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/inf-lisp.el.gz
;;; Adapted from function-called-at-point in help.el.
(defun lisp-fn-called-at-pt ()
  "Return the name of the function called in the current call.
The value is nil if it can't find one."
  (condition-case nil
      (save-excursion
	(save-restriction
	  (narrow-to-region (max (point-min) (- (point) 1000)) (point-max))
	  (backward-up-list 1)
	  (forward-char 1)
	  (let ((obj (read (current-buffer))))
	    (and (symbolp obj) obj))))
    (error nil)))