           (progn
             (setq modi/fns-in-edebug (delete fn modi/fns-in-edebug))
             (eval-region (point) (mark))
-            (setq eval-expression-print-length 12)
-            (setq eval-expression-print-level  4)
+            (setq-default eval-expression-print-length 12)
+            (setq-default eval-expression-print-level  4)
             (message "Edebug disabled: %s" fn))
         ;; If the function is not being edebugged, instrument it
         (progn
           (add-to-list 'modi/fns-in-edebug fn)
+          (setq-default eval-expression-print-length nil)
+          (setq-default eval-expression-print-level  nil)
           (edebug-defun)
-          (setq eval-expression-print-length nil)
-          (setq eval-expression-print-level  nil)
           (message "Edebug: %s" fn)))
       (widen))))
 

  (let (fn)
    (save-excursion
      (search-backward-regexp modi/fns-regexp)
      (setq fn (match-string 2))
      (mark-sexp)
      (narrow-to-region (point) (mark))
      (if (member fn modi/fns-in-edebug)

;; Time-stamp: <2015-03-17 09:20:08 kmodi>

;; Emacs Lisp Mode

