branch: externals/auctex commit c43d21326dadb00cc3343cf8436af8dd9593f706 Author: Ikumi Keita <ik...@ikumi.que.jp> Commit: Ikumi Keita <ik...@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 <ber...@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) _______________________________________________ auctex-diffs mailing list auctex-di...@gnu.org https://lists.gnu.org/mailman/listinfo/auctex-diffs