[elpa] externals/ergoemacs-mode 8ea6d54 320/325: Some fixes for shift-select mode

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 8ea6d54c7d576da0ebdf44e11c7398859f8dc834
Author: Matthew Fidler <514778+mattfidler@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfidler@users.noreply.github.com>

    Some fixes for shift-select mode
---
 ergoemacs-functions.el | 40 ++++++++++++++++++++++++++--------------
 1 file changed, 26 insertions(+), 14 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 1e4067c..71a7c16 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -195,7 +195,7 @@ KEY3 is the optional third key in the sequence."
 
 (defun ergoemacs-backward-word ()
   "Ergoemacs replacement for `backward-word' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
+  (interactive "^")
   (if this-command-keys-shift-translated
       (ergoemacs--send-emacs-key ?\M-\S-b)
     (ergoemacs--send-emacs-key ?\M-b)))
@@ -207,40 +207,52 @@ KEY3 is the optional third key in the sequence."
 
 (defun ergoemacs-forward-word ()
   "Ergoemacs replacement for `forward-word' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
+  (interactive "^")
   (if this-command-keys-shift-translated
       (ergoemacs--send-emacs-key ?\M-\S-f)
     (ergoemacs--send-emacs-key ?\M-f)))
 
 (defun ergoemacs-backward-paragraph ()
   "Ergoemacs replacement for `backward-paragraph' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\M-\{))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key 'C-S-up)
+    (ergoemacs--send-emacs-key ?\M-\{)))
 
 (defun ergoemacs-forward-paragraph ()
   "Ergoemacs replacement for `forward-paragraph' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\M-\}))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key 'C-S-down)
+    (ergoemacs--send-emacs-key ?\M-\})))
 
 (defun ergoemacs-scroll-down-command ()
   "Ergoemacs replacement for `scroll-down-command' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\M-v))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key ?\M-\S-v)
+    (ergoemacs--send-emacs-key ?\M-v)))
 
 (defun ergoemacs-scroll-up-command ()
   "Ergoemacs replacement for `scroll-up-command' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\C-v))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key ?\C-\S-v)
+    (ergoemacs--send-emacs-key ?\C-v)))
 
 (defun ergoemacs-beginning-of-buffer ()
   "Ergoemacs replacement for `beginning-of-buffer' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\M-\<))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key 'C-S-home)
+    (ergoemacs--send-emacs-key ?\M-\<)))
 
 (defun ergoemacs-end-of-buffer ()
   "Ergoemacs replacement for `end-of-buffer' using  
`ergoemacs--send-emacs-key'."
-  (interactive)
-  (ergoemacs--send-emacs-key ?\M-\>))
+  (interactive "^")
+  (if this-command-keys-shift-translated
+      (ergoemacs--send-emacs-key 'C-S-end)
+    (ergoemacs--send-emacs-key ?\M-\>)))
 
 (defun ergoemacs-query-replace ()
   "Ergoemacs replacement for `query-replace' using  
`ergoemacs--send-emacs-key'."