emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix #2756: make C-a/C-e truly shift-select aware

Browse source
This commit is contained in:
Henrik Lissner 2020-03-28 00:41:04 -04:00
parent 7d71584a8d
commit 8f685a3c31
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 8 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/autoload/text.el
View file

@ -155,11 +155,8 @@ in some cases."
"Jump between the indentation column (first non-whitespace character) and the
beginning of the line. The opposite of
`doom/forward-to-last-non-comment-or-eol'."
(interactive "d")
(interactive "^d")
(let ((pt (or point (point))))
(when (and shift-select-mode this-command-keys-shift-translated)
(set-mark pt)
(activate-mark))
(cl-destructuring-bind (bol bot _eot _eol)
(doom--bol-bot-eot-eol pt)
(cond ((> pt bot)
@ -180,11 +177,8 @@ beginning of the line. The opposite of
(defun doom/forward-to-last-non-comment-or-eol (&optional point)
"Jumps between the last non-blank, non-comment character in the line and the
true end of the line. The opposite of `doom/backward-to-bol-or-indent'."
(interactive "d")
(interactive "^d")
(let ((pt (or point (point))))
(when (and shift-select-mode this-command-keys-shift-translated)
(set-mark pt)
(activate-mark))
(cl-destructuring-bind (_bol _bot eot eol)
(doom--bol-bot-eot-eol pt)
(cond ((< pt eot)