[nongnu] elpa/xah-fly-keys e1331b7c1a: xah-copy-line-or-region, fixed issue with rectangle-mark-mode. bug #175

[ELPA Syncer]

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

    xah-copy-line-or-region, fixed issue with rectangle-mark-mode. bug #175
---
 xah-fly-keys.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index e38fc805b5..10f5a581ea 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 25.8.20240618181451
+;; Version: 25.8.20240619081048
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "27"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -354,16 +354,22 @@ Version: 2024-03-19"
 
 (defun xah-copy-line-or-region ()
   "Copy current line or selection.
-When called repeatedly, append copy subsequent lines.
+
+Copy current line. When called repeatedly, append copy subsequent lines.
+Except:
+
 If `universal-argument' is called first, copy whole buffer (respects 
`narrow-to-region').
+If `rectangle-mark-mode' is on, copy the rectangle.
+If `region-active-p', copy the region.
 
 URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_current_line.html'
 Created: 2010-05-21
-Version: 2024-06-18"
+Version: 2024-06-19"
   (interactive)
   (cond
    (current-prefix-arg (copy-region-as-kill (point-min) (point-max)))
-   (rectangle-mark-mode (copy-region-as-kill (region-beginning) (region-end) 
t))
+   ((and (boundp 'rectangle-mark-mode) rectangle-mark-mode)
+    (copy-region-as-kill (region-beginning) (region-end) t))
    ((region-active-p) (copy-region-as-kill (region-beginning) (region-end)))
    ((eq last-command this-command)
     (if (eobp)