From a1ced6cc2bff1c106d8035ece13227cadaf97e1a Mon Sep 17 00:00:00 2001
From: Theodor Thornhill <theo@thornhill.no>
Date: Fri, 19 Mar 2021 08:50:43 +0100
Subject: [PATCH] Add stupid beg/end-of-defun

---
 fsharp-mode.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/fsharp-mode.el b/fsharp-mode.el
index c6a08ee..bb07b98 100644
--- a/fsharp-mode.el
+++ b/fsharp-mode.el
@@ -105,6 +105,17 @@ ambiguous, multiple invocations will indent tabstops forward."
    (indent-next-tab-stop
     (save-excursion (back-to-indentation) (current-column)) t)))
 
+(defun fsharp-mode-beginning-of-defun (&optional arg)
+  (re-search-backward "\\<let " nil t (or arg 1))
+  (goto-char (point))
+  (back-to-indentation))
+
+(defun fsharp-mode-end-of-defun (&optional arg)
+  (when (looking-at "\\<let") (forward-line))
+  (re-search-forward "\\<let " nil t (or arg 1))
+  (goto-char (point))
+  (back-to-indentation))
+
 ;;; Font locking
 
 (defconst fsharp--regexp-type
@@ -303,9 +314,9 @@ ambiguous, multiple invocations will indent tabstops forward."
 
 \\{fsharp-mode-map}"
 
-  ;; ;; Movement
-  ;; (setq-local beginning-of-defun-function #'elmo-beginning-of-defun)
-  ;; (setq-local end-of-defun-function #'elmo-end-of-defun)
+  ;; Movement
+  (setq-local beginning-of-defun-function #'fsharp-mode-beginning-of-defun)
+  (setq-local end-of-defun-function #'fsharp-mode-end-of-defun)
   
   ;; ;; Indentation
   (when (boundp 'electric-indent-inhibit) (setq electric-indent-inhibit t))  
-- 
2.38.5