Skip to content

Commit b901058

Browse files
committed
Merge pull request #1030 from gracjan/pr-remove-haskell-indentation-dyn-first-position
Remove haskell-indentation-dyn-first-position
2 parents 93bfb29 + 6c45219 commit b901058

File tree

1 file changed

+0
-10
lines changed

1 file changed

+0
-10
lines changed

haskell-indentation.el

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)