jens/emacs-config
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix C-Shift-Arrow word selection keybindings

Browse Source 
Fixed C-Shift-Left/Right not working for word selection by:
- Creating proper selection functions with region activation
- Using left-word/right-word functions that respect direction
- Adding hooks to ensure bindings persist after CUA mode init
- Setting correct properties for CUA mode compatibility

Also added C-Shift-Up/Down for paragraph selection consistency.

All C-Shift-Arrow combinations now work correctly:
- C-Shift-Left/Right: Select by word
- C-Shift-Up/Down: Select by paragraph

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
Jens Luedicke
2025-09-10 14:01:45 +02:00
parent 4ba2472236
commit 54d6fd3cce
1 changed files with 76 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
lisp/init-editor.el
View File

@@ -21,22 +21,93 @@
(defun backward-word-select (&optional arg)
"Move backward by words, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(backward-word (or arg 1)))
(defun forward-word-select (&optional arg)
"Move forward by words, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(forward-word (or arg 1)))
;; Bind C-Shift-Arrow keys for word selection
(global-set-key (kbd "C-S-<left>") 'backward-word-select)
(global-set-key (kbd "C-S-<right>") 'forward-word-select)
;; Alternative implementation using left-word/right-word directly
(defun left-word-select (&optional arg)
"Move left by words, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(left-word (or arg 1)))
(defun right-word-select (&optional arg)
"Move right by words, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(right-word (or arg 1)))
;; Bind C-Shift-Arrow keys for word selection - multiple approaches
;; Use the built-in left-word/right-word with shift handling
(global-set-key (kbd "C-S-<left>") 'left-word-select)
(global-set-key (kbd "C-S-<right>") 'right-word-select)
;; Alternative bindings for compatibility
(global-set-key [(control shift left)] 'left-word-select)
(global-set-key [(control shift right)] 'right-word-select)
;; Add C-Shift-Up/Down for paragraph selection
(defun backward-paragraph-select (&optional arg)
"Move backward by paragraphs, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(backward-paragraph (or arg 1)))
(defun forward-paragraph-select (&optional arg)
"Move forward by paragraphs, extending selection with shift."
(interactive "^p")
(unless (region-active-p)
(push-mark (point) nil t))
(forward-paragraph (or arg 1)))
(global-set-key (kbd "C-S-<up>") 'backward-paragraph-select)
(global-set-key (kbd "C-S-<down>") 'forward-paragraph-select)
(global-set-key [(control shift up)] 'backward-paragraph-select)
(global-set-key [(control shift down)] 'forward-paragraph-select)
;; Mark shift-selection functions properly for CUA compatibility
(put 'backward-word-select 'CUA 'move)
(put 'forward-word-select 'CUA 'move)
(put 'left-word-select 'CUA 'move)
(put 'right-word-select 'CUA 'move)
(put 'backward-paragraph-select 'CUA 'move)
(put 'forward-paragraph-select 'CUA 'move)
(put 'backward-word-select 'shift-selection-mode t)
(put 'forward-word-select 'shift-selection-mode t)
(put 'left-word-select 'shift-selection-mode t)
(put 'right-word-select 'shift-selection-mode t)
(put 'backward-paragraph-select 'shift-selection-mode t)
(put 'forward-paragraph-select 'shift-selection-mode t)
;; Ensure bindings work after CUA mode initialization
(defun ensure-word-selection-bindings ()
"Ensure C-Shift-Arrow word selection bindings are active."
(global-set-key (kbd "C-S-<left>") 'left-word-select)
(global-set-key (kbd "C-S-<right>") 'right-word-select)
(global-set-key (kbd "C-S-<up>") 'backward-paragraph-select)
(global-set-key (kbd "C-S-<down>") 'forward-paragraph-select)
(global-set-key [(control shift left)] 'left-word-select)
(global-set-key [(control shift right)] 'right-word-select)
(global-set-key [(control shift up)] 'backward-paragraph-select)
(global-set-key [(control shift down)] 'forward-paragraph-select))
;; Apply bindings after CUA mode loads
(with-eval-after-load 'cua-base
(ensure-word-selection-bindings))
;; Also apply after init in case CUA mode is loaded later
(add-hook 'after-init-hook 'ensure-word-selection-bindings)
;; Additional selection keybindings for consistency
;; Ensure regular shift-arrow selection works
@@ -88,6 +159,8 @@
(princ " Word Selection:\n")
(princ (format " C-S-<left>: %s\n" (key-binding (kbd "C-S-<left>"))))
(princ (format " C-S-<right>: %s\n" (key-binding (kbd "C-S-<right>"))))
(princ (format " [(control shift left)]: %s\n" (key-binding [(control shift left)])))
(princ (format " [(control shift right)]: %s\n" (key-binding [(control shift right)])))
(princ " Character Selection:\n")
(princ (format " S-<left>: %s\n" (key-binding (kbd "S-<left>"))))
(princ (format " S-<right>: %s\n" (key-binding (kbd "S-<right>"))))