   ;; (local-set-key [(control c)(=)] 'show-entry)
   ;; (local-set-key [(control c)(+)] 'show-all)
 
-  (run-mode-hooks 'zomp-mode-hook)
-  )
+  (zomp-ffap-init)
+
+  (run-mode-hooks 'zomp-mode-hook))
 
 (define-generic-mode zomp-mode
   '(("/*" . "*/"))

        (nil "^testf *$" 0)
        ))

(defun zomp-mark-sexp ()
  (interactive)
  (cond (mark-active

            (forward-word)
          (goto-char next-line-pos)))
      )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; toplevel interaction
