commit - e78236dc9e610e55910e86a0a82fa406db013f1d
commit + acfd6899bd70e47f2a25e22df07c2e217b227014
blob - f45d1d2f5b1381bafb6f5ffccb51ec0211dffd7b
blob + 39daa6af5aff25a616a6a2f6af97d07f35c30941
--- algol-mode.el
+++ algol-mode.el
(save-excursion
(forward-line -1)
(setq cur-indent (- (current-indentation) a68-indent-step)))
- (if (< cur-indent 0)
- (setq cur-indent 0)))
+ (when (< cur-indent 0)
+ (setq cur-indent 0)))
(save-excursion
(while not-indented
(forward-line -1)
(progn
(setq cur-indent (+ (current-indentation) a68-indent-step))
(setq not-indented nil))
- (if (bobp) ; Check for rule 5
- (setq not-indented nil))))))))
+ (when (bobp) ; Check for rule 5
+ (setq not-indented nil))))))))
(if cur-indent
(indent-line-to cur-indent)
;; If we didn't see an indentation hint, then allow no
(save-excursion
(beginning-of-line)
(skip-chars-forward " \t")
- (if (looking-at a68-autoindent-lines-re)
- (a68-indent-line)))
+ (when (looking-at a68-autoindent-lines-re)
+ (a68-indent-line)))
(delete-horizontal-space) ; Removes triling whitespaces
;; Indent next line if we are not in a string
(let ((in-string (a68-within-string)))