   (let (fn)
     (save-excursion
       (search-backward-regexp modi/fns-regexp)
-      (setq fn (match-string 2)))
+      (setq fn (match-string 1)))
     (if (member fn modi/fns-in-debug)
         ;; If the function is already being debugged, cancel its debug on entry
         (progn

;; Time-stamp: <2015-03-05 11:22:46 kmodi>

;; Emacs Lisp Mode


;; outside a `use-package' wrapper
;; http://emacs.stackexchange.com/q/7643/115

;; Edebug a defun or defmacro
(defvar modi/fns-in-edebug nil
  "List of functions for which `edebug' is instrumented.")

(defconst modi/fns-regexp (concat "(\\s-*"
                                  "\\(defun\\|defmacro\\)\\s-+"
                                  "\\(?1:\\(\\w\\|\\s_\\)+\\)\\_>") ; word or symbol char
  "Regexp to find defun or defmacro definition.")

(defun modi/toggle-edebug-defun ()
