Function: m4-current-defun-name

m4-current-defun-name is a byte-compiled function defined in m4-mode.el.gz.

Signature

(m4-current-defun-name)

Documentation

Return the name of the M4 function at point, or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/m4-mode.el.gz
(defun m4-current-defun-name ()
  "Return the name of the M4 function at point, or nil."
  (save-excursion
    (if (re-search-backward
         "^\\(?:\\(?:m4_\\)?define\\|A._DEFUN\\)([[`]?\\([A-Za-z0-9_]+\\)"
         nil t)
        (match-string-no-properties 1))))