[nongnu] elpa/xah-fly-keys 256707d039 2/3: Merge pull request #179 from emiltoacs/fix-emacs-buffer-with-xah-user-buffer-p

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 256707d039eeed2a027ea8142c9be3c4fa75a4c8
Merge: 37a3111639 6fd3e434b7
Author: Xah Lee <xah@xahlee.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #179 from 
emiltoacs/fix-emacs-buffer-with-xah-user-buffer-p
    
    update xah-next/previous-emacs-buffer
---
 xah-fly-keys.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 6778efc9d8..1da01fc0f5 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -2165,11 +2165,11 @@ Version: 2024-05-01"
 “emacs buffer” here is buffer whose name starts with *.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
-Version: 2016-06-19"
+Version: 2024-09-16"
   (interactive)
   (next-buffer)
   (let ((i 0))
-    (while (and (not (string-equal "*" (substring (buffer-name) 0 1))) (< i 
20))
+    (while (and (xah-user-buffer-p) (< i 20))
       (setq i (1+ i)) (next-buffer))))
 
 (defun xah-previous-emacs-buffer ()
@@ -2177,11 +2177,11 @@ Version: 2016-06-19"
 “emacs buffer” here is buffer whose name starts with *.
 
 URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html'
-Version: 2016-06-19"
+Version: 2024-09-16"
   (interactive)
   (previous-buffer)
   (let ((i 0))
-    (while (and (not (string-equal "*" (substring (buffer-name) 0 1))) (< i 
20))
+    (while (and (xah-user-buffer-p) (< i 20))
       (setq i (1+ i)) (previous-buffer))))
 
 (defun xah-new-empty-buffer ()