commit - dc32b2419bb59272b797f0f103f495f438408243
commit + 23be3ba203f2f3623f247318795d7c2ce82d8794
blob - b4637a7686a995b3b95a856e445110904dc3f718
blob + 1e070810a5a1743b0ad5f97ecbc209aa61866c38
--- algol-mode.el
+++ algol-mode.el
(defvar a68-mode-map
(let ((map (make-keymap)))
(define-key map "\C-j" #'newline-and-indent)
- (define-key map "\r" #'electric-a68-terminate-line)
- (define-key map "\t" #'electric-a68-tab)
+ (define-key map "\r" #'a68-electric-terminate-line)
+ (define-key map "\t" #'a68-electric-tab)
map)
"Keymap for Algol 68 major mode.")
(defconst a68-autoindent-lines-re
"\\<\\(BEGIN\\|END\\|ELSE\\|ELIF\\|DO\\|OD\\|CASE\\|ESAC\\|IN\\|OUT\\)\\>")
-(defun electric-a68-terminate-line ()
+(defun a68-electric-terminate-line ()
"Terminate line and indent next line."
(interactive)
;; First, check if current line should be indented
(unless in-string
(a68-indent-line))))
-(defun electric-a68-tab ()
+(defun a68-electric-tab ()
"Function called when TAB is pressed in Algol68 mode."
(interactive)
(unless (save-excursion