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

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

[nongnu] elpa/xah-fly-keys 33bd3f7f06 2/2: fixed xah-select-text-in-quot


From: ELPA Syncer
Subject: [nongnu] elpa/xah-fly-keys 33bd3f7f06 2/2: fixed xah-select-text-in-quote in last commit
Date: Mon, 17 Jul 2023 04:03:15 -0400 (EDT)

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

    fixed xah-select-text-in-quote in last commit
---
 xah-fly-keys.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 14b97065c6..71e71bfe32 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: 23.14.20230716223005
+;; Version: 23.15.20230716225202
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -255,7 +255,8 @@ Version: 2018-06-04 2021-03-16 2022-03-05"
       (end-of-line))))
 
 (defvar xah-brackets '("“”" "()" "[]" "{}" "<>" "<>" "()" "[]" "{}" "⦅⦆" "〚〛" 
"⦃⦄" "‹›" "«»" "「」" "〈〉" "《》" "【】" "〔〕" "⦗⦘" "『』" "〖〗" "〘〙" "「」" "⟦⟧" "⟨⟩" "⟪⟫" 
"⟮⟯" "⟬⟭" "⌈⌉" "⌊⌋" "⦇⦈" "⦉⦊" "❛❜" "❝❞" "❨❩" "❪❫" "❴❵" "❬❭" "❮❯" "❰❱" "❲❳" "〈〉" 
"⦑⦒" "⧼⧽" "﹙﹚" "﹛﹜" "﹝﹞" "⁽⁾" "₍₎" "⦋⦌" "⦍⦎" "⦏⦐" "⁅⁆" "⸢⸣" "⸤⸥" "⟅⟆" "⦓⦔" "⦕⦖" 
"⸦⸧" "⸨⸩" "⦅⦆")
-  "A list of strings, each element is a string of 2 chars, the left bracket 
and a matching right bracket. Used by `xah-select-text-in-quote' and others.")
+ "A list of strings, each element is a string of 2 chars, the left bracket and 
a matching right bracket.
+Used by `xah-select-text-in-quote' and others.")
 
 (defconst xah-left-brackets
   (mapcar (lambda (x) (substring x 0 1)) xah-brackets)
@@ -2075,7 +2076,7 @@ Version: 2020-11-24 2022-03-26 2023-07-16"
   (interactive)
   (let ((xskipChars (concat "^\"`" (mapconcat #'identity xah-brackets ""))))
     (skip-chars-backward xskipChars)
-    (push-mark)
+    (push-mark (point) t t)
     (skip-chars-forward xskipChars)))
 
 



reply via email to

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