1 files changed, 6 insertions(+), 5 deletions(-)

M a68-mode.el

@@ 435,14 435,15 @@ into a68--mode-indicants."
             (eq (char-before) ?\n))
     (let (id beginning end)
       (save-excursion
+        (goto-char (- (point) 1))
         (when (looking-back (rx bow (group (any "a-z") (zero-or-more (any "a-z0-9_"))))
                             nil t)
           (setq beginning (match-beginning 1))
           (setq end (match-end 1))
-          (setq id (upcase (buffer-substring-no-properties beginning end)))))
-      (when (member id (append a68-std-modes a68-keywords a68--mode-indicants))
-        (goto-char end)
-        (delete-region beginning end)
-        (insert id)))))
+          (setq id (upcase (buffer-substring-no-properties beginning end)))
+          (when (member id (append a68-std-modes a68-keywords a68--mode-indicants))
+            (goto-char end)
+            (delete-region beginning end)
+            (insert id)))))))
 
 ;;; a68-mode.el ends here