branch: elpa/xah-fly-keys
commit 14505f055477e634b767cc7f5516afb7f9989f7c
Author: Xah Lee <x...@xahlee.org>
Commit: Xah Lee <x...@xahlee.org>

    xah-fly-use-meta-key is back to nil. xah-cut-all-or-region now prints 
message if whole buffer is cut.
---
 README.md       | 17 ++++++-----------
 xah-fly-keys.el | 14 +++++++++-----
 2 files changed, 15 insertions(+), 16 deletions(-)

diff --git a/README.md b/README.md
index d30ba6ac9f9..419d8a85356 100755
--- a/README.md
+++ b/README.md
@@ -1,5 +1,4 @@
-xah-fly-keys
-===================
+# xah-fly-keys
 
 A modal keybinding for emacs (like vim), but based on command frequency and 
ergonomics.
 
@@ -8,18 +7,15 @@ This is the most efficient editing system in the universe.
 Xah Fly Keys home page at
 http://xahlee.info/emacs/misc/xah-fly-keys.html
 
-2020-04-18 News: Key Engine Rewrite
-===================
+## 2020-04-18 News: Key Engine Rewrite
 
 Major key engine rewrite by Dan Langlois (https://github.com/DanLanglois) and 
Will Dey (https://github.com/wi11dey) .
 
-QWERTY layout
--------------------
+## Key Diagram (QWERTY)
 
 ![xah-fly-keys qwerty layout](i/xah_fly_keys_qwerty_layout_2025-08-02.png)
 
-Manual Install
--------------------
+## Manual Install
 
 put the file xah-fly-keys.el in ~/.emacs.d/lisp/
 create the dir if doesn't exist.
@@ -58,8 +54,7 @@ put the following in your emacs init file:
 (xah-fly-keys 1)
 ```
 
-Full Documentation
--------------------
+## Full Documentation
 
 http://xahlee.info/emacs/misc/xah-fly-keys.html
 
@@ -67,4 +62,4 @@ Been working on this since 2013, and since 2007 on 
ergoemacs-mode.
 
 Professional coders, send me 100 USD https://paypal.com pay to x...@xahlee.org
 
-Thanks.
+Thank you.
diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 6cf1e4740b6..52aecf16183 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <x...@xahlee.org>
-;; Version: 28.3.20250803102638
+;; Version: 28.3.20250806094130
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "28.3"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -174,7 +174,7 @@ Remove many redundant emacs default keys
 Must be set before loading xah-fly-keys."
   :type 'boolean)
 
-(defcustom xah-fly-use-meta-key t
+(defcustom xah-fly-use-meta-key nil
   "If true, change some emacs keybinding involving meta key.
 Remove many redundant emacs default keys.
 Must be set before loading xah-fly-keys."
@@ -477,7 +477,8 @@ Version: 2015-08-22"
 Respects `narrow-to-region'.
 
 URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_all_or_region.html'
-Version: 2015-08-22"
+Created: 2015-08-22
+Version: 2025-08-06"
   (interactive)
   (if (region-active-p)
       (progn
@@ -485,11 +486,13 @@ Version: 2015-08-22"
         (delete-region (region-beginning) (region-end)))
     (progn
       (kill-new (buffer-string))
-      (delete-region (point-min) (point-max)))))
+      (delete-region (point-min) (point-max))
+      (message "buffer text cut"))))
 
 (defun xah-copy-all ()
   "Put the whole buffer content into the `kill-ring'.
 (respects `narrow-to-region')
+Created: 2016-10-06
 Version: 2016-10-06"
   (interactive)
   (kill-new (buffer-string))
@@ -498,6 +501,7 @@ Version: 2016-10-06"
 (defun xah-cut-all ()
   "Cut the whole buffer content into the `kill-ring'.
 Respects `narrow-to-region'.
+Created: 2017-01-03
 Version: 2017-01-03"
   (interactive)
   (kill-new (buffer-string))
@@ -3871,7 +3875,7 @@ Version: 2024-04-22"
   (global-set-key (kbd "M-o") nil) ; facemenu-keymap
   (global-set-key (kbd "M-q") nil) ; fill-paragraph
   (global-set-key (kbd "M-r") nil) ; move-to-window-line-top-bottom
-  (global-set-key (kbd "M-s") nil) ; Prefix Command
+  ;; (global-set-key (kbd "M-s") nil) ; Prefix Command
   (global-set-key (kbd "M-t") nil) ; transpose-words
   (global-set-key (kbd "M-u") nil) ; upcase-word
   (global-set-key (kbd "M-v") nil) ; scroll-down-command

Reply via email to