From 9d90607a029b06543ae1547b8588c1b80026de93 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Mon, 16 Feb 2026 13:53:45 +0800 Subject: [PATCH] examples: emacs: Disable cua-mode by default. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * modules/rosenthal/examples/emacs/init-editing.el (emacs): Disable ‘cua-mode’. * modules/rosenthal/examples/emacs/init.el: Add it to initial-scratch-message. --- modules/rosenthal/examples/emacs/init-editing.el | 2 -- modules/rosenthal/examples/emacs/init.el | 5 ++++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/modules/rosenthal/examples/emacs/init-editing.el b/modules/rosenthal/examples/emacs/init-editing.el index 5cf0893..092153a 100644 --- a/modules/rosenthal/examples/emacs/init-editing.el +++ b/modules/rosenthal/examples/emacs/init-editing.el @@ -11,8 +11,6 @@ (setopt electric-indent-inhibit t) :hook (before-save . delete-trailing-whitespace) - ;; Use Ctrl-C/X/Z for copy, cut, paste. - (after-init . cua-mode) ;; Automatic parenthesis pairing. (after-init . electric-pair-mode)) diff --git a/modules/rosenthal/examples/emacs/init.el b/modules/rosenthal/examples/emacs/init.el index 2edaf93..9cebc2f 100644 --- a/modules/rosenthal/examples/emacs/init.el +++ b/modules/rosenthal/examples/emacs/init.el @@ -32,7 +32,10 @@ (progn (setopt initial-scratch-message - ";;; Type your Guile program here and evaluate it.\n\n") + "\ +;;; Type your Guile program here and evaluate it. +;;; `M-x cua-mode' to use Ctrl-C/X/Z for copy, cut, paste. +\n") (scheme-mode) (geiser-repl-import-module "(gnu)") (geiser-repl-import-module "(nonguix)")