   (interactive)
   (when (called-interactively-p)
     (message "Evaluating buffer"))
+  (zomp-shell-update-source-location (buffer-end -1))
   (zomp-shell-do (buffer-substring (buffer-end -1) (buffer-end 1)) 'create "
 
 

  (interactive "MList bindings matching: ")
  (zomp-shell-do (concat "!bindings " regexps)))

(defun zomp-shell-eval-region ()
  (interactive)
  (when (called-interactively-p)

                      (region-end)
                      'zomp-highlight-after-eval-face
                      zomp-highlight-after-eval-seconds)))
  (zomp-shell-update-source-location)
  (zomp-shell-do (buffer-substring (region-beginning) (region-end)) nil "


