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

Fix #2756: inhibited shift-selection on C-a/C-e

Browse source
This commit is contained in:
Henrik Lissner 2020-03-27 03:03:37 -04:00
parent 273c1e0861
commit f4ff7fda38
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/text.el
View file

@ -117,7 +117,7 @@ in some cases."
;;; Commands ;;; Commands
(defun doom--bol-bot-eot-eol (&optional pos) (defun doom--bol-bot-eot-eol (&optional pos)
(save-excursion (save-mark-and-excursion
(when pos (when pos
(goto-char pos)) (goto-char pos))
(let* ((bol (if visual-line-mode (let* ((bol (if visual-line-mode
@ -157,6 +157,9 @@ beginning of the line. The opposite of
`doom/forward-to-last-non-comment-or-eol'." `doom/forward-to-last-non-comment-or-eol'."
(interactive "d") (interactive "d")
(let ((pt (or point (point)))) (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) (cl-destructuring-bind (bol bot _eot _eol)
(doom--bol-bot-eot-eol pt) (doom--bol-bot-eot-eol pt)
(cond ((> pt bot) (cond ((> pt bot)
@ -179,6 +182,9 @@ beginning of the line. The opposite of
true end of the line. The opposite of `doom/backward-to-bol-or-indent'." true end of the line. The opposite of `doom/backward-to-bol-or-indent'."
(interactive "d") (interactive "d")
(let ((pt (or point (point)))) (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) (cl-destructuring-bind (_bol _bot eot eol)
(doom--bol-bot-eot-eol pt) (doom--bol-bot-eot-eol pt)
(cond ((< pt eot) (cond ((< pt eot)