branch: externals/ergoemacs-mode
commit e7187156a90dece523dc1d98f3ee161efeb2f44d
Author: Matthew Fidler <[email protected]>
Commit: Matthew Fidler <[email protected]>
Add `mark-whole-buffer`
---
ergoemacs-functions.el | 5 +++++
ergoemacs-mode.el | 1 +
2 files changed, 6 insertions(+)
diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index d67ff56..8453746 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -127,6 +127,11 @@ KEY3 is the optional third key in the sequence."
"Ergoemacs replacement for `kill-line' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-k))
+
+(defun ergoemacs-mark-whole-buffer ()
+ "Ergoemacs replacement for `mark-whole-buffer' using
`ergoemacs--send-emacs-key'."
+ (interactive)
+ (ergoemacs--send-emacs-key ?\C-x ?h))
(defvar ergoemacs-delete-functions
'(delete-backward-char delete-char kill-word backward-kill-word)
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index a127e78..a71d7f8 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -133,6 +133,7 @@ Added beginning-of-buffer Alt+n (QWERTY notation) and
end-of-buffer Alt+Shift+n"
(defvar ergoemacs--send-emacs-keys-map (let ((map (make-sparse-keymap)))
(define-key map [remap kill-line]
'ergoemacs-kill-line)
+ (define-key map [remap
mark-whole-buffer] 'ergoemacs-mark-whole-buffer)
map)
"This defines the remaps for the `ergoemacs-mode-send-emacs-keys' commands.")
