Commit Diff

Commit:
8621ed2a1e4566dd7023d1f7fa4226e5353a96f8
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
rename a68-indent-step -> -level
Actions:
Patch | Tree
commit - bb4b3a620e4b129ae3cbba1e6f29534a572e0fbf
commit + 8621ed2a1e4566dd7023d1f7fa4226e5353a96f8
blob - 471a00d1e5259d28e7688775836b6618b9d25ba0
blob + 34605fe3567f1b56a62a6921a6dc9ebda5762786
--- a68-mode.el
+++ a68-mode.el
@@ -47,7 +47,7 @@
 (eval-when-compile
   (require 'rx))
 
-(defvar a68-indent-step 3
+(defvar a68-indent-level 3
   "Indentation step for Algol 68.")
 
 (defvar a68-mode-hook '()
@@ -145,7 +145,7 @@
                   (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
@@ -158,7 +158,7 @@
                       ;; 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))))))))