                 (and (not (eq nil m))
                      (goto-char m)
                      (current-column)))))
-
-       ;; If the previous code line ends with "=", align to the matching "fun"
-       ;; or "let" or "loop" column plus one indent level.
-       (save-excursion
-         (and (futhark-backward-part)
-              (looking-at "=[[:space:]]*$")
-              (let ((m
-                     (futhark-max
-                      (futhark-max
-                       (save-excursion
-                         (futhark-keyword-backward "fun"))
-                       (save-excursion
-                         (futhark-keyword-backward "let")))
-                      (save-excursion
-                        (futhark-keyword-backward "loop")))))
-                (and (not (eq nil m))
-                     (goto-char m)
-                     (+ (current-column) futhark-indent-level)))))
 
        ;; Align "then" to nearest "else if" or "if".
        (save-excursion

                  (futhark-keyword-backward "module")
                  (current-column))))))

       ;; Align "in", "let", or "loop" to the closest previous "let" or "loop".
       (save-excursion
         (and (or (futhark-looking-at-word "in")

   (save-excursion
     (futhark-beginning-of-line-text)
     (point))))

(defun futhark-is-empty-line ()
  "Check if the line of the current point is empty.
It is considered empty if the line consists of zero or more
whitespace characters."
  (let ((cur (line-number-at-pos)))
    (futhark-beginning-of-line-text)
    (not (= cur (line-number-at-pos)))))

(defun futhark-is-looking-at-keyword ()
  "Check if we are currently looking at a keyword."
