|
52 | 52 | (defcustom haskell-indentation-show-indentations nil |
53 | 53 | "If t the current line's indentation points will be showed as |
54 | 54 | underscore overlays in new haskell-mode buffers. Use |
55 | | -`haskell-indentation-enable-show-indentations' and `haskell-indentation-disable-show-indentations' |
56 | | -to switch the behavior for already existing buffers." |
| 55 | +`haskell-indentation-enable-show-indentations' and |
| 56 | +`haskell-indentation-disable-show-indentations' to switch the |
| 57 | +behavior for already existing buffers." |
57 | 58 | :type 'boolean |
58 | 59 | :group 'haskell-indentation) |
59 | 60 |
|
@@ -663,7 +664,7 @@ the current buffer." |
663 | 664 | (defun haskell-indentation-declaration-layout () |
664 | 665 | (haskell-indentation-layout #'haskell-indentation-declaration)) |
665 | 666 |
|
666 | | -;; a layout list with case expressions |
| 667 | +;; a layout list with case expressions |
667 | 668 | (defun haskell-indentation-case-layout () |
668 | 669 | (haskell-indentation-layout #'haskell-indentation-case)) |
669 | 670 |
|
@@ -912,7 +913,7 @@ the current buffer." |
912 | 913 | (throw 'parse-end nil)) |
913 | 914 |
|
914 | 915 | ;; after an 'open' expression such as 'if', exit |
915 | | - (unless (member (car parser) '("(" "[" "{" "do" "case")) |
| 916 | + (unless (member (car parser) '("(" "[" "{" "do" "case")) |
916 | 917 | (throw 'return nil))))))))) |
917 | 918 |
|
918 | 919 | (defun haskell-indentation-test-indentations () |
@@ -968,7 +969,7 @@ the current buffer." |
968 | 969 | ;; and current-indent after the separator |
969 | 970 | ;; For example: |
970 | 971 | ;; l = [ 1 |
971 | | -;; , 2 |
| 972 | +;; , 2 |
972 | 973 | ;; , -- start now here |
973 | 974 |
|
974 | 975 | (defun haskell-indentation-at-separator () |
|
0 commit comments