From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Feb 2021 06:22:02 +0000 (+0100)
Subject: Make `C-a' in enriched-mode behave more line in other modes
X-Git-Tag: emacs-28.0.90~3877
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2814b2018f731a9b299422191591e5b1e857827;p=emacs.git

Make `C-a' in enriched-mode behave more line in other modes

* lisp/textmodes/enriched.el (enriched-mode-map): Don't rebind
beginning-or-line, because it makes `C-S-a' not mark the region,
and it doesn't allow actually moving to the beginning of the line
if the line starts with characters in `adaptive-fill-regexp'
(bug#22554).
---

diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index bac209cdef6..fe92d603065 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -186,7 +186,6 @@ The value is a list of \(VAR VALUE VAR VALUE...).")
 
 (defvar enriched-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [remap move-beginning-of-line] 'beginning-of-line-text)
     (define-key map "\C-m" 'reindent-then-newline-and-indent)
     (define-key map
       [remap newline-and-indent] 'reindent-then-newline-and-indent)