branch: externals/a68-mode
commit 23be3ba203f2f3623f247318795d7c2ce82d8794
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>
rename electric-a68-* functions to a68-electric-*
---
algol-mode.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/algol-mode.el b/algol-mode.el
index b4637a7686..1e070810a5 100644
--- a/algol-mode.el
+++ b/algol-mode.el
@@ -40,8 +40,8 @@
(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.")
@@ -177,7 +177,7 @@
(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
@@ -193,7 +193,7 @@
(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
