[nongnu] elpa/xah-fly-keys e573256860: xah-save-close-current-buffer now support xah-open-last-closed for non-file buffer

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit e5732568605adeabc7216811e59dfcfbd8e4134a
Author: Xah Lee 
Commit: Xah Lee 

xah-save-close-current-buffer now support xah-open-last-closed for non-file 
buffer
---
 xah-fly-keys.el | 24 +---
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index bdb3fb2ffb..dae48b042c 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee 
-;; Version: 23.2.20230321155840
+;; Version: 23.3.20230321231338
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -2226,21 +2226,23 @@ Version 2023-03-21")
   "Save and close current buffer.
 If the buffer is not a file, save it to `xah-temp-dir-path' and named 
untitled_‹datetime›_‹randomhex›.txt
 
-Version 2022-12-29 2023-01-09"
+Call `xah-open-last-closed' to reopen it.
+
+Version 2022-12-29 2023-01-09 2023-03-21"
   (interactive)
   (if buffer-file-name
   (progn
 (when (buffer-modified-p) (save-buffer))
 (xah-add-to-recently-closed (buffer-name) buffer-file-name))
-(progn
-  (when (xah-user-buffer-p)
-(widen)
-(when (not (equal (point-max) 1))
-  (write-file
-   (format "%suntitled_%s_%x.txt"
-   xah-temp-dir-path
-   (format-time-string "%Y%m%d_%H%M%S")
-   (random #xf)))
+(when (xah-user-buffer-p)
+  (widen)
+  (when (not (equal (point-max) 1))
+(let ((xnewName (format "%suntitled_%s_%x.txt"
+xah-temp-dir-path
+(format-time-string "%Y%m%d_%H%M%S")
+(random #xf
+  (write-file xnewName)
+  (xah-add-to-recently-closed (buffer-name) xnewName)
   (kill-buffer))
 
 (defun xah-close-current-buffer ()

[elpa] externals/consult 28b7470311: consult-man: fix regexp type (#771)

[ELPA Syncer]

branch: externals/consult
commit 28b74703113765137cc4639285e511bd73fd99e6
Author: Zhengyi <10750252+fuzy...@users.noreply.github.com>
Commit: GitHub 

consult-man: fix regexp type (#771)

`man -k` is equivalent to `apropos`.  According to the manpage `apropos (1)`
defaults to interpret the patterns as extended regular expressions.
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 37126e9c6b..1ad305e8ef 100644
--- a/consult.el
+++ b/consult.el
@@ -4970,10 +4970,10 @@ details regarding the asynchronous search."
 (defun consult--man-builder (input)
   "Build command line from INPUT."
   (pcase-let* ((`(,arg . ,opts) (consult--command-split input))
-   (`(,re . ,hl) (funcall consult--regexp-compiler arg 'basic t)))
+   (`(,re . ,hl) (funcall consult--regexp-compiler arg 'extended 
t)))
 (when re
   (cons (append (consult--build-args consult-man-args)
-(list (consult--join-regexps re 'basic))
+(list (consult--join-regexps re 'extended))
 opts)
 hl
 

[elpa] externals/svg-lib d4273aa782 2/3: Merge pull request #29 from trengrj/bootstrap-fix-url

[ELPA Syncer]

branch: externals/svg-lib
commit d4273aa782768994bc8136719a0e46f95dfff761
Merge: 19db7378ce 712e863f59
Author: Nicolas P. Rougier 
Commit: GitHub 

Merge pull request #29 from trengrj/bootstrap-fix-url

Bootstrap icon url has changed, fixes #24
---
 svg-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/svg-lib.el b/svg-lib.el
index 204ad0270d..c12f3b1b95 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -108,7 +108,7 @@
 ;; -
 (defcustom  svg-lib-icon-collections
   '(("bootstrap" .
- "https://icons.getbootstrap.com/icons/%s.svg";)
+ "https://icons.getbootstrap.com/assets/icons/%s.svg";)
 ("simple" .
  
"https://raw.githubusercontent.com/simple-icons/simple-icons/develop/icons/%s.svg";)
 ("material" .

[elpa] externals/svg-lib updated (19db7378ce -> 5ba4e4ea2b)

[ELPA Syncer]

elpasync pushed a change to branch externals/svg-lib.

  from  19db7378ce Merge pull request #28 from grolongo/master
   new  712e863f59 Bootstrap icon url has changed
   new  d4273aa782 Merge pull request #29 from trengrj/bootstrap-fix-url
   new  5ba4e4ea2b Tagged v 0.2.6


Summary of changes:
 svg-lib.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

[elpa] externals/svg-lib 5ba4e4ea2b 3/3: Tagged v 0.2.6

[ELPA Syncer]

branch: externals/svg-lib
commit 5ba4e4ea2b5c66e8811beb53251dee13685b2cb2
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Tagged v 0.2.6
---
 svg-lib.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index c12f3b1b95..0d93e9973c 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -1,10 +1,10 @@
 ;;; svg-lib.el --- SVG tags, progress bars & icons -*- lexical-binding: t -*-
 
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
 
 ;; Maintainer: Nicolas P. Rougier 
 ;; URL: https://github.com/rougier/svg-lib
-;; Version: 0.2.5
+;; Version: 0.2.6
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: svg, icons, tags, convenience
 
@@ -67,6 +67,9 @@
 
 ;;; NEWS:
 
+;; Version 0.2.6
+;; - Bug fix with bootstrap icon directory
+
 ;; Version 0.2.5
 ;; - Bug fix in text size computation
 

[elpa] externals/svg-lib 712e863f59 1/3: Bootstrap icon url has changed

[ELPA Syncer]

branch: externals/svg-lib
commit 712e863f59bd2a88a2bda41439228ad1bd599fee
Author: John Trengrove 
Commit: GitHub 

Bootstrap icon url has changed
---
 svg-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/svg-lib.el b/svg-lib.el
index 204ad0270d..c12f3b1b95 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -108,7 +108,7 @@
 ;; -
 (defcustom  svg-lib-icon-collections
   '(("bootstrap" .
- "https://icons.getbootstrap.com/icons/%s.svg";)
+ "https://icons.getbootstrap.com/assets/icons/%s.svg";)
 ("simple" .
  
"https://raw.githubusercontent.com/simple-icons/simple-icons/develop/icons/%s.svg";)
 ("material" .

[elpa] externals/consult c37548d1f4 3/3: Update changelog

[ELPA Syncer]

branch: externals/consult
commit c37548d1f44b82b3ef049a9156a2a70158c42bba
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index ee5cfd8a22..3372501c81 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -4,6 +4,7 @@
 
 * Development
 
+- Bugfixes.
 - =consult-org-heading=: Support tag inheritance.
 - Use pure =consult--fast-abbreviate-file-name= function to abbreviate file 
names
   in =consult-buffer= and =consult-recent-file=. This ensures that 
abbreviation does

[elpa] externals/consult updated (28b7470311 -> c37548d1f4)

[ELPA Syncer]

elpasync pushed a change to branch externals/consult.

  from  28b7470311 consult-man: fix regexp type (#771)
   new  66a8e46467 Minor simplification
   new  54e2f1845d Fix consult--join-regexps-permutations
   new  c37548d1f4 Update changelog


Summary of changes:
 CHANGELOG.org |  1 +
 consult.el| 10 --
 2 files changed, 5 insertions(+), 6 deletions(-)

[elpa] externals/consult 54e2f1845d 2/3: Fix consult--join-regexps-permutations

[ELPA Syncer]

branch: externals/consult
commit 54e2f1845d8ae129c0c4b0efd6832fc53ec12fca
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix consult--join-regexps-permutations
---
 consult.el | 9 -
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/consult.el b/consult.el
index 31647cddb9..0d84d60cd5 100644
--- a/consult.el
+++ b/consult.el
@@ -1181,19 +1181,18 @@ matches case insensitively."
   (message "Too many regexps, %S ignored. Use post-filtering!"
(string-join (seq-drop regexps 3) " "))
   (setq regexps (seq-take regexps 3)))
-(consult--regexp-join-permutations regexps (and (eq type 'emacs) "\\")
+(consult--join-regexps-permutations regexps (and (eq type 'emacs) "\\")
 
-(defun consult--regexp-join-permutations (regexps esc)
+(defun consult--join-regexps-permutations (regexps esc)
   "Join all permutations of REGEXPS.
 ESC is the escaping string for choice and groups."
   (pcase regexps
 ('nil "")
 (`(,r) r)
-(`(,r1 ,r2) (concat r1 ".*" r2 esc "|" r2 ".*" r1))
 (_ (mapconcat
 (lambda (r)
-  (concat r ".*" esc "("
-  (consult--regexp-join-permutations (remove r regexps) esc)
+  (concat esc "(" r esc ").*" esc "("
+  (consult--join-regexps-permutations (remove r regexps) esc)
   esc ")"))
 regexps (concat esc "|")
 

[elpa] externals/consult 66a8e46467 1/3: Minor simplification

[ELPA Syncer]

branch: externals/consult
commit 66a8e4646757864c9f9a25275f6d98f3bdafd44a
Author: Daniel Mendler 
Commit: Daniel Mendler 

Minor simplification
---
 consult.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 1ad305e8ef..31647cddb9 100644
--- a/consult.el
+++ b/consult.el
@@ -1181,8 +1181,7 @@ matches case insensitively."
   (message "Too many regexps, %S ignored. Use post-filtering!"
(string-join (seq-drop regexps 3) " "))
   (setq regexps (seq-take regexps 3)))
-(consult--regexp-join-permutations regexps
-   (and (memq type '(basic emacs)) 
"\\")
+(consult--regexp-join-permutations regexps (and (eq type 'emacs) "\\")
 
 (defun consult--regexp-join-permutations (regexps esc)
   "Join all permutations of REGEXPS.

[elpa] externals/compat 19ded46eca: Improve defvar-keymap docstring.

[ELPA Syncer]

branch: externals/compat
commit 19ded46eca3addc953e88f08193d1e6611c69526
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve defvar-keymap docstring.

emacs-29 commit eed240bc022cef4ef0f2b12bd2ff116eb6b9581d
---
 compat-29.el | 19 +++
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/compat-29.el b/compat-29.el
index c74a866ced..8a22639b71 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -1209,14 +1209,17 @@ value can also be a property list with properties 
`:enter' and
  :repeat (:enter (commands ...) :exit (commands ...))
 
 `:enter' specifies the list of additional commands that only
-enter `repeat-mode'.  When the list is empty, then by default all
-commands in the map enter `repeat-mode'.  This is useful when
-there is a command that has the `repeat-map' symbol property, but
-doesn't exist in this specific map.  `:exit' is a list of
-commands that exit `repeat-mode'.  When the list is empty, no
-commands in the map exit `repeat-mode'.  This is useful when a
-command exists in this specific map, but it doesn't have the
-`repeat-map' symbol property on its symbol.
+enter `repeat-mode'.  When the list is empty, then only the
+commands defined in the map enter `repeat-mode'.  Specifying a
+list of commands is useful when there are commands that have the
+`repeat-map' symbol property, but don't exist in this specific
+map.
+
+`:exit' is a list of commands that exit `repeat-mode'.  When the
+list is empty, no commands in the map exit `repeat-mode'.
+Specifying a list of commands is useful when those commands exist
+in this specific map, but should not have the `repeat-map' symbol
+property.
 
 \(fn VARIABLE-NAME &key DOC FULL PARENT SUPPRESS NAME PREFIX KEYMAP REPEAT 
&rest [KEY DEFINITION]...)"
   (declare (indent 1))

[elpa] externals/ement 64049a21fa: Fix: (ement-leave/forget-room) Interactive prompts

[ELPA Syncer]

branch: externals/ement
commit 64049a21fac391bace1758e8ee65a74bc54c6219
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-leave/forget-room) Interactive prompts
---
 README.org   |  1 +
 ement-lib.el | 13 -
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 3167957fa3..d91bfd8d16 100644
--- a/README.org
+++ b/README.org
@@ -311,6 +311,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 *Fixes*
 
 + Improve insertion of sender name headers when using the "Elemental" message 
format.
++ Prompts in commands ~ement-leave-room~ and ~ement-forget-room~.
 
 ** 0.7
 
diff --git a/ement-lib.el b/ement-lib.el
index af743c6829..c04eb8bf11 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -150,9 +150,10 @@ the request."
 If FORCE-P, leave without prompting.  ROOM may be an `ement-room'
 struct, or a room ID or alias string."
   ;; TODO: Rename `room' argument to `room-or-id'.
-  (interactive (ement-complete-room :session (ement-complete-session)
- :prompt "Leave room: "))
-  (cl-assert room) (cl-assert session)
+  (interactive
+   (ement-with-room-and-session
+ :prompt-form (ement-complete-room :prompt "Leave room: ")
+ (list ement-room ement-session)))
   (cl-etypecase room
 (ement-room)
 (string (setf room (ement-afirst (or (equal room 
(ement-room-canonical-alias it))
@@ -190,8 +191,10 @@ struct, or a room ID or alias string."
   "Forget ROOM on SESSION.
 If FORCE-P (interactively, with prefix), prompt to leave the room
 when necessary, and forget the room without prompting."
-  (interactive (ement-complete-room :session (ement-complete-session)
- :prompt "Forget room: "))
+  (interactive
+   (ement-with-room-and-session
+ :prompt-form (ement-complete-room :prompt "Forget room: ")
+ (list ement-room ement-session current-prefix-arg)))
   (pcase-let* (((cl-struct ement-room id display-name status) room)
(endpoint (format "rooms/%s/forget" (url-hexify-string id
 (pcase status

[elpa] externals/org updated (cd2355a204 -> 20b33106cd)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  cd2355a204 ob-clojure.el: Fix compiler warning
   new  93bf820384 org-element-headline-parser: Treat "* TODO" as empty 
title + TODO keyword
   new  20b33106cd org-element-headline-parser: Fix empty headings with tags


Summary of changes:
 lisp/org-element.el  | 17 +++--
 testing/lisp/test-org-element.el | 13 -
 2 files changed, 19 insertions(+), 11 deletions(-)

[elpa] externals/org 93bf820384 1/2: org-element-headline-parser: Treat "* TODO" as empty title + TODO keyword

[ELPA Syncer]

branch: externals/org
commit 93bf820384e8b275ff500ab62ec85901d2490ab2
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-headline-parser: Treat "* TODO" as empty title + TODO keyword

* lisp/org-element.el (org-element-headline-parser): Allow end of line
instead of space after todo keyword.
*
testing/lisp/test-org-element.el (test-org-element/headline-todo-keyword):
Add new test.
---
 lisp/org-element.el  | 2 +-
 testing/lisp/test-org-element.el | 5 -
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 7ccdb103db..d61a7efb2d 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1103,7 +1103,7 @@ Assume point is at beginning of the headline."
  (skip-chars-forward " \t")))
   (level (org-reduced-level true-level))
   (todo (and org-todo-regexp
- (let (case-fold-search) (looking-at (concat 
org-todo-regexp " ")))
+ (let (case-fold-search) (looking-at (concat 
org-todo-regexp "\\(?: \\|$\\)")))
  (progn (goto-char (match-end 0))
 (skip-chars-forward " \t")
 (match-string 1
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 304059c673..e2cdadbd1a 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1206,7 +1206,10 @@ Some other text
   ;; Todo keyword is prefix of headlines first word.
   (org-test-with-temp-text "* TODOHeadline"
 (let ((org-todo-keywords '((sequence "TODO" "DONE"
-  (should-not (org-element-property :todo-keyword 
(org-element-at-point))
+  (should-not (org-element-property :todo-keyword 
(org-element-at-point)
+  (org-test-with-temp-text "* TODO"
+(let ((org-todo-keywords '((sequence "TODO" "DONE"
+  (should (org-element-property :todo-keyword (org-element-at-point))
 
 (ert-deftest test-org-element/headline-comment-keyword ()
   "Test COMMENT keyword recognition."

[elpa] externals/org 20b33106cd 2/2: org-element-headline-parser: Fix empty headings with tags

[ELPA Syncer]

branch: externals/org
commit 20b33106cdd108fd3212e5fef135a55e25ede4a4
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-headline-parser: Fix empty headings with tags

* lisp/org-element.el (org-element-headline-parser): Allow empty title
with tags.  Do not consider space after COMMENT to be a part of title.
*
testing/lisp/test-org-element.el (test-org-element/headline-todo-keyword):
Add tests.

Reported-by: Leo Butler 
Link: https://orgmode.org/list/87zg8t4zgo.fsf@localhost
---
 lisp/org-element.el  | 15 ++-
 testing/lisp/test-org-element.el | 10 +-
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index d61a7efb2d..357ad5596f 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -1114,16 +1114,13 @@ Assume point is at beginning of the headline."
 (aref (match-string 0) 2
   (commentedp
(and (let ((case-fold-search nil))
-   (looking-at org-element-comment-string))
-(goto-char (match-end 0))
- (when (looking-at-p "\\(?:[ \t]\\|$\\)")
-   (point
-  (title-start (prog1 (point)
-  (unless (or todo priority commentedp)
-;; Headline like "* :tag:"
-(skip-chars-backward " \t"
+   (looking-at (concat org-element-comment-string "\\(?: 
\\|$\\)")))
+ (prog1 t
+  (goto-char (match-end 0))
+   (skip-chars-forward " \t"
+  (title-start (point))
   (tags (when (re-search-forward
-   "[ \t]+\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
+   "\\(:[[:alnum:]_@#%:]+:\\)[ \t]*$"
(line-end-position)
'move)
   (goto-char (match-beginning 0))
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index e2cdadbd1a..6f95b0f0a4 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1209,7 +1209,15 @@ Some other text
   (should-not (org-element-property :todo-keyword 
(org-element-at-point)
   (org-test-with-temp-text "* TODO"
 (let ((org-todo-keywords '((sequence "TODO" "DONE"
-  (should (org-element-property :todo-keyword (org-element-at-point))
+  (should (org-element-property :todo-keyword (org-element-at-point)
+  (org-test-with-temp-text "* :tag:"
+(should (member "tag" (org-element-property :tags 
(org-element-at-point)
+  (org-test-with-temp-text "* COMMENT"
+(should (org-element-property :commentedp (org-element-at-point
+  (org-test-with-temp-text "* COMMENT title"
+(should (equal "title" (org-element-property :raw-value 
(org-element-at-point)
+  (org-test-with-temp-text "* COMMENT:tag:"
+(should-not (org-element-property :commentedp (org-element-at-point)
 
 (ert-deftest test-org-element/headline-comment-keyword ()
   "Test COMMENT keyword recognition."

[nongnu] elpa/pdf-tools dea468796d: Add `cairo-devel` to Void Linux package list

[ELPA Syncer]

branch: elpa/pdf-tools
commit dea468796d7a20c7b28bc4360d0663cb1dc010fd
Author: João Paulo da Cruz 
Commit: Vedang Manerikar 

Add `cairo-devel` to Void Linux package list

In Void Linux most heading/development files are separated from the "main" 
packages and are stored on `${package-name}-devel`. The autobuild for Void 
fails because it tries to find `cairo-devel`, which contains `cairo`, 
respectives headers and other dependencies.

This Pull Request adds `cairo-devel` to the `PACKAGES` variable
---
 server/autobuild | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/server/autobuild b/server/autobuild
index f05d6fce77..d5a594d28b 100755
--- a/server/autobuild
+++ b/server/autobuild
@@ -434,7 +434,8 @@ os_void() {
   poppler-glib-devel
   zlib-devel
   make
-  pkgconf"
+  pkgconf
+  cairo-devel"
 PKGCMD=xbps-install
 PKGARGS="-Sy"
 export PKG_CONFIG_PATH="${PKG_CONFIG_PATH}:/usr/lib/pkgconfig"

[nongnu] elpa/haml-mode 45a0b23db0: Bump version

[ELPA Syncer]

branch: elpa/haml-mode
commit 45a0b23db0b8f827c78f7749457f3427263e6ffd
Author: Steve Purcell 
Commit: Steve Purcell 

Bump version
---
 haml-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haml-mode.el b/haml-mode.el
index 690998feaa..f70dde5bdc 100644
--- a/haml-mode.el
+++ b/haml-mode.el
@@ -5,7 +5,7 @@
 ;; Author: Natalie Weizenbaum
 ;; URL: https://github.com/nex3/haml-mode
 ;; Package-Requires: ((emacs "24") (cl-lib "0.5"))
-;; Package-Version: 0
+;; Package-Version: 3.2.1
 ;; Created: 2007-03-08
 ;; By: Natalie Weizenbaum
 ;; Keywords: markup, languages, html

[elpa] externals/jit-spell 03f8050481 1/2: Refinement to Hunspell apostrophe hack

[ELPA Syncer]

branch: externals/jit-spell
commit 03f80504816d9f9a65f5a2ed45ea619f987beb40
Author: Augusto Stoffel 
Commit: Augusto Stoffel 

Refinement to Hunspell apostrophe hack

Now hide the problematic apostrophes entirely from the Hunspell
subprocess.
---
 jit-spell.el | 16 ++--
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/jit-spell.el b/jit-spell.el
index 799738c53f..a79c7a2594 100644
--- a/jit-spell.el
+++ b/jit-spell.el
@@ -446,18 +446,14 @@ Otherwise, only such regions are kept."
 (defun jit-spell--apostrophe-hack (regions)
   "Refine REGIONS to work around Hunspell's apostrophe issue."
   (mapcan
-   (pcase-lambda (`(,i . ,limit)) ;; Refine one region
+   (pcase-lambda (`(,i . ,end)) ;; Refine one region
  (let (result)
(goto-char i)
-   (while (re-search-forward
-   (rx (or (seq (or bol (not alpha)) (group ?') alpha)
-   (seq alpha (group ?') (or (not alpha) eol
-   limit t)
- (backward-char)
- (let ((j (or (match-end 1) (match-beginning 2
-   (push (cons i j) result)
-   (setq i j)))
-   (push (cons i limit) result)))
+   (while (re-search-forward (rx (? (group alpha)) (group (+ ?'))) end t)
+ (unless (and (match-beginning 1) (looking-at-p (rx alpha)))
+   (push (cons i (match-beginning 2)) result)
+   (setq i (point
+   (push (cons i end) result)))
regions))
 
 (defun jit-spell--check-region (start end)

[elpa] externals/jit-spell 2a34f68726 2/2: Reorganization and small refactorings

[ELPA Syncer]

branch: externals/jit-spell
commit 2a34f68726807d17292da906be5943bbd6d2e496
Author: Augusto Stoffel 
Commit: Augusto Stoffel 

Reorganization and small refactorings
---
 jit-spell.el | 86 +++-
 1 file changed, 38 insertions(+), 48 deletions(-)

diff --git a/jit-spell.el b/jit-spell.el
index a79c7a2594..6caa5dc569 100644
--- a/jit-spell.el
+++ b/jit-spell.el
@@ -138,27 +138,6 @@ move the point with impunity.")
 (defvar-local jit-spell--local-words nil
   "A list of words accepted temporarily in this buffer.")
 
-;;; Mode-specific support
-
-(defun jit-spell--default-ignored-p (start end)
-  "Return non-nil if word between START and END should not be spell-checked."
-  (or (get-text-property start 'jit-spell-ignored)
-  (let ((face (get-text-property start 'face)))
-(if (listp face)
-(seq-some (lambda (f) (memq f jit-spell-ignored-faces))
-  face)
-  (memq face jit-spell-ignored-faces)))
-  (member (buffer-substring-no-properties start end)
-  jit-spell--local-words)))
-
-(defun jit-spell--prog-ignored-p (start _end)
-  "Additional ignore predicate for `prog-mode'."
-  (let ((face (get-text-property start 'face)))
-(not (if (listp face)
- (seq-some (lambda (f) (memq f jit-spell-prog-mode-faces))
-   face)
-   (memq face jit-spell-prog-mode-faces)
-
 ;;; Overlays
 
 (put 'jit-spell 'evaporate t)
@@ -235,30 +214,6 @@ to END coming first."
 (delete-region (point) (overlay-end ov))
 (insert-before-markers text)))
 
-(defun jit-spell--context-menu (menu click)
-  "Context menu for `jit-spell-mode'.
-MENU and CLICK are as expected of a member of `context-menu-functions'.
-It can also be bound to a mouse click to pop up the menu."
-  (interactive "i\ne")
-  (save-excursion
-(mouse-set-point click)
-(when-let ((ov (jit-spell--overlay-at (point)))
-   (word (buffer-substring-no-properties
-  (overlay-start ov) (overlay-end ov)))
-   (map (or menu (make-sparse-keymap
-  (dolist (corr (overlay-get ov 'jit-spell-corrections))
-(easy-menu-add-item map '("Correct Word")
-(vector corr (lambda () (interactive)
-   (jit-spell--apply-correction ov 
corr)
-  (easy-menu-add-item map nil `["Save to Dictionary"
-(jit-spell--accept-word ,word 'dict)])
-  (easy-menu-add-item map nil `["Save to Buffer"
-(jit-spell--accept-word ,word 'buffer)])
-  (easy-menu-add-item map nil `["Accept for Session"
-(jit-spell--accept-word ,word 'session)])
-  (unless menu (popup-menu map)))
-menu))
-
 (defun jit-spell--unhide-overlay ()
   "Unhide the overlay stored in `jit-spell--hidden-overlay'."
   (pcase jit-spell--hidden-overlay
@@ -417,12 +372,22 @@ The process plist includes the following properties:
   (push (cons (match-beginning 0) (match-end 0)) regions))
 regions))
 
+;;; Mode-specific support
+
 (defun jit-spell--has-face-p (faces v)
   "Non-nil if V, a face or list of faces, includes any of the FACES."
   (if (listp v)
   (seq-some (lambda (f) (memq f faces)) v)
 (memq v faces)))
 
+(defun jit-spell--default-ignored-p (start end)
+  "Return non-nil if word between START and END should not be spell-checked."
+  (or (get-text-property start 'jit-spell-ignored)
+  (jit-spell--has-face-p jit-spell-ignored-faces
+ (get-char-property start 'face))
+  (member (buffer-substring-no-properties start end)
+  jit-spell--local-words)))
+
 (defun jit-spell--refine-by-face (faces &optional only)
   "Return a function to refine a list of regions based on its faces.
 If ONLY is nil, regions containing any of the FACES are excluded.
@@ -476,7 +441,7 @@ This is intended to be a member of `jit-lock-functions'."
 (jit-spell--send-request proc request)
 `(jit-lock-bounds ,start . ,end)))
 
-;;; Interactive commands and major mode
+;;; Interactive commands
 
 (defun jit-spell--accept-word (word where)
   "Accept spelling of WORD.
@@ -558,6 +523,32 @@ With a numeric ARG, move backwards that many misspellings."
 
 (defalias 'jit-spell-change-dictionary 'ispell-change-dictionary) ;For 
discoverability
 
+;;; Minor mode definition
+
+(defun jit-spell--context-menu (menu click)
+  "Context menu for `jit-spell-mode'.
+MENU and CLICK are as expected of a member of `context-menu-functions'.
+It can also be bound to a mouse click to pop up the menu."
+  (interactive "i\ne")
+  (save-excursion
+(mouse-set-point click)
+(when-let ((ov (jit-spell--overlay-at (point)))
+   (word (buffer-substring-no-properties
+  (overlay-start ov) (overlay-end ov)))
+   (map (or menu (make-sparse-keymap
+  (dol

[elpa] externals/jit-spell updated (e93e833722 -> 2a34f68726)

[ELPA Syncer]

elpasync pushed a change to branch externals/jit-spell.

  from  e93e833722 Refactor jit-spell-correct-word, keep sorting from 
spellchecker
   new  03f8050481 Refinement to Hunspell apostrophe hack
   new  2a34f68726 Reorganization and small refactorings


Summary of changes:
 jit-spell.el | 102 ++-
 1 file changed, 44 insertions(+), 58 deletions(-)

[nongnu] elpa/evil c61bc34b40: Defer loading of calc.el

[ELPA Syncer]

branch: elpa/evil
commit c61bc34b40f1f0605a999e874e837d1e8bda85af
Author: Axel Forsman 
Commit: Axel Forsman 

Defer loading of calc.el

The function calc-eval is autoloaded so there is no need to eagerly
require it.
---
 evil-common.el | 34 +-
 1 file changed, 13 insertions(+), 21 deletions(-)

diff --git a/evil-common.el b/evil-common.el
index 989becfdd5..c9d247e3b4 100644
--- a/evil-common.el
+++ b/evil-common.el
@@ -24,14 +24,13 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with Evil.  If not, see .
 
+;;; Code:
+
 (require 'evil-vars)
 (require 'evil-digraphs)
 (require 'rect)
 (require 'thingatpt)
 (require 'cl-lib)
-(require 'calc)
-
-;;; Code:
 
 (declare-function evil-visual-state-p "evil-states")
 (declare-function evil-visual-restore "evil-states")
@@ -40,10 +39,6 @@
 (declare-function evil-ex-p "evil-ex")
 (declare-function evil-set-jump "evil-jumps")
 
-(unless (require 'windmove nil t)
-  (message "evil: Could not load `windmove', \
-window commands not available."))
-
 ;;; Compatibility with different Emacs versions
 
 ;; x-set-selection and x-get-selection have been deprecated since 25.1
@@ -1952,33 +1947,30 @@ or a marker object pointing nowhere."
 
 (defun evil-swap-out-markers ()
   "Turn markers into file references when the buffer is killed."
-  (and buffer-file-name
-   (dolist (entry evil-markers-alist)
- (and (markerp (cdr entry))
-  (eq (marker-buffer (cdr entry)) (current-buffer))
-  (setcdr entry (cons buffer-file-name
-  (marker-position (cdr entry
+  (when buffer-file-name
+(dolist (entry evil-markers-alist)
+  (and (markerp (cdr entry))
+   (eq (marker-buffer (cdr entry)) (current-buffer))
+   (setcdr entry (cons buffer-file-name
+   (marker-position (cdr entry
 (put 'evil-swap-out-markers 'permanent-local-hook t)
 
+(defvar calc-multiplication-has-precedence)
 (defun evil--eval-expr (input)
   "Eval INPUT and return stringified result, if of a suitable type.
 If INPUT starts with a number, +, -, or . use `calc-eval' instead."
-  (let* ((first-char (car (remove ?\s (string-to-list input
- (calcable-p (and first-char (or (<= ?0 first-char ?9)
- (memq first-char '(?- ?+ ?.)
+  (let* ((calcable-p (string-match-p "\\`[[:space:]]*[0-9+.-]" input))
  (result (if calcable-p
  (let ((calc-multiplication-has-precedence nil))
(calc-eval input))
(eval (car (read-from-string input))
 (cond
- (calcable-p result)
- ((or (stringp result)
-  (numberp result)
-  (symbolp result))
+ ((stringp result) result)
+ ((or (numberp result) (symbolp result))
   (format "%s" result))
  ((sequencep result)
   (mapconcat (lambda (x) (format "%s" x)) result "\n"))
- (t (user-error "Using %s as a string" (type-of result))
+ (t (user-error "Using `%s' as a string" (type-of result))
 
 (defvar evil-paste-clear-minibuffer-first nil
   "`evil-paste-before' cannot have `delete-minibuffer-contents' called before

[nongnu] elpa/xah-fly-keys e7408e5b60: added an optimot layout, removed beopy layout. optimot shouldn't be added because it's used by maybe just a hundred people in the world. however, cletip really a

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit e7408e5b607d9214e83b2d408fe0833a01914ba2
Author: Xah Lee 
Commit: Xah Lee 

added an optimot layout, removed beopy layout. optimot shouldn't be added 
because it's used by maybe just a hundred people in the world. however, cletip 
really ask for it. Also, he added beopy before which was added years ago in the 
early days, and beopy is another layout nobody heared of. from now on, only 
well-known keyboard layout should be supported in xah-fly-keys. you can always 
put it to your init. optimot may be removed in the future.
---
 xah-fly-keys.el | 183 ++--
 1 file changed, 46 insertions(+), 137 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index dae48b042c..134244f1dd 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee 
-;; Version: 23.3.20230321231338
+;; Version: 23.4.20230322111913
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -2805,143 +2805,52 @@ Value is a alist, each element is of the form (\"e\" . 
\"d\").
 First char is Dvorak, second is corresponding char of the destination layout.
 When a char is not in this alist, they are assumed to be the same. ")
 
-(push
- '("azerty" . (("." . "e") ("," . "z") ("'" . "a") (";" . "w") ("/" . "^") 
("[" . ")")
-   ("]" . "=") ("=" . "$") ("-" . "ù") ("a" . "q") ("b" . "n") ("c" . "i")
-   ("d" . "h") ("e" . "d") ("f" . "y") ("g" . "u") ("h" . "j") ("i" . "g")
-   ("j" . "c") ("k" . "v") ("l" . "p") ("m" . ",") ("n" . "l") ("o" . "s")
-   ("p" . "r") ("q" . "x") ("r" . "o") ("s" . "m") ("t" . "k") ("u" . "f")
-   ("v" . ":") ("w" . ";") ("x" . "b") ("y" . "t") ("z" . "!") ("1" . "&")
-   ("2" . "é") ("3" . "\"") ("4" . "'") ("5" . "(") ("6" . "-") ("7" . "è")
-   ("8" . "_") ("9" . "ç") ("0" . "à") ("\\" . "*") ("`" . "²")))
- ;; NOTE: / is a dead key
- xah-fly-layouts)
-
-(push
- '("azerty-be" . (("." . "e") ("," . "z") ("'" . "a") (";" . "w") ("/" . "^") 
("[" . ")") ("]" . "-") ("=" . "$") ("-" . "ù") ("a" . "q") ("b" . "n") ("c" . 
"i") ("d" . "h") ("e" . "d") ("f" . "y") ("g" . "u") ("h" . "j") ("i" . "g") 
("j" . "c") ("k" . "v") ("l" . "p") ("m" . ",") ("n" . "l") ("o" . "s") ("p" . 
"r") ("q" . "x") ("r" . "o") ("s" . "m") ("t" . "k") ("u" . "f") ("v" . ":") 
("w" . ";") ("x" . "b") ("y" . "t") ("z" . "=") ("1" . "&") ("2" . "é") ("3" . 
"\"") ("4" . "'") ("5"  [...]
- ;; NOTE: / is a dead key
-xah-fly-layouts)
-
-(push
-  ;; NOTE: f is a dead key
- '("beopy" . (("." . "o") ("," . "é") ("'" . "b") (";" . "à") ("/" . "k") ("[" 
. "=") ("]" . "%") ("=" . "z") ("-" . "m") ("b" . "'") ("c" . "d") ("d" . "c") 
("f" . "^") ("g" . "v") ("h" . "t") ("i" . ",") ("j" . "x") ("k" . ".") ("l" . 
"j") ("m" . "g") ("n" . "r") ("o" . "u") ("q" . "è") ("r" . "l") ("s" . "n") 
("t" . "s") ("u" . "i") ("v" . "h") ("w" . "q") ("x" . "w") ("z" . "f") ("1" . 
"\"") ("2" . "«") ("3" . "»") ("4" . "(") ("5" . ")") ("6" . "@") ("7" . "+") 
("8" . "-") ("9" . "/ [...]
- xah-fly-layouts)
-
-(push
- '("colemak" . (("'" . "q") ("," . "w") ("." . "f") ("y" . "g") ("f" . "j") 
("g" . "l") ("c" . "u") ("r" . "y") ("l" . ";") ("o" . "r") ("e" . "s") ("u" . 
"t") ("i" . "d") ("d" . "h") ("h" . "n") ("t" . "e") ("n" . "i") ("s" . "o") 
(";" . "z") ("q" . "x") ("j" . "c") ("k" . "v") ("x" . "b") ("b" . "k") ("w" . 
",") ("v" . ".") ("z" . "/")))
- xah-fly-layouts)
-
-(push
- '("colemak-dhm" . (("'" . "q") ("," . "w") ("." . "f") (";" . "z") ("b" . 
"k") ("c" . "u") ("d" . "m") ("e" . "s") ("f" . "j") ("g" . "l") ("h" . "n") 
("i" . "g") ("j" . "c") ("k" . "d") ("l" . ";") ("m" . "h") ("n" . "i") ("o" . 
"r") ("q" . "x") ("r" . "y") ("s" . "o") ("t" . "e") ("u" . "t") ("v" . ".") 
("w" . ",") ("x" . "v") ("y" . "b") ("z" . "/")))
- xah-fly-layouts)
-
-(push
- '("colemak-dhm-angle" . (("'" . "q") ("," . "w") ("." . "f") (";" . "x") ("b" 
. "k") ("c" . "u") ("d" . "m") ("e" . "s") ("f" . "j") ("g" . "l") ("h" . "n") 
("i" . "g") ("j" . "d") ("k" . "v") ("l" . ";") ("m" . "h") ("n" . "i") ("o" . 
"r") ("q" . "c") ("r" . "y") ("s" . "o") ("t" . "e") ("u" . "t") ("v" . ".") 
("w" . ",") ("x" . "\\") ("y" . "b") ("z" . "/")))
- xah-fly-layouts)
-
-(push
- '("colemak-dhk" . (("'" . "q") ("," . "w") ("." . "f") (";" . "z") ("b" . 
"m") ("c" . "u") ("d" . "k") ("e" . "s") ("f" . "j") ("g" . "l") ("h" . "n") 
("i" . "g") ("j" . "c") ("k" . "d") ("l" . ";") ("m" . "h") ("n" . "i") ("o" . 
"r") ("q" . "x") ("r" . "y") ("s" . "o") ("t" . "e") ("u" . "t") ("v" . ".") 
("w" . ",") ("x" . "v") ("y" . "b") ("z" . "/")))
-xah-fly-layouts)
-
-(push
- '("dvorak" . nil)
- xah-fly-layouts)
-
-(push
- '("programer-dvorak" . (
-;; number row
- ("`" . "$") ("1" . "&") ("2" . "[") ("3" . "{") ("4" . "}") ("5" . "(") ("6" 
. "=") ("7" . "*") ("8" . ")") ("9" . "+") ("0" . "]") ("[" . "!") ("]" . "#")
-;; number row, shifted
- ("!" . "%") ("@" . "7") 

[elpa] externals/org updated (20b33106cd -> f7aa8c19f5)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  20b33106cd org-element-headline-parser: Fix empty headings with tags
   new  5a52ee57d4 org-macs.el: Move UUID related code
   new  cb95d88936 ob-R.el/ob-python: Update `md5' calls to `org-id-uuid'
   new  180c1c37a9 ob-comint.el: Fix off-by-one error in async result
   new  f7aa8c19f5 ob-shell.el: Add async evaluation


Summary of changes:
 lisp/ob-R.el  |  2 +-
 lisp/ob-comint.el |  2 +-
 lisp/ob-python.el |  2 +-
 lisp/ob-shell.el  | 54 ---
 lisp/org-id.el| 24 ---
 lisp/org-macs.el  | 32 +
 lisp/org.el   |  4 
 testing/lisp/test-ob-shell.el | 54 +++
 8 files changed, 130 insertions(+), 44 deletions(-)

[elpa] externals/org f7aa8c19f5 4/4: ob-shell.el: Add async evaluation

[ELPA Syncer]

branch: externals/org
commit f7aa8c19f5170dbf09538686fb569f9b60acbd6c
Author: Matthew Trzcinski 
Commit: Matthew Trzcinski 

ob-shell.el: Add async evaluation

* ob-shell.el (org-babel-sh-evaluate): Add condition for async within
session.  Allow :async header argument to be either t or blank.

* test-ob-shell.el:
(test-ob-shell/session-async-valid-header-arg-values): Check that
:async header works for both t and blank values.
(test-ob-shell/session-async-inserts-uuid-before-results-are-returned):
Check that UUID is used as placeholder until results return.
(test-ob-shell/session-async-evaluation): Check that asynchronously
evaluated results are eventually placed in the buffer.

Link: 
https://list.orgmode.org/186283d230a.129f5feb61660123.3289004102603503...@excalamus.com/
---
 lisp/ob-shell.el  | 54 ---
 testing/lisp/test-ob-shell.el | 54 +++
 2 files changed, 95 insertions(+), 13 deletions(-)

diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index 9e7b45a891..340c79abe0 100644
--- a/lisp/ob-shell.el
+++ b/lisp/ob-shell.el
@@ -269,12 +269,22 @@ var of the same value."
(set-marker comint-last-output-start (point))
(get-buffer (current-buffer)))
 
+(defconst ob-shell-async-indicator "echo 'ob_comint_async_shell_%s_%s'"
+  "Session output delimiter template.
+See `org-babel-comint-async-indicator'.")
+
+(defun ob-shell-async-chunk-callback (string)
+  "Filter applied to results before insertion.
+See `org-babel-comint-async-chunk-callback'."
+  (replace-regexp-in-string comint-prompt-regexp "" string))
+
 (defun org-babel-sh-evaluate (session body &optional params stdin cmdline)
   "Pass BODY to the Shell process in BUFFER.
 If RESULT-TYPE equals `output' then return a list of the outputs
 of the statements in BODY, if RESULT-TYPE equals `value' then
 return the value of the last statement in BODY."
   (let* ((shebang (cdr (assq :shebang params)))
+ (async (org-babel-comint-use-async params))
 (results-params (cdr (assq :result-params params)))
 (value-is-exit-status
  (or (and
@@ -306,19 +316,37 @@ return the value of the last statement in BODY."
 (concat (file-local-name script-file)  " " 
cmdline)
(buffer-string
   (session ; session evaluation
-   (mapconcat
-#'org-babel-sh-strip-weird-long-prompt
-(mapcar
- #'org-trim
- (butlast ; Remove eoe indicator
-  (org-babel-comint-with-output
-  (session org-babel-sh-eoe-output t body)
- (insert (org-trim body) "\n"
- org-babel-sh-eoe-indicator)
-(comint-send-input nil t))
-   ;; Remove `org-babel-sh-eoe-indicator' output line.
-  1))
-"\n"))
+(if async
+(progn
+  (let ((uuid (org-id-uuid)))
+(org-babel-comint-async-register
+ session
+ (current-buffer)
+ "ob_comint_async_shell_\\(.+\\)_\\(.+\\)"
+ 'ob-shell-async-chunk-callback
+ nil)
+(org-babel-comint-async-delete-dangling-and-eval
+session
+  (insert (format ob-shell-async-indicator "start" uuid))
+  (comint-send-input nil t)
+  (insert (org-trim body))
+  (comint-send-input nil t)
+  (insert (format ob-shell-async-indicator "end" uuid))
+  (comint-send-input nil t))
+uuid))
+ (mapconcat
+  #'org-babel-sh-strip-weird-long-prompt
+  (mapcar
+   #'org-trim
+   (butlast ; Remove eoe indicator
+(org-babel-comint-with-output
+(session org-babel-sh-eoe-output t body)
+   (insert (org-trim body) "\n"
+   org-babel-sh-eoe-indicator)
+  (comint-send-input nil t))
+ ;; Remove `org-babel-sh-eoe-indicator' output line.
+1))
+  "\n")))
   ;; External shell script, with or without a predefined
   ;; shebang.
   ((org-string-nw-p shebang)
diff --git a/testing/lisp/test-ob-shell.el b/testing/lisp/test-ob-shell.el
index 8366f9dbee..879555af0a 100644
--- a/testing/lisp/test-ob-shell.el
+++ b/testing/lisp/test-ob-shell.el
@@ -27,6 +27,7 @@
 ;;; Requirements:
 
 (require 'ob-core)
+(require 'org-macs)
 
 (unless (featurep 'ob-shell)
   (signal 'missing-test-dependency "Support for Shell code blocks"))
@@ -75,6 +76,59 @@ the body of the tangled block does."
 (if (should (equal '((1) (2)) result))
 (kil

[elpa] externals/org 5a52ee57d4 1/4: org-macs.el: Move UUID related code

[ELPA Syncer]

branch: externals/org
commit 5a52ee57d4a04334ce39162119fa271e6d579d9a
Author: Matthew Trzcinski 
Commit: Matthew Trzcinski 

org-macs.el: Move UUID related code

* org-id.el (org-id-uuid): Move to org-macs.el.

* org.el (org-uuidgen-p): Move to org-macs.el.  Expose regexp used to
match UUID.

* org-macs.el (org-uuid-regexp): Refactor `org-uuidgen-p' to expose
regexp used to match UUID.
---
 lisp/org-id.el   | 24 
 lisp/org-macs.el | 32 
 lisp/org.el  |  4 
 3 files changed, 32 insertions(+), 28 deletions(-)

diff --git a/lisp/org-id.el b/lisp/org-id.el
index 490e4ddee5..aa9610f169 100644
--- a/lisp/org-id.el
+++ b/lisp/org-id.el
@@ -399,30 +399,6 @@ So a typical ID could look like \"Org:4nd91V40HI\"."
  (t (error "Invalid `org-id-method'")))
 (concat prefix unique)))
 
-(defun org-id-uuid ()
-  "Return string with random (version 4) UUID."
-  (let ((rnd (md5 (format "%s%s%s%s%s%s%s"
- (random)
- (org-time-convert-to-list nil)
- (user-uid)
- (emacs-pid)
- (user-full-name)
- user-mail-address
- (recent-keys)
-(format "%s-%s-4%s-%s%s-%s"
-   (substring rnd 0 8)
-   (substring rnd 8 12)
-   (substring rnd 13 16)
-   (format "%x"
-   (logior
-#b1000
-(logand
- #b1011
- (string-to-number
-  (substring rnd 16 18) 16
-   (substring rnd 18 20)
-   (substring rnd 20 32
-
 (defun org-id-int-to-b36-one-digit (integer)
   "Convert INTEGER between 0 and 61 into a single character 0..9, A..Z, a..z."
   (cond
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 946e19e049..00979c2edc 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -829,6 +829,29 @@ When NEXT is non-nil, check the next line instead."
 When NEXT is non-nil, check the next line instead."
   (org--line-empty-p 2))
 
+(defun org-id-uuid ()
+  "Return string with random (version 4) UUID."
+  (let ((rnd (md5 (format "%s%s%s%s%s%s%s"
+ (random)
+ (org-time-convert-to-list nil)
+ (user-uid)
+ (emacs-pid)
+ (user-full-name)
+ user-mail-address
+ (recent-keys)
+(format "%s-%s-4%s-%s%s-%s"
+   (substring rnd 0 8)
+   (substring rnd 8 12)
+   (substring rnd 13 16)
+   (format "%x"
+   (logior
+#b1000
+(logand
+ #b1011
+ (string-to-number
+  (substring rnd 16 18) 16
+   (substring rnd 18 20)
+   (substring rnd 20 32
 
 
 ;;; Motion
@@ -948,6 +971,15 @@ return nil."
   (require 'ffap)
   (and ffap-url-regexp (string-match-p ffap-url-regexp s)))
 
+(defconst org-uuid-regexp
+  
"\\`[0-9a-f]\\{8\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{12\\}\\'"
+  "Regular expression matching a universal unique identifier (UUID).")
+
+(defun org-uuidgen-p (s)
+  "Is S an ID created by UUIDGEN?"
+  (string-match org-uuid-regexp (downcase s)))
+
+
 
 ;;; String manipulation
 
diff --git a/lisp/org.el b/lisp/org.el
index c5ea3ebb73..23cb6012d8 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18457,10 +18457,6 @@ With prefix arg UNCOMPILED, load the uncompiled 
versions."
 (setq s (replace-match "\\vert" t t s)))
   s)
 
-(defun org-uuidgen-p (s)
-  "Is S an ID created by UUIDGEN?"
-  (string-match 
"\\`[0-9a-f]\\{8\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{4\\}-[0-9a-f]\\{12\\}\\'"
 (downcase s)))
-
 (defun org-in-src-block-p (&optional inside element)
   "Whether point is in a code source block.
 When INSIDE is non-nil, don't consider we are within a source

[elpa] externals/org cb95d88936 2/4: ob-R.el/ob-python: Update `md5' calls to `org-id-uuid'

[ELPA Syncer]

branch: externals/org
commit cb95d88936b480e15c0b3163e9bc3e38eb0e29b4
Author: Matthew Trzcinski 
Commit: Matthew Trzcinski 

ob-R.el/ob-python: Update `md5' calls to `org-id-uuid'

* ob-R.el (ob-session-async-org-babel-R-evaluate-session): Use
`org-id-uuid' instead of `md5' as results placeholder.

* ob-python.el (org-babel-python-async-evaluate-session): Use
`org-id-uuid' instead of `md5' as results placeholder.
---
 lisp/ob-R.el  | 2 +-
 lisp/ob-python.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 2d22a4657a..67b9a68b1a 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -519,7 +519,7 @@ by `org-babel-comint-async-filter'."
   (ess-eval-buffer nil)))
tmp-file))
 (output
- (let ((uuid (md5 (number-to-string (random 1
+ (let ((uuid (org-id-uuid))
(ess-local-process-name
 (process-name (get-buffer-process session)))
(ess-eval-visibly-p nil))
diff --git a/lisp/ob-python.el b/lisp/ob-python.el
index e78d950bdc..456f2d489e 100644
--- a/lisp/ob-python.el
+++ b/lisp/ob-python.el
@@ -398,7 +398,7 @@ by `org-babel-comint-async-filter'."
   (let ((python-shell-buffer-name (org-babel-python-without-earmuffs session)))
 (pcase result-type
   (`output
-   (let ((uuid (md5 (number-to-string (random 1)
+   (let ((uuid (org-id-uuid)))
  (with-temp-buffer
(insert (format org-babel-python-async-indicator "start" uuid))
(insert "\n")

[elpa] externals/org 180c1c37a9 3/4: ob-comint.el: Fix off-by-one error in async result

[ELPA Syncer]

branch: externals/org
commit 180c1c37a9f3a6a955a023223dfe7246f3384aa2
Author: Matthew Trzcinski 
Commit: Matthew Trzcinski 

ob-comint.el: Fix off-by-one error in async result

* ob-comint.el (org-babel-comint-async-filter): Fix region returned
after async calculation completes so that the trailing prompt ends in
a space.

Link: 
https://list.orgmode.org/18705dca9b8.f4f7e70c165671.6021704484862511...@excalamus.com/
---
 lisp/ob-comint.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob-comint.el b/lisp/ob-comint.el
index 54bf5127e1..86c2bf7a76 100644
--- a/lisp/ob-comint.el
+++ b/lisp/ob-comint.el
@@ -273,7 +273,7 @@ STRING contains the output originally inserted into the 
comint buffer."
   (res-str-raw
(buffer-substring
 ;; move point to beginning of indicator
- (- (match-beginning 0) 1)
+ (match-beginning 0)
 ;; find the matching start indicator
 (cl-loop
   do (re-search-backward indicator)

[elpa] externals/realgud-trepan-xpy f726f8ec97: Add badges and ELPA information

[ELPA Syncer]

branch: externals/realgud-trepan-xpy
commit f726f8ec973eb0fb2efb7e2a8efb24bc576e2627
Author: rocky 
Commit: rocky 

Add badges and ELPA information
---
 README.md | 15 +++
 1 file changed, 15 insertions(+)

diff --git a/README.md b/README.md
index 6de99a9e44..6efdbd0193 100644
--- a/README.md
+++ b/README.md
@@ -1,3 +1,5 @@
+[![MELPA][melpa-image]][melpa]
+
 Introduction
 
 
@@ -7,6 +9,19 @@ Emacs Lisp Module to add 
[trepan-xpy](https://github.com/rocky/trepan-xpy/) supp
 Installation
 =
 
+Installation
+=
+
+From ELPA
+--
+
+Inside GNU Emacs evaluate:
+
+```lisp
+  (package-install realgud-trepan-xpy)
+```
+
+
 From github source
 --
 

[elpa] externals/realgud-pdbpp bc38792cac: Get ready for release 1.0.0

[Rocky Bernstein]

branch: externals/realgud-pdbpp
commit bc38792cac80029e7a2d8366181fdc54705ec098
Author: rocky 
Commit: rocky 

Get ready for release 1.0.0
---
 .gitignore   |  2 ++
 Makefile.am  |  2 +-
 README.md| 19 +++
 THANKS   |  0
 configure.ac |  5 ++---
 5 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/.gitignore b/.gitignore
index 98b94ebf0f..14a45ea398 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,6 +5,7 @@
 /.byebug_history
 /.python-version
 /.ruby-version
+/ChangeLog
 /README
 /aclocal.m4
 /autom4te.cache
@@ -13,6 +14,7 @@
 /config.status
 /configure
 /configure.lineno
+/dist
 /elpa
 /install-sh
 /missing
diff --git a/Makefile.am b/Makefile.am
index 30bb24e0f7..4a373341cb 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -15,7 +15,7 @@ include common.mk
 
 PHONY=check clean dist distclean test check-short check-terse install-short
 
-EXTRA_DIST = common.mk.in INSTALL.md README.md THANKS $(lisp_files)
+EXTRA_DIST = common.mk.in README.md THANKS $(lisp_files)
 
 if MAINTAINER_MODE
 
diff --git a/README.md b/README.md
index eeb260f1f8..bf0177dcd8 100644
--- a/README.md
+++ b/README.md
@@ -1 +1,20 @@
+Introduction
+
+
 Emacs Lisp Module to add [pdb++](https://github.com/pdbpp/pdbpp/) support to 
[realgud](https://github.com/realgud/realgud).
+
+
+Installation
+=
+
+From github source
+--
+
+* Have `realgud` and `test-simple` installed.
+* From inside GNU Emacs, evaluate:
+```lisp
+  (compile (format "EMACSLOADPATH=:%s:%s ./autogen.sh" (file-name-directory 
(locate-library "test-simple.elc")) (file-name-directory (locate-library 
"realgud.elc"
+```
+
+[gnu-elpa-image]: https://elpa.gnu.org/packages/realgud-pdbpp.svg
+[gnu-elpa]: https://elpa.gnu.org/packages/realgud-pdbpp.html
diff --git a/THANKS b/THANKS
new file mode 100644
index 00..e69de29bb2
diff --git a/configure.ac b/configure.ac
index dc01bc97c3..d9b63de7a3 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,12 +1,11 @@
 dnl FIXME: pick up from realgud.el
-AC_INIT(realgud-pdbpp, 1.0.0,)
+AC_INIT([realgud-pdbpp],[1.0.0],[])
 AC_CONFIG_SRCDIR(pdbpp/pdbpp.el)
 AM_INIT_AUTOMAKE([foreign])
 AM_MAINTAINER_MODE
 
 AC_PATH_PROG([EMACS], [emacs], [emacs])
-AC_ARG_WITH(emacs, AC_HELP_STRING([--with-emacs],
-  [location of emacs program]), EMACS=$withval)
+AC_ARG_WITH(emacs, AS_HELP_STRING([--with-emacs],[location of emacs program]), 
EMACS=$withval)
 
 AC_MSG_NOTICE("Checking emacs version")
 $EMACS -batch -q --no-site-file -eval \

[elpa] externals/xeft updated (24ddfefc30 -> e88f73979d)

[ELPA Syncer]

elpasync pushed a change to branch externals/xeft.

  from  24ddfefc30 Allow following symlinks when recursively listing files 
(issue#6)
   new  1a96d33485 ; * README.md: Add a Q & A section.
   new  e88f73979d ; * README.md: Minor edit.


Summary of changes:
 README.md | 50 ++
 1 file changed, 50 insertions(+)

[elpa] externals/xeft e88f73979d 2/2: ; * README.md: Minor edit.

[ELPA Syncer]

branch: externals/xeft
commit e88f73979d50247d9fc1ba730022caaffb5bc317
Author: Yuan Fu 
Commit: Yuan Fu 

; * README.md: Minor edit.
---
 README.md | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 206db6c21a..029dbd61c3 100644
--- a/README.md
+++ b/README.md
@@ -125,12 +125,13 @@ to do it.
 **How to include files in the subdirectories?**
 
 ```emacs-lisp
+;; Don't follow symlinks.
 (setq xeft-recusive t)
-;; Or
+;; Follow symlinks.
 (setq xeft-recusive 'follow-symlinks)
 ```
 
-**How to make the preview pane to show up automatically? (without typing SPC)**
+**How to make the preview pane to show up automatically?**
 
 ```emacs-lisp
 (defvar-local xeft--displayed-by-xeft-p nil)

[elpa] externals/xeft 1a96d33485 1/2: ; * README.md: Add a Q & A section.

[ELPA Syncer]

branch: externals/xeft
commit 1a96d334851291d3fac06c59db58fbe44a62086d
Author: Yuan Fu 
Commit: Yuan Fu 

; * README.md: Add a Q & A section.
---
 README.md | 49 +
 1 file changed, 49 insertions(+)

diff --git a/README.md b/README.md
index f2d2e3165f..206db6c21a 100644
--- a/README.md
+++ b/README.md
@@ -103,3 +103,52 @@ happier using notdeft instead.
 # Xapian dynamic module
 
 I wrote a xapian dynamic module that you can use too. Check it out at 
https://git.sr.ht/~casouri/xapian-lite
+
+# Q & A
+
+**Why do I still see files that should’ve been ignored after changing 
`xeft-ignore-extension`?**
+
+You need to delete the database and let xeft rebuild it, because files
+already included into the database are not automatically deleted.
+
+**How to exclude a directory?**
+
+You can customize `xeft-directory-filter` or `xeft-file-list-function`
+to do it.
+
+**How to use the file name as excerpt title instead?**
+
+```emacs-lisp
+(setq xeft-title-function #'file-name-nondirectory)
+```
+
+**How to include files in the subdirectories?**
+
+```emacs-lisp
+(setq xeft-recusive t)
+;; Or
+(setq xeft-recusive 'follow-symlinks)
+```
+
+**How to make the preview pane to show up automatically? (without typing SPC)**
+
+```emacs-lisp
+(defvar-local xeft--displayed-by-xeft-p nil)
+
+(defun xeft--eager-preview()
+  (when-let* ((button (button-at (point)))
+  (path (button-get button 'path)))
+;; Kill previously displayed buffer.
+(when (window-live-p xeft--preview-window)
+  (with-selected-window xeft--preview-window
+(when xeft--displayed-by-xeft-p
+  (kill-buffer
+;; Show preview of current selection.
+(xeft--preview-file path)))
+
+(add-hook 'xeft-find-file-hook
+  (lambda () (setq xeft--displayed-by-xeft-p t)))
+
+(advice-add 'xeft-next :after #'xeft--eager-preview)
+(advice-add 'xeft-previous :after #'xeft--eager-preview)
+```

[elpa] externals/denote updated (2021999f82 -> e5ec2095b7)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  2021999f82 Fix case where denote-rename-file-using-front-matter 
finds no signature
   new  ffbe225e7a Fix denote-rename-file-using-front-matter failing when 
no keywords
   new  e5ec2095b7 Acknowledge Eduardo Grajeda for commit ffbe225


Summary of changes:
 README.org | 11 ++-
 denote.el  | 10 ++
 2 files changed, 12 insertions(+), 9 deletions(-)

[elpa] externals/denote e5ec2095b7 2/2: Acknowledge Eduardo Grajeda for commit ffbe225

[ELPA Syncer]

branch: externals/denote
commit e5ec2095b754acdc5d4a80405a9f9b9fd961883a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Eduardo Grajeda for commit ffbe225

This is within the ~15 line limit and does not require copyright
assignment to the Free Software Foundation.

The patch was sent on the mailing list:
.
---
 README.org | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 6990d1d354..f1bbbeaa28 100644
--- a/README.org
+++ b/README.org
@@ -3944,11 +3944,12 @@ Denote is meant to be a collective effort.  Every bit 
of help matters.
 
 + Contributions to code or the manual :: Abin Simon, Alan Schmitt,
   Benjamin Kästner, Charanjit Singh, Clemens Radermacher, Colin
-  McLear, Damien Cassou, Elias Storms, Eshel Yaron, Florian, Graham
-  Marlow, Hilde Rhyne, Jack Baty, Jean-Philippe Gagné Guay, Jürgen
-  Hötzel, Kaushal Modi, Kyle Meyer, Marc Fargas, Matthew Lemon, Noboru
-  Ota (nobiot), Norwid Behrnd, Peter Prevos, Philip Kaludercic,
-  Quiliro Ordóñez, Stefan Monnier, Stefan Thesing, Thibaut Benjamin.
+  McLear, Damien Cassou, Eduardo Grajeda, Elias Storms, Eshel Yaron,
+  Florian, Graham Marlow, Hilde Rhyne, Jack Baty, Jean-Philippe Gagné
+  Guay, Jürgen Hötzel, Kaushal Modi, Kyle Meyer, Marc Fargas, Matthew
+  Lemon, Noboru Ota (nobiot), Norwid Behrnd, Peter Prevos, Philip
+  Kaludercic, Quiliro Ordóñez, Stefan Monnier, Stefan Thesing, Thibaut
+  Benjamin.
 
 + Ideas and/or user feedback :: Abin Simon, Aditya Yadav, Alan
   Schmitt, Alfredo Borrás, Benjamin Kästner, Colin McLear, Damien

[elpa] externals/denote ffbe225e7a 1/2: Fix denote-rename-file-using-front-matter failing when no keywords

[ELPA Syncer]

branch: externals/denote
commit ffbe225e7a532947f293780d6710e537cbfa58da
Author: Eduardo Grajeda 
Commit: Protesilaos Stavrou 

Fix denote-rename-file-using-front-matter failing when no keywords

Keywords are optional, and the filename is computed properly when
they are nil.
---
 denote.el | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index ca997c5a4f..796257c96a 100644
--- a/denote.el
+++ b/denote.el
@@ -2320,15 +2320,17 @@ proceed with the renaming."
 (user-error "The file is not writable or does not have a supported file 
extension"))
   (if-let* ((file-type (denote-filetype-heuristics file))
 (title (denote-retrieve-title-value file file-type))
-(keywords (denote-retrieve-keywords-value file file-type))
 (extension (file-name-extension file t))
 (id (denote-retrieve-or-create-file-identifier file))
 (dir (file-name-directory file))
 (new-name (denote-format-file-name
-   dir id keywords (denote-sluggify title) extension
-   ;; The `denote-retrieve-filename-signature' is
+   ;; The `denote-retrieve-keywords-value' and
+   ;; `denote-retrieve-filename-signature' are
;; not inside the `if-let*' because we do not
-   ;; want to throw an exception if it is nil.
+   ;; want to throw an exception if any is nil.
+   dir id
+   (or (denote-retrieve-keywords-value file file-type) nil)
+   (denote-sluggify title) extension
(or (denote-retrieve-filename-signature file) nil
   (when (or auto-confirm
 (denote-rename-file-prompt file new-name))

[elpa] externals/async df6120a9a9 1/2: fix: replace incorrect function to test for process liveness

[ELPA Syncer]

branch: externals/async
commit df6120a9a905a5aa922b817dc84fe48205330ee5
Author: Matus Goljer 
Commit: Matus Goljer 

fix: replace incorrect function to test for process liveness
---
 async.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/async.el b/async.el
index aa0ccaba0c..e181773d9f 100644
--- a/async.el
+++ b/async.el
@@ -411,7 +411,7 @@ working directory."
 (set-process-sentinel
  (get-buffer-process buf-err)
  (lambda (proc _change)
-   (unless (or async-debug (buffer-live-p proc))
+   (unless (or async-debug (process-live-p proc))
  (kill-buffer (process-buffer proc)
 (with-current-buffer buf
   (set (make-local-variable 'async-callback) finish-func)

[elpa] externals/async 34feabe114 2/2: Merge pull request #175 from Fuco1/bugfix/err-buffer

[ELPA Syncer]

branch: externals/async
commit 34feabe1142863a2c96f75afda1a2ae4aa0813f6
Merge: 3f91ce8b96 df6120a9a9
Author: Thierry Volpiatto 
Commit: GitHub 

Merge pull request #175 from Fuco1/bugfix/err-buffer

fix: replace incorrect function to test for process liveness
---
 async.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/async.el b/async.el
index aa0ccaba0c..e181773d9f 100644
--- a/async.el
+++ b/async.el
@@ -411,7 +411,7 @@ working directory."
 (set-process-sentinel
  (get-buffer-process buf-err)
  (lambda (proc _change)
-   (unless (or async-debug (buffer-live-p proc))
+   (unless (or async-debug (process-live-p proc))
  (kill-buffer (process-buffer proc)
 (with-current-buffer buf
   (set (make-local-variable 'async-callback) finish-func)