commit - 8cd9fb9c30ee2eada5e20d378d0c63f3d0254aef
commit + b9f2f63410c767f1790f67690686c59430585cf6
blob - 125a38efc303eed0611b0ca237cc9d26febee990
blob + 32d3e757cb14457c53c9c165d8942dd23182d838
--- a68-mode.el
+++ a68-mode.el
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-j") #'newline-and-indent)
(define-key map (kbd "RET") #'a68-electric-terminate-line)
- (define-key map (kbd "C-i") #'a68-electric-tab)
map)
"Keymap for Algol 68 major mode.")
(unless (a68-within-string)
(a68-indent-line)))
-(defun a68-electric-tab ()
- "Function called when TAB is pressed in Algol68 mode."
- (interactive)
- (unless (save-excursion
- (beginning-of-line)
- (a68-within-string))
- (a68-indent-line)))
-
(defvar a68-mode-abbrev-table nil
"Abbreviation table used in `a68-mode' buffers.")