emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/xah-fly-keys 9be198feb1: xah-quote-lines removed begin end


From: ELPA Syncer
Subject: [nongnu] elpa/xah-fly-keys 9be198feb1: xah-quote-lines removed begin end param, so that repeat-complex-command works.
Date: Sun, 29 Oct 2023 22:01:38 -0400 (EDT)

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

    xah-quote-lines removed begin end param, so that repeat-complex-command 
works.
---
 xah-fly-keys.el | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 2825fc736d..4e11bce2c0 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: 24.13.20231029144236
+;; Version: 24.14.20231029171846 
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "29"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -1466,7 +1466,7 @@ Version: 2016-10-25 2023-07-10"
             (comment-or-uncomment-region xbegin xend)
             (forward-line )))))))
 
-(defun xah-quote-lines (Begin End QuoteL QuoteR Sep)
+(defun xah-quote-lines (QuoteL QuoteR Sep)
   "Add quotes/brackets and separator (comma) to lines.
 Act on current block or selection.
 
@@ -1491,7 +1491,7 @@ or
 In lisp code, QuoteL QuoteR Sep are strings.
 
 URL `http://xahlee.info/emacs/emacs/emacs_quote_lines.html'
-Version: 2020-06-26 2023-08-05 2023-08-25 2023-09-19"
+Version: 2020-06-26 2023-09-19 2023-10-29"
   (interactive
    (let ((xbrackets
           '(
@@ -1514,14 +1514,10 @@ Version: 2020-06-26 2023-08-05 2023-08-25 2023-09-19"
             "other"
             ))
          (xcomma '("comma ," "semicolon ;" "none" "other"))
-         xp1 xp2 xbktChoice xsep xsepChoice xquoteL xquoteR)
-     (let ((xbds (xah-get-bounds-of-block-or-region)))
-       (setq xp1 (car xbds) xp2 (cdr xbds)))
-
+         xbktChoice xsep xsepChoice xquoteL xquoteR)
      (let ((completion-ignore-case t))
        (setq xbktChoice (completing-read "Quote to use:" xbrackets nil t nil 
nil (car xbrackets)))
        (setq xsepChoice (completing-read "line separator:" xcomma nil t nil 
nil (car xcomma))))
-
      (cond
       ((string-equal xbktChoice "none")
        (setq xquoteL "" xquoteR ""))
@@ -1538,8 +1534,10 @@ Version: 2020-06-26 2023-08-05 2023-08-25 2023-09-19"
             ((string-equal xsepChoice "none") "")
             ((string-equal xsepChoice "other") (read-string "Enter 
separator:"))
             (t xsepChoice)))
-     (list xp1 xp2 xquoteL xquoteR xsep)))
-  (let ((xp1 Begin) (xp2 End) (xquoteL QuoteL) (xquoteR QuoteR) (xsep Sep))
+     (list xquoteL xquoteR xsep)))
+  (let (xp1 xp2 (xquoteL QuoteL) (xquoteR QuoteR) (xsep Sep))
+    (let ((xbds (xah-get-bounds-of-block-or-region)))
+      (setq xp1 (car xbds) xp2 (cdr xbds)))
     (save-excursion
       (save-restriction
         (narrow-to-region xp1 xp2)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]