commit - bb4b3a620e4b129ae3cbba1e6f29534a572e0fbf
commit + 8621ed2a1e4566dd7023d1f7fa4226e5353a96f8
blob - 471a00d1e5259d28e7688775836b6618b9d25ba0
blob + 34605fe3567f1b56a62a6921a6dc9ebda5762786
--- a68-mode.el
+++ a68-mode.el
(eval-when-compile
(require 'rx))
-(defvar a68-indent-step 3
+(defvar a68-indent-level 3
"Indentation step for Algol 68.")
(defvar a68-mode-hook '()
(progn
(save-excursion
(forward-line -1)
- (setq cur-indent (- (current-indentation) a68-indent-step)))
+ (setq cur-indent (- (current-indentation) a68-indent-level)))
(when (< cur-indent 0)
(setq cur-indent 0)))
(save-excursion
;; Check for rule 4
(if (looking-at begin-indent-re)
(progn
- (setq cur-indent (+ (current-indentation) a68-indent-step))
+ (setq cur-indent (+ (current-indentation) a68-indent-level))
(setq not-indented nil))
(when (bobp) ; Check for rule 5
(setq not-indented nil))))))))