@@ -234,8 +234,6 @@ NOFAIL is non-NIL."
234234 (when nofail
235235 (car rev)))))
236236
237- (defvar haskell-indentation-dyn-first-position nil
238- " " ) ; FIXME
239237(defvar haskell-indentation-dyn-last-direction nil
240238 " " ) ; FIXME
241239(defvar haskell-indentation-dyn-last-indentations nil
@@ -273,8 +271,6 @@ indentation points to the right, we switch going to the left."
273271 (haskell-indentation-next-indentation ci inds 'nofail )
274272 cursor-in-whitespace))
275273 (setq haskell-indentation-dyn-last-direction 'right
276- haskell-indentation-dyn-first-position
277- (haskell-indentation-current-indentation)
278274 haskell-indentation-dyn-last-indentations inds)))))
279275
280276(defun haskell-indentation-indent-line-repeat ()
@@ -306,12 +302,6 @@ indentation points to the right, we switch going to the left."
306302 ci haskell-indentation-dyn-last-indentations 'nofail ))
307303 ; ; but failed, switch to left
308304 (setq haskell-indentation-dyn-last-direction 'left )
309- ; ; and skip to the point where the user started pressing TABs.
310- ; ; except if there are <= 2 indentation points, because this
311- ; ; behavior is very confusing in that case
312- (when (< 2 (length haskell-indentation-dyn-last-indentations))
313- (haskell-indentation-reindent-to
314- haskell-indentation-dyn-first-position))
315305 (haskell-indentation-indent-line-repeat)))
316306 t ))
317307 (t nil )))
0 commit comments