[AUCTeX-diffs] [elpa] externals/auctex c43d21326d 42/60: Follow similar update of latex.el in context.el

[Tassilo Horn]

branch: externals/auctex
commit c43d21326dadb00cc3343cf8436af8dd9593f706
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Follow similar update of latex.el in context.el
    
    * context.el (ConTeXt-mode-common-initialization): Set
    `beginning-of-defun-function' and `end-of-defun-function'.
    (ConTeXt-mode-map): Don't bind C-M-a and C-M-e explicitly.
    (): Update copyright year.
---
 context.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/context.el b/context.el
index dfcb66495b..19217ec6b5 100644
--- a/context.el
+++ b/context.el
@@ -1,6 +1,6 @@
 ;;; context.el --- Support for ConTeXt documents.  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2003-2021  Free Software Foundation, Inc.
+;; Copyright (C) 2003-2022  Free Software Foundation, Inc.
 
 ;; Maintainer: Berend de Boer <berend@pobox.com>
 ;; Keywords: tex
@@ -1318,8 +1318,10 @@ else.  There might be text before point."
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map TeX-mode-map)
 
-    (define-key map "\e\C-a"  #'ConTeXt-find-matching-start)
-    (define-key map "\e\C-e"  #'ConTeXt-find-matching-stop)
+    ;; We now set `beginning-of-defun-function' and
+    ;; `end-of-defun-function' instead.
+    ;; (define-key map "\e\C-a"  #'ConTeXt-find-matching-start)
+    ;; (define-key map "\e\C-e"  #'ConTeXt-find-matching-stop)
     ;; likely to change in the future
     (define-key map "\C-c!"    #'ConTeXt-work-on-environment)
     (define-key map "\C-c\C-e" #'ConTeXt-environment)
@@ -1776,6 +1778,9 @@ that is, you do _not_ have to cater for this yourself by 
adding \\\\' or $."
 
   (add-hook 'activate-menubar-hook #'ConTeXt-menu-update nil t)
 
+  (setq-local beginning-of-defun-function #'ConTeXt-find-matching-start
+              end-of-defun-function       #'ConTeXt-find-matching-stop)
+
   ;; Outline support
   (require 'outline)
   (set (make-local-variable 'outline-level) 'ConTeXt-outline-level)