date:20230713

[nongnu] elpa/haskell-mode updated (41c0cf6159 -> 6f0bad7c73)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch elpa/haskell-mode.

  from  41c0cf6159 Disable flaky test
   new  fab109726b macros: only first statemenet was in if
   new  3814b0b0ba Merge pull request #1809 from mobid/bufix/debug-macro
   new  b45ede0ab7 removed trailing stop position
   new  6dd373811b fixed stop-at regex
   new  6f0bad7c73 Merge pull request #1810 from mobid/bugfix/debugger


Summary of changes:
 haskell-debug.el | 66 
 1 file changed, 38 insertions(+), 28 deletions(-)

[nongnu] elpa/haskell-mode b45ede0ab7 2/5: removed trailing stop position

2023-07-13 Thread ELPA Syncer

branch: elpa/haskell-mode
commit b45ede0ab73a21b802e54d43f128f8e22e9aafee
Author: Matija Obid 
Commit: Matija Obid 

removed trailing stop position
---
 haskell-debug.el | 52 
 1 file changed, 32 insertions(+), 20 deletions(-)

diff --git a/haskell-debug.el b/haskell-debug.el
index 3e73c06379..baacf75db2 100644
--- a/haskell-debug.el
+++ b/haskell-debug.el
@@ -253,11 +253,12 @@
(let* ((breakpoints (haskell-debug-get-breakpoints))
   (context (haskell-debug-get-context))
   (string
-   (haskell-process-queue-sync-request
-(haskell-debug-process)
-(if expr
-(concat ":step " expr)
-  ":step"
+   (haskell-debug-trim-break-location
+(haskell-process-queue-sync-request
+ (haskell-debug-process)
+ (if expr
+ (concat ":step " expr)
+   ":step")
  (cond
   ((string= string "not stopped at a breakpoint\n")
(if haskell-debug-bindings-cache
@@ -310,11 +311,18 @@
   (format "*debug:%s*"
   (haskell-session-name session)))
 
+(defun haskell-debug-trim-break-location (string)
+  "Remove trailing location of current break from output STRING if exists."
+  (if-let ((i (string-match "^\\(... \\)?\\[[^]]+\\] $" string)))
+  (substring string 0 i)
+string))
+
 (defun haskell-debug-get-breakpoints ()
   "Get the list of breakpoints currently set."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show breaks")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show breaks"
 (if (string= string "No active breakpoints.\n")
 (list)
   (mapcar #'haskell-debug-parse-break-point
@@ -322,9 +330,10 @@
 
 (defun haskell-debug-get-modules ()
   "Get the list of modules currently set."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show modules")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show modules"
 (if (string= string "")
 (list)
   (mapcar #'haskell-debug-parse-module
@@ -332,18 +341,20 @@
 
 (defun haskell-debug-get-context ()
   "Get the current context."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show context")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show context"
 (if (string= string "")
 nil
   (haskell-debug-parse-context string
 
 (defun haskell-debug-get-history ()
   "Get the step history."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":history")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":history"
 (if (or (string= string "")
 (string= string "Not stopped at a breakpoint\n"))
 nil
@@ -657,9 +668,10 @@ variances in source span notation."
 
 (defun haskell-debug-navigate (direction)
   "Navigate in DIRECTION \"back\" or \"forward\"."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- (concat ":" direction
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  (concat ":" direction)
 (let ((bindings (haskell-debug-parse-logged string)))
   (setq haskell-debug-bindings-cache
 bindings)

[nongnu] elpa/haskell-mode fab109726b 1/5: macros: only first statemenet was in if

2023-07-13 Thread ELPA Syncer

branch: elpa/haskell-mode
commit fab109726b57d7ff2e034fff810500ca727b997b
Author: Matija Obid 
Commit: Matija Obid 

macros: only first statemenet was in if
---
 haskell-debug.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell-debug.el b/haskell-debug.el
index 3e73c06379..9981f154da 100644
--- a/haskell-debug.el
+++ b/haskell-debug.el
@@ -100,13 +100,13 @@
 (defmacro haskell-debug-with-breakpoints (&rest body)
   "Breakpoints need to exist to start stepping."
   `(if (haskell-debug-get-breakpoints)
-   ,@body
+   (progn ,@body)
  (error "No breakpoints to step into!")))
 
 (defmacro haskell-debug-with-modules (&rest body)
   "Modules need to exist to do debugging stuff."
   `(if (haskell-debug-get-modules)
-   ,@body
+   (progn ,@body)
  (error "No modules loaded!")))

[nongnu] elpa/haskell-mode 6dd373811b 3/5: fixed stop-at regex

2023-07-13 Thread ELPA Syncer

branch: elpa/haskell-mode
commit 6dd373811bcf573ae116e2c2b5cbc001515d4ed5
Author: Matija Obid 
Commit: Matija Obid 

fixed stop-at regex
---
 haskell-debug.el | 10 --
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/haskell-debug.el b/haskell-debug.el
index baacf75db2..d47cc5290a 100644
--- a/haskell-debug.el
+++ b/haskell-debug.el
@@ -531,15 +531,13 @@ some old history, then display that."
 (point-max)
 
 (defun haskell-debug-parse-stopped-at (string)
-  "Parse the location stopped at from the given string.
+  "Parse the location stopped at from the given STRING.
 
-For example:
+For examples:
 
 Stopped at /home/foo/project/src/x.hs:6:25-36
-
-"
-  (let ((index (string-match "Stopped at \\([^:]+\\):\\(.+\\)\n?"
- string)))
+Stopped in X.test, /home/foo/project/src/x.hs:6:25-36"
+  (let ((index (string-match "Stopped \\(?:at\\|in [^,]+,\\) 
\\([^:]+\\):\\(.+\\)\n?" string)))
 (when index
   (list :path (match-string 1 string)
 :span (haskell-debug-parse-span (match-string 2 string))

[nongnu] elpa/haskell-mode 3814b0b0ba 4/5: Merge pull request #1809 from mobid/bufix/debug-macro

2023-07-13 Thread ELPA Syncer

branch: elpa/haskell-mode
commit 3814b0b0bae0fde9985496b59811ce4a6bd0f883
Merge: 41c0cf6159 fab109726b
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #1809 from mobid/bufix/debug-macro

debugger: macro bugfix
---
 haskell-debug.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell-debug.el b/haskell-debug.el
index 3e73c06379..9981f154da 100644
--- a/haskell-debug.el
+++ b/haskell-debug.el
@@ -100,13 +100,13 @@
 (defmacro haskell-debug-with-breakpoints (&rest body)
   "Breakpoints need to exist to start stepping."
   `(if (haskell-debug-get-breakpoints)
-   ,@body
+   (progn ,@body)
  (error "No breakpoints to step into!")))
 
 (defmacro haskell-debug-with-modules (&rest body)
   "Modules need to exist to do debugging stuff."
   `(if (haskell-debug-get-modules)
-   ,@body
+   (progn ,@body)
  (error "No modules loaded!")))

[nongnu] elpa/haskell-mode 6f0bad7c73 5/5: Merge pull request #1810 from mobid/bugfix/debugger

2023-07-13 Thread ELPA Syncer

branch: elpa/haskell-mode
commit 6f0bad7c730b99f4702267355656655b8b10049d
Merge: 3814b0b0ba 6dd373811b
Author: Steve Purcell 
Commit: GitHub 

Merge pull request #1810 from mobid/bugfix/debugger

fixed debugger for GHC 8/9
---
 haskell-debug.el | 62 
 1 file changed, 36 insertions(+), 26 deletions(-)

diff --git a/haskell-debug.el b/haskell-debug.el
index 9981f154da..5c65e273bb 100644
--- a/haskell-debug.el
+++ b/haskell-debug.el
@@ -253,11 +253,12 @@
(let* ((breakpoints (haskell-debug-get-breakpoints))
   (context (haskell-debug-get-context))
   (string
-   (haskell-process-queue-sync-request
-(haskell-debug-process)
-(if expr
-(concat ":step " expr)
-  ":step"
+   (haskell-debug-trim-break-location
+(haskell-process-queue-sync-request
+ (haskell-debug-process)
+ (if expr
+ (concat ":step " expr)
+   ":step")
  (cond
   ((string= string "not stopped at a breakpoint\n")
(if haskell-debug-bindings-cache
@@ -310,11 +311,18 @@
   (format "*debug:%s*"
   (haskell-session-name session)))
 
+(defun haskell-debug-trim-break-location (string)
+  "Remove trailing location of current break from output STRING if exists."
+  (if-let ((i (string-match "^\\(... \\)?\\[[^]]+\\] $" string)))
+  (substring string 0 i)
+string))
+
 (defun haskell-debug-get-breakpoints ()
   "Get the list of breakpoints currently set."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show breaks")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show breaks"
 (if (string= string "No active breakpoints.\n")
 (list)
   (mapcar #'haskell-debug-parse-break-point
@@ -322,9 +330,10 @@
 
 (defun haskell-debug-get-modules ()
   "Get the list of modules currently set."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show modules")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show modules"
 (if (string= string "")
 (list)
   (mapcar #'haskell-debug-parse-module
@@ -332,18 +341,20 @@
 
 (defun haskell-debug-get-context ()
   "Get the current context."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":show context")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":show context"
 (if (string= string "")
 nil
   (haskell-debug-parse-context string
 
 (defun haskell-debug-get-history ()
   "Get the step history."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- ":history")))
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  ":history"
 (if (or (string= string "")
 (string= string "Not stopped at a breakpoint\n"))
 nil
@@ -520,15 +531,13 @@ some old history, then display that."
 (point-max)
 
 (defun haskell-debug-parse-stopped-at (string)
-  "Parse the location stopped at from the given string.
+  "Parse the location stopped at from the given STRING.
 
-For example:
+For examples:
 
 Stopped at /home/foo/project/src/x.hs:6:25-36
-
-"
-  (let ((index (string-match "Stopped at \\([^:]+\\):\\(.+\\)\n?"
- string)))
+Stopped in X.test, /home/foo/project/src/x.hs:6:25-36"
+  (let ((index (string-match "Stopped \\(?:at\\|in [^,]+,\\) 
\\([^:]+\\):\\(.+\\)\n?" string)))
 (when index
   (list :path (match-string 1 string)
 :span (haskell-debug-parse-span (match-string 2 string))
@@ -657,9 +666,10 @@ variances in source span notation."
 
 (defun haskell-debug-navigate (direction)
   "Navigate in DIRECTION \"back\" or \"forward\"."
-  (let ((string (haskell-process-queue-sync-request
- (haskell-debug-process)
- (concat ":" direction
+  (let ((string (haskell-debug-trim-break-location
+ (haskell-process-queue-sync-request
+  (haskell-debug-process)
+  (concat ":" direction)
 (let ((bindings (haskell-debug-parse-logged string)))
   (setq haskell-debug-bindings-cache
 bindings)

[elpa] externals/hyperbole 2e295f2491: Test anchor with white space and trailing text (#358)

2023-07-13 Thread ELPA Syncer

branch: externals/hyperbole
commit 2e295f24919d6f53f76f30d978069dd43d2530ba
Author: Mats Lidell 
Commit: GitHub 

Test anchor with white space and trailing text (#358)
---
 ChangeLog|   6 +++
 test/hmouse-drv-tests.el | 107 ++-
 test/hy-test-helpers.el  |   4 +-
 3 files changed, 77 insertions(+), 40 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e18da39943..576ec5365f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-07-13  Mats Lidell  
+
+* test/hmouse-drv-tests.el (hbut-pathname-anchor-must-match-all)
+(hbut-pathname-anchor-trailing-text): Add tests for pathname with
+anchor.
+
 2023-07-11  Mats Lidell  
 
 * Makefile (version, $(pkg_parent)/hyperbole-$(HYPB_VERSION).tar): Do not
diff --git a/test/hmouse-drv-tests.el b/test/hmouse-drv-tests.el
index 1804acde3f..99062bce2c 100644
--- a/test/hmouse-drv-tests.el
+++ b/test/hmouse-drv-tests.el
@@ -3,7 +3,7 @@
 ;; Author:   Mats Lidell 
 ;;
 ;; Orig-Date:28-Feb-21 at 22:52:00
-;; Last-Mod: 19-Feb-23 at 15:49:31 by Mats Lidell
+;; Last-Mod: 13-Jul-23 at 00:45:55 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -76,7 +76,7 @@
 (ibtype:delete 'ibtypes::defal-key)))
 
 (defun hbut-verify-defal (x)
-  "Verify function i called with X set to the string `test'."
+  "Verify function is called with X set to the string `test'."
   (should (string= x "test")))
 
 (ert-deftest hbut-defal-function ()
@@ -86,9 +86,8 @@
   (with-temp-buffer
 (insert "")
 (goto-char 4)
-(action-key)))
-(progn
-  (ibtype:delete 'ibtypes::defal-func)))
+(action-key))
+(ibtype:delete 'ibtypes::defal-func)))
   
 (ert-deftest hbut-defal-fails-on-file-missing ()
   (defal defal-path-missing "${hyperb:dir}/\\1")
@@ -173,7 +172,7 @@
   (action-key
 
 (ert-deftest hbut-ib-create-label ()
-  "Create a label for an implicit button"
+  "Create a label for an implicit button."
   (with-temp-buffer
 (insert "\"/tmp\"\n")
 (goto-char 3)
@@ -253,15 +252,13 @@
 (kill-buffer "DEMO")))
 
 (ert-deftest hbut-pathname-env-variable-test ()
-  (unwind-protect
-  (with-temp-buffer
-(insert "\"${HOME}\"")
-(goto-char 2)
-(action-key)
-(should (equal major-mode 'dired-mode))
-   (should (= 0 (string-match (file-truename (getenv "HOME"))
-  (file-truename default-directory)
-nil))
+  (with-temp-buffer
+(insert "\"${HOME}\"")
+(goto-char 2)
+(action-key)
+(should (equal major-mode 'dired-mode))
+(should (= 0 (string-match (file-truename (getenv "HOME"))
+  (file-truename default-directory))
 
 (ert-deftest hbut-pathname-emacs-lisp-file-test ()
   (unwind-protect
@@ -271,43 +268,78 @@
 (action-key)
 (should (equal major-mode 'emacs-lisp-mode))
 (should (buffer-file-name))
-(should (string= "hyperbole.el" (buffer-name)
-  (kill-buffer "hyperbole.el"))
+(should (string= "hyperbole.el" (buffer-name
+(kill-buffer "hyperbole.el")))
 
 (ert-deftest hbut-pathname-anchor-test ()
   "Pathname with anchor."
+  (let ((file (make-temp-file "hypb" nil nil
+  "Text\n* Anchor\n")))
+(unwind-protect
+(with-temp-buffer
+  (insert (concat "\"" file "#Anchor\""))
+  (goto-char 2)
+  (action-key)
+  (should (string= file (buffer-file-name)))
+  (should (looking-at "\* Anchor")))
+  (hy-delete-file-and-buffer file
+
+(ert-deftest hbut-pathname-anchor-trailing-text ()
+  "Pathname with anchor and trailing parenthesised text."
+  (let ((file (make-temp-file "hypb" nil nil
+  "Text\n* Anchor Plus (Parenthesised text 
follows)\n")))
   (unwind-protect
   (with-temp-buffer
-(insert "\"${hyperb:dir}/DEMO#Smart Keys\"")
+(insert (concat "\"" file "#Anchor Plus\""))
 (goto-char 2)
 (action-key)
-(should (string= "DEMO" (buffer-name)))
-(should (looking-at "\* Smart Keys")))
-(kill-buffer "DEMO")))
+(should (string= file (buffer-file-name)))
+(should (looking-at "\* Anchor Plus \(Parenthesised text follows\)")))
+(hy-delete-file-and-buffer file
+
+(ert-deftest hbut-pathname-anchor-must-match-all ()
+  "Verify that the whole anchor must match."
+  (let ((file (make-temp-file "hypb" nil nil
+  "Text\n* Anchor Plus non parenthesised text\n")))
+  (unwind-protect
+  (with-temp-buffer
+(insert (concat "\"" file "#Anchor Plus\""))
+(goto-char 2)
+(let ((err (should-error (action-key) :type 'error)))
+  (should (string-match-p
+   (concat "\(hpath:to-markup-anchor\): "
+   (buffer-name)
+   " - Section .Anchor Plus. not found in the visible 
buffer portion")

[nongnu] elpa/opam-switch-mode 1ba0d7bf4a: docs(opam-switch--get-switches): Add fixme

2023-07-13 Thread ELPA Syncer

branch: elpa/opam-switch-mode
commit 1ba0d7bf4a2068f4ab2eeea3001f96b4a6bc6325
Author: Erik Martin-Dorel 
Commit: Erik Martin-Dorel 

docs(opam-switch--get-switches): Add fixme
---
 opam-switch-mode.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/opam-switch-mode.el b/opam-switch-mode.el
index 5e9e223f45..a3d79d2701 100644
--- a/opam-switch-mode.el
+++ b/opam-switch-mode.el
@@ -182,6 +182,7 @@ This function should not be called directly; see 
`opam-switch--root'."
   "Return all opam switches as list of strings."
   (let (opam-switches)
 (with-temp-buffer
+  ;; FIXME: Use "opam switch -s" ?
   (unless (eq (opam-switch--run-command-without-stderr "switch") 0)
 ;; opam exit status different from 0 -- some error occured
 (error "Command 'opam switch' failed"))

[nongnu] elpa/projectile 971cd5c4f2: Add ripgrep as a commander method (#1851)

2023-07-13 Thread ELPA Syncer

branch: elpa/projectile
commit 971cd5c4f25ff1f84ab7e8337ffc7f89f67a1b52
Author: Stefan Kamphausen 
Commit: GitHub 

Add ripgrep as a commander method (#1851)
---
 CHANGELOG.md  | 1 +
 projectile.el | 4 
 2 files changed, 5 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5d6f7c6523..733c45fc7e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,7 @@
 
 ### New features
 
+* [#1851](https://github.com/bbatsov/projectile/pull/1851): Add ripgrep to 
`projectile-commander` with binding `?p`.
 * [#1833](https://github.com/bbatsov/projectile/pull/1833): Add Julia project 
discovery.
 * [#1828](https://github.com/bbatsov/projectile/pull/1828): Add Nimble-based 
Nim project discovery.
 * Add elm project type.
diff --git a/projectile.el b/projectile.el
index 501cc4e02d..cb8808693b 100644
--- a/projectile.el
+++ b/projectile.el
@@ -5753,6 +5753,10 @@ is chosen."
 "Run grep on project."
 (projectile-grep))
 
+  (def-projectile-commander-method ?p
+"Run ripgrep on project."
+(call-interactively #'projectile-ripgrep))
+
   (def-projectile-commander-method ?a
 "Run ag on project."
 (call-interactively #'projectile-ag))

[elpa] elpa-admin 1d766451f8: Suggest `package-install' to install packages (bug#63800)

2023-07-13 Thread Ihor Radchenko

branch: elpa-admin
commit 1d766451f81b54169215ffce65a3facf67192a99
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Suggest `package-install' to install packages (bug#63800)

* elpa-admin.el (elpaa--html-make-pkg): Instruct using `list-packages'
to install packages instead of `package-install'.
---
 elpa-admin.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 968a5d51ee..2c2d2aeab7 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1864,7 +1864,8 @@ arbitrary code."
   (elpaa--html-insert-docs pkg-spec)
   (insert "")
   (insert (format "To install this package, run in Emacs:
-   M-x package-install RET 
%s RET"
+   M-x list-packages 
RET
+   Then, find %s in the list, 
click on the link, and click Install."
   name))
   (let* ((readme-content (elpaa--get-README pkg-spec srcdir))
  (readme-text plain-readme)

[elpa] externals/buildbot updated (3774f49e0a -> 70f484764c)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch externals/buildbot.

  from  3774f49e0a Addressing review comments from Prot.
   new  6f5130ec95 Mark version 0 to defer ELPA release
   new  70f484764c Fix copyright header.


Summary of changes:
 buildbot-view.el | 5 ++---
 buildbot.el  | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

[elpa] externals/buildbot 70f484764c 2/2: Fix copyright header.

2023-07-13 Thread ELPA Syncer

branch: externals/buildbot
commit 70f484764c58ee2e1a2eb0b494d07f52cbd01938
Author: Yuchen Pei 
Commit: Yuchen Pei 

Fix copyright header.
---
 buildbot-view.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/buildbot-view.el b/buildbot-view.el
index 4f2c278d32..7f463f448b 100644
--- a/buildbot-view.el
+++ b/buildbot-view.el
@@ -1,9 +1,8 @@
-;;; buildbot-view.el -- buildbot.el UI -*- lexical-binding: t -*-
+;;; buildbot-view.el --- buildbot.el UI -*- lexical-binding: t -*-
 
-;; Copyright (C) 2023 Free Software Foundation.
+;; Copyright (C) 2023  Free Software Foundation, Inc.
 
 ;; Author: Yuchen Pei 
-;; Package-Requires: ((emacs "28.2"))
 
 ;; This file is part of buildbot.el.

[elpa] externals/buildbot 6f5130ec95 1/2: Mark version 0 to defer ELPA release

2023-07-13 Thread ELPA Syncer

branch: externals/buildbot
commit 6f5130ec952f6213f9ce93e425aa1cfc9256ee90
Author: Yuchen Pei 
Commit: Yuchen Pei 

Mark version 0 to defer ELPA release

Would be nice to fix support for more instances before release.
---
 buildbot.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/buildbot.el b/buildbot.el
index 14e0e2d73c..8eb820b206 100644
--- a/buildbot.el
+++ b/buildbot.el
@@ -3,7 +3,7 @@
 ;; Author: Yuchen Pei 
 ;; Maintainer: Yuchen Pei 
 ;; Created: 2023
-;; Version: 1.0.0
+;; Version: 0
 ;; Keywords: buildbot, continuous integration
 ;; Package-Requires: ((emacs "28"))
 ;; Package-Type: multi

[elpa] externals/denote b44ff6946c: Replace obsolete functions in denote-org-dblock

2023-07-13 Thread ELPA Syncer

branch: externals/denote
commit b44ff6946c2fb0a240a4511eb3176c8138c093bf
Author: Vedang Manerikar 
Commit: Protesilaos Stavrou 

Replace obsolete functions in denote-org-dblock

Use the new versions of these functions instead
---
 denote-org-dblock.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index 840dd51380..1848ea2af8 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -27,7 +27,7 @@
 ;; This file provides a specialized Org-mode extension to Denote: it
 ;; introduces Org Dynamic blocks that collect links to Denote notes
 ;; based on a provided regexp.  In short, this automates
-;; 'denote-link-add-links'.
+;; 'denote-add-links'.
 ;;
 ;; For more information, read the commented code below or refer to the
 ;; Denote manual
@@ -44,7 +44,7 @@
 ;; Org-mode has Dynamic blocks the content of which can be computed
 ;; dynamically based on their header. This functionality can be
 ;; leveraged to create automated lists of links to specific notes
-;; (similar to 'denote-link-add-links', but with the added benefit
+;; (similar to 'denote-add-links', but with the added benefit
 ;; that the list can be updated easily).
 ;;
 ;; A dynamic block of the 'denote-links' type looks like this:
@@ -57,7 +57,7 @@
 ;; contents of the block with links to notes matching the search
 ;; ':regexp'. The regular expression can be either a regexp string or
 ;; a sexp form (the latter is translated via rx).
-;; See also the denote manual on 'denote-link-add-links'.
+;; See also the denote manual on 'denote-add-links'.
 ;;
 ;; Inserting a block can be done via the Org-mode entry point
 ;; 'org-dynamic-block-insert-dblock' and selecting 'denote-links' from
@@ -101,7 +101,7 @@
 
 ;; By using the `org-dblock-write:' format, Org-mode knows how to
 ;; compute the dynamic block. Inner workings of this function copied
-;; from `denote-link-add-links'.
+;; from `denote-add-links'.
 (defun org-dblock-write:denote-links (params)
   "Function to update `denote-links' Org Dynamic blocks.
 Used by `org-dblock-update' with PARAMS provided by the dynamic block."
@@ -115,7 +115,7 @@ Used by `org-dblock-update' with PARAMS provided by the 
dynamic block."
   (insert "#+name: " block-name "\n"))
 (if missing-only
 (progn
-  (denote-link-add-missing-links rx)
+  (denote-add-missing-links rx)
   (join-line)) ;; remove trailing empty line left by 
denote-link--prepare-links
   (when-let ((files (delete current-file
 (denote-directory-files-matching-regexp rx

[elpa] externals/org c9b80f06d4 3/3: org-fold-core-next-folding-state-change: Optimize performance

2023-07-13 Thread ELPA Syncer

branch: externals/org
commit c9b80f06d4cf085adc373af50c8a80ffc27f4cd0
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-fold-core-next-folding-state-change: Optimize performance

* lisp/org-fold-core.el (org-fold-core-next-folding-state-change):
Avoid repetitive searches all to way to LIMIT.  Instead, limit the
next searches by the limit computer by previous.
---
 lisp/org-fold-core.el | 21 +
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index f14881b045..e6a9d5a2b5 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -910,14 +910,19 @@ Search backwards when PREVIOUS-P is non-nil."
   (unless spec-or-alias
 (setq spec-or-alias (org-fold-core-folding-spec-list)))
   (setq pos (or pos (point)))
-  (apply (if previous-p
-#'max
-  #'min)
- (mapcar (if previous-p
-(lambda (prop) (max (or limit (point-min)) 
(previous-single-char-property-change pos prop nil (or limit (point-min)
-  (lambda (prop) (next-single-char-property-change pos prop 
nil (or limit (point-max)
- (mapcar (lambda (el) 
(org-fold-core--property-symbol-get-create el nil t))
-spec-or-alias
+  (let ((limit (or limit (if previous-p (point-min) (point-max)
+(catch :limit
+  (dolist (prop (mapcar
+ (lambda (el)
+   (org-fold-core--property-symbol-get-create el nil t))
+ spec-or-alias))
+(when (= limit pos) (throw :limit limit))
+(setq
+ limit
+ (if previous-p
+ (previous-single-char-property-change pos prop nil limit)
+   (next-single-char-property-change pos prop nil limit
+  limit)))
 
 (defun org-fold-core-previous-folding-state-change (&optional spec-or-alias 
pos limit)
   "Call `org-fold-core-next-folding-state-change' searching backwards."

[elpa] externals/org 17096b3f4c 2/3: Refactor `org-src--contents-for-write-back'

2023-07-13 Thread ELPA Syncer

branch: externals/org
commit 17096b3f4c6e41d7d1ad82e1d1834d7d29365bb6
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Refactor `org-src--contents-for-write-back'

* lisp/org-src.el (org-src--contents-for-write-back-1): New function
that is passed indentation parameters and contents explicitly, without
relying on buffer-local variables in current buffer.  The function
extracts variable-independent code and removes unused MARKER.
(org-src--contents-for-write-back): Use the new function, passing the
parameters according to buffer-local values in src edit buffer.
---
 lisp/org-src.el | 87 +++--
 1 file changed, 53 insertions(+), 34 deletions(-)

diff --git a/lisp/org-src.el b/lisp/org-src.el
index ade847e8a7..866ff2dbff 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -469,43 +469,42 @@ When NODE is not passed, assume element at point."
  (or (org-element-property :preserve-indent node)
 org-src-preserve-indentation
 
-(defun org-src--contents-for-write-back (write-back-buf)
-  "Populate WRITE-BACK-BUF with contents in the appropriate format.
-Assume point is in the corresponding edit buffer."
-  (let ((indentation-offset
-(if org-src--preserve-indentation 0
-  (+ (or org-src--block-indentation 0)
- (if (memq org-src--source-type '(example-block src-block))
- org-src--content-indentation
-   0
-   (use-tabs? (and (> org-src--tab-width 0) t))
-(preserve-fl (eq org-src--source-type 'latex-fragment))
-   (source-tab-width org-src--tab-width)
-   (contents (org-with-wide-buffer
-   (let ((eol (line-end-position)))
- (list (buffer-substring (point-min) eol)
-   (buffer-substring eol (point-max))
-   (write-back org-src--allow-write-back)
-marker indent-str)
-;; Compute the exact sequence of tabs and spaces used to indent up
-;; to `indentation-offset' in the Org buffer.
-(setq indent-str
-  (with-temp-buffer
-;; Reproduce indentation parameters from org buffer.
-(setq indent-tabs-mode use-tabs?)
-(when (> source-tab-width 0) (setq tab-width source-tab-width))
-(indent-to indentation-offset)
-(buffer-string)))
+(defun org-src--contents-for-write-back-1
+( write-back-buf contents
+  &optional indentation-offset preserve-fl source-tab-width write-back)
+  "Populate WRITE-BACK-BUF with CONTENTS in the appropriate format.
+
+INDENTATION-OFFSET, when non-nil is additional indentation to be applied
+to all the lines.  PRESERVE-FL means that first line should not be
+indented (useful for inline blocks contents that belong to paragraph).
+The original indentation, if any, is not altered.
+
+TAB-WIDTH is `tab-width' to be used when indenting.  The value of 0
+means that tabs should not be used.
+
+WRITE-BACK, when non-nil, is a function to be called with point at
+WRITE-BACK-BUF after inserting the original contents, but before
+applying extra indentation."
+  (let ((use-tabs? (and (> source-tab-width 0) t))
+indent-str)
 (with-current-buffer write-back-buf
   ;; Apply WRITE-BACK function on edit buffer contents.
-  (insert (org-no-properties (car contents)))
-  (setq marker (point-marker))
-  (insert (org-no-properties (car (cdr contents
+  (insert (org-no-properties contents))
   (goto-char (point-min))
   (when (functionp write-back) (save-excursion (funcall write-back)))
   ;; Add INDENTATION-OFFSET to every line in buffer,
   ;; unless indentation is meant to be preserved.
-  (when (> indentation-offset 0)
+  (when (and indentation-offset (> indentation-offset 0))
+;; The exact sequence of tabs and spaces used to indent
+;; up to `indentation-offset' in the Org buffer.
+(setq indent-str
+  (with-temp-buffer
+;; Reproduce indentation parameters.
+(setq indent-tabs-mode use-tabs?)
+(when (> source-tab-width 0)
+  (setq tab-width source-tab-width))
+(indent-to indentation-offset)
+(buffer-string)))
 ;; LaTeX-fragments are inline. Do not add indentation to their
 ;; first line.
 (when preserve-fl (forward-line))
@@ -513,9 +512,29 @@ Assume point is in the corresponding edit buffer."
   ;; Keep empty src lines empty, even when src block is
   ;; indented on Org side.
   ;; See 
https://list.orgmode.org/725763.1632663...@apollo2.minshall.org/T/
-  (when (not (eolp)) (insert indent-str)) ; not an empty line
- (forward-line)))
-  (set-marker marker nil
+  (when (not (eolp)) ; not an empty line
+(insert indent-str))
+ (forward-line))
+
+(defun org-src--contents-for-write-back (write-back

[elpa] externals/org updated (c74c4ab18d -> c9b80f06d4)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch externals/org.

  from  c74c4ab18d lisp/org-element.el: Add new timestamp property 
:range-type
   new  1967aa43e5 org-src-preserve-indentation: Refactor handling src 
block flags
   new  17096b3f4c Refactor `org-src--contents-for-write-back'
   new  c9b80f06d4 org-fold-core-next-folding-state-change: Optimize 
performance


Summary of changes:
 lisp/ob-core.el   |  14 ++
 lisp/ob-exp.el|  25 +--
 lisp/ob-haskell.el|   1 +
 lisp/ob-tangle.el |   3 +-
 lisp/org-element.el   |  10 ++---
 lisp/org-fold-core.el |  21 +
 lisp/org-src.el   | 116 ++
 lisp/org.el   |  24 ---
 lisp/ox.el|   4 +-
 9 files changed, 112 insertions(+), 106 deletions(-)

[elpa] externals/org 1967aa43e5 1/3: org-src-preserve-indentation: Refactor handling src block flags

2023-07-13 Thread ELPA Syncer

branch: externals/org
commit 1967aa43e5f14a06cfaff0b2d0e30d57893d0491
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-src-preserve-indentation: Refactor handling src block flags

* lisp/org-src.el (org-src-preserve-indentation-p): New function
checking whether block should preserve indentation.  This function
abstracts away the check for block type, indentation flag, and
customized `org-src-preserve-indentation' value.
(org-src--edit-element):
* lisp/ob-core.el (org-babel--normalize-body):
(org-babel-read-element):
(org-babel-update-block-body):
* lisp/ob-exp.el (org-babel-exp-process-buffer):
* lisp/org-element.el (org-element-example-block-interpreter):
(org-element-src-block-interpreter):
* lisp/org.el (org-fixup-indentation):
(org-indent-region):
* lisp/ox.el (org-export-unravel-code): Use the new function instead
of duplicating code.

* lisp/ob-haskell.el (org-babel-haskell-export-to-lhs): Add FIXME.  We
do not have access to the block element here and cannot easily check
the flag.

* lisp/ob-tangle.el (org-babel-tangle-single-block):
* lisp/org-src.el (org-src-font-lock-fontify-block):
* lisp/org.el (org-indent-line): Check block flag in addition to 
`org-src-preserve-indentation'.

This commit unifies logic deciding whether to preserve block
indentation into a single place to avoid confusion.
---
 lisp/ob-core.el | 14 --
 lisp/ob-exp.el  | 25 +++--
 lisp/ob-haskell.el  |  1 +
 lisp/ob-tangle.el   |  3 +--
 lisp/org-element.el | 10 +++---
 lisp/org-src.el | 27 ---
 lisp/org.el | 24 
 lisp/ox.el  |  4 +---
 8 files changed, 45 insertions(+), 63 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 47410b53f0..e470efa9e1 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -43,7 +43,6 @@
 (defvar org-edit-src-content-indentation)
 (defvar org-link-file-path-type)
 (defvar org-src-lang-modes)
-(defvar org-src-preserve-indentation)
 (defvar org-babel-tangle-uncomment-comments)
 
 (declare-function org-attach-dir "org-attach" (&optional 
create-if-not-exists-p no-fs-check))
@@ -60,6 +59,7 @@
 (declare-function org-cycle "org-cycle" (&optional arg))
 (declare-function org-edit-src-code "org-src" (&optional code 
edit-buffer-name))
 (declare-function org-edit-src-exit "org-src"  ())
+(declare-function org-src-preserve-indentation-p "org-src" (node))
 (declare-function org-element-at-point "org-element" (&optional pom 
cached-only))
 (declare-function org-element-at-point-no-context "org-element" (&optional 
pom))
 (declare-function org-element-context "org-element" (&optional element))
@@ -661,9 +661,7 @@ Remove final newline character and spurious indentation."
   ;; src-block are not meaningful, since they could come from
   ;; some paragraph filling.  Treat them as a white space.
   (replace-regexp-in-string "\n[ \t]*" " " body))
- ((or org-src-preserve-indentation
-  (org-element-property :preserve-indent datum))
-  body)
+ ((org-src-preserve-indentation-p datum) body)
  (t (org-remove-indentation body)
 
 ;;; functions
@@ -2245,9 +2243,7 @@ Return nil if ELEMENT cannot be read."
  (`plain-list (org-babel-read-list))
  ((or `example-block `src-block)
   (let ((v (org-element-property :value element)))
-   (if (or org-src-preserve-indentation
-   (org-element-property :preserve-indent element))
-   v
+   (if (org-src-preserve-indentation-p element) v
  (org-remove-indentation v
  (`export-block
   (org-remove-indentation (org-element-property :value element)))
@@ -2820,9 +2816,7 @@ specified as an an \"attachment:\" style link."
 (let* ((ind (org-current-text-indentation))
   (body-start (line-beginning-position 2))
   (body (org-element-normalize-string
- (if (or org-src-preserve-indentation
- (org-element-property :preserve-indent element))
- new-body
+ (if (org-src-preserve-indentation-p element) new-body
(with-temp-buffer
  (insert (org-remove-indentation new-body))
  (indent-rigidly
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index 1cd8425231..0aac1da036 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -43,8 +43,7 @@
  drop-locals))
 (declare-function org-in-commented-heading-p "org" (&optional no-inheritance 
element))
 (declare-function org-in-archived-heading-p "org" (&optional no-inheritance 
element))
-
-(defvar org-src-preserve-indentation)
+(declare-function org-src-preserve-indentation-p "org-src" (node))
 
 (defcustom org-export-use-babel t
   "Switch controlling code evaluation and header processing during export.
@@ -282,25 +281,23 @@ t

[elpa] externals/cape 5b28cd43f2: Remove obsolete alias

2023-07-13 Thread ELPA Syncer

branch: externals/cape
commit 5b28cd43f2efa19dbf5053f164cce622a4b5bdae
Author: Daniel Mendler 
Commit: Daniel Mendler 

Remove obsolete alias
---
 CHANGELOG.org | 3 ++-
 cape.el   | 2 --
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index ad51cf12d9..f4a6a7827d 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,12 +2,13 @@
 #+author: Daniel Mendler
 #+language: en
 
-* Changelog
+* Development
 
 - =cape-dict=: Always use grep, remove =cape-dict-use-grep=.
 - =cape-dict=: Add =cape-dict-limit=.
 - Generalize =cape--cached-table=. The candidate computation function must 
return
   a pair of a predicate function and the list of candidates.
+- Remove obsolete alias =cape-ispell=
 
 * Version 0.16 (2023-07-02)
 
diff --git a/cape.el b/cape.el
index 1e20b8a641..6461e4061b 100644
--- a/cape.el
+++ b/cape.el
@@ -544,8 +544,6 @@ INTERACTIVE is nil the function acts like a Capf."
   :category 'cape-dict)
 ,@cape--dict-properties
 
-(define-obsolete-function-alias 'cape-ispell 'cape-dict "0.13")
-
 ; cape-abbrev
 
 (defun cape--abbrev-tables ()

[elpa] externals/dired-preview 5da19be56a 5/7: Demote errors about where previews are run to 'user-error'

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit 5da19be56a59369f341ac02a44eb0cd68762d3a6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Demote errors about where previews are run to 'user-error'

Thanks to Philip Kaludercic for pointing this out on the emacs-devel
mailing list:
.
---
 dired-preview.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 0e9c4e0981..5419957cce 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -317,14 +317,14 @@ the preview with `dired-preview-delay' of idleness."
 (defun dired-preview-disable-preview ()
   "Disable Dired preview."
   (unless (eq major-mode 'dired-mode)
-(error "Can only use `dired-preview' in Dired"))
+(user-error "Can only use `dired-preview' in Dired"))
   (remove-hook 'post-command-hook #'dired-preview-trigger :local)
   (dired-preview--close-previews))
 
 (defun dired-preview-enable-preview ()
   "Enable Dired preview."
   (unless (eq major-mode 'dired-mode)
-(error "Can only use `dired-preview' in Dired"))
+(user-error "Can only use `dired-preview' in Dired"))
   (add-hook 'post-command-hook #'dired-preview-trigger nil :local)
   (dired-preview-trigger :no-delay))

[elpa] externals/dired-preview 899fb160af 3/7: Explicitly require 'seq' to work with older Emacs versions

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit 899fb160af10c88ad0ba8c4c92e7a42c067b97b3
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Explicitly require 'seq' to work with older Emacs versions

Thanks to Philip Kaludercic for pointing this out on the emacs-devel
mailing list:
.
---
 dired-preview.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dired-preview.el b/dired-preview.el
index 6c677a4dbd..fb6cc9e298 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -58,6 +58,7 @@
 ;;; Code:
 
 (require 'dired)
+(require 'seq)
 
 (defgroup dired-preview nil
   "Automatically preview file at point in Dired."

[elpa] externals/dired-preview 454fa6e3b4 7/7: Remove needless 'and' in dired-preview--kill-buffers

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit 454fa6e3b48b9361992a4866821d76245de91d8c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove needless 'and' in dired-preview--kill-buffers

This is most probably a leftover from an earlier version where the
'and' was actually needed.
---
 dired-preview.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 993cf45351..e35becfc02 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -129,8 +129,8 @@ until it drops below this number.")
 (catch 'stop
   (mapc
(lambda (buffer)
- (if (and (>= (dired-preview--get-buffer-cumulative-size)
-  dired-preview--buffers-threshold))
+ (if (>= (dired-preview--get-buffer-cumulative-size)
+ dired-preview--buffers-threshold)
  (when (and (buffer-local-value 'delayed-mode-hooks buffer)
 (not (eq buffer (current-buffer
(ignore-errors (kill-buffer-if-not-modified buffer))

[elpa] externals/dired-preview de9a386721 6/7: Remove asterisk from if-let, when-let

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit de9a386721c8f7ab001e209c96d6bf3f84c59461
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove asterisk from if-let, when-let

Those are apparently not documented in the Emacs Lisp Reference Manual
and should thus not be considered analogous to 'let*'.  The 'if-let'
and 'when-let' are designed to be like 'let*'.  Not sure what the
others should be in this case...

Thanks to Philip Kaludercic for pointing this out on the emacs-devel
mailing list:
.
---
 dired-preview.el | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 5419957cce..993cf45351 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -164,8 +164,8 @@ See user option `dired-preview-ignored-extensions-regexp'."
 
 (defun dired-preview--file-displayed-p (file)
   "Return non-nil if FILE is already displayed in a window."
-  (when-let* ((buffer (get-file-buffer file))
-  (window (get-buffer-window buffer)))
+  (when-let ((buffer (get-file-buffer file))
+ (window (get-buffer-window buffer)))
 (window-live-p window)))
 
 (defun dired-preview--set-window-parameters (window value)
@@ -232,9 +232,9 @@ checked against `split-width-threshold' or
 
 (defun dired-preview-display-action-side ()
   "Pick a side window that is appropriate for the given frame."
-  (if-let* ((width (window-body-width))
-((>= width (window-body-height)))
-((>= width split-width-threshold)))
+  (if-let ((width (window-body-width))
+   ((>= width (window-body-height)))
+   ((>= width split-width-threshold)))
   `(:side right :dimension window-width :size 
,(dired-preview-get-window-size :width))
 `(:side bottom :dimension window-height :size 
,(dired-preview-get-window-size :height
 
@@ -301,9 +301,9 @@ With optional NO-DELAY do not start a timer.  Otherwise 
produce
 the preview with `dired-preview-delay' of idleness."
   (add-hook 'window-state-change-hook 
#'dired-preview--close-previews-outside-dired)
   (dired-preview--cancel-timer)
-  (if-let* ((file (dired-file-name-at-point))
-((dired-preview--preview-p file))
-((memq this-command dired-preview-trigger-commands)))
+  (if-let ((file (dired-file-name-at-point))
+   ((dired-preview--preview-p file))
+   ((memq this-command dired-preview-trigger-commands)))
   (if no-delay
   (dired-preview-display-file file)
 (setq dired-preview--timer

[elpa] externals/embark-consult updated (acebdf7ed7 -> 644fb1022a)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch externals/embark-consult.

  from  acebdf7ed7 Add autoload cookie for embark-select
  adds  644fb1022a Mention selection in docstring for embark-act-all

No new revisions were added by this update.

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

[elpa] externals/dired-preview 60aaa24d8c 1/7: Simplify dired-preview--get-buffers

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit 60aaa24d8c5242e1c33123146399692a58485c8f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Simplify dired-preview--get-buffers

Thanks to Philip Kaludercic and Stefan Monnier for pointing this out
on the emacs-devel mailing list:
.
---
 README.org   | 2 +-
 dired-preview.el | 7 +--
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/README.org b/README.org
index ad6cd836a7..c2eb86c2f2 100644
--- a/README.org
+++ b/README.org
@@ -221,7 +221,7 @@ matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to code or the manual :: Bruno Boal, Christian Tietze,
-  Karthik Chikmagalur.
+  Karthik Chikmagalur, Stefan Monnier, Philip Kaludercic.
 
 + Ideas and/or user feedback :: Bruno Boal, Ed Hamilton, Karthik
   Chikmagalur, Peter Prevos.
diff --git a/dired-preview.el b/dired-preview.el
index 853131bcd0..43a7cec532 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -97,12 +97,7 @@ details."
 
 (defun dired-preview--get-buffers ()
   "Return buffers that show previews."
-  (seq-filter
-   (lambda (buffer)
- (when (and (bufferp buffer)
-(buffer-live-p buffer))
-   buffer))
-   dired-preview--buffers))
+  (seq-filter #'buffer-live-p dired-preview--buffers))
 
 (defun dired-preview--window-parameter-p (window)
   "Return non-nil if WINDOW has `dired-preview-window' parameter."

[elpa] externals/dired-preview f791c206e4 2/7: Add missing "Maintainer" package header

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit f791c206e45f1b8906c01a6e8410252a7a300ba8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add missing "Maintainer" package header

Thanks to Philip Kaludercic for pointing this out on the emacs-devel
mailing list:
.
---
 dired-preview.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dired-preview.el b/dired-preview.el
index 43a7cec532..6c677a4dbd 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 2023  Free Software Foundation, Inc.
 
 ;; Author: Protesilaos Stavrou 
+;; Maintainer: Protesilaos Stavrou <~protesilaos/general-iss...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/dired-preview
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/general-issues
 ;; Version: 0.1.1

[elpa] externals/dired-preview 94887b8ace 4/7: Use more precise types for user options

2023-07-13 Thread ELPA Syncer

branch: externals/dired-preview
commit 94887b8acedd98edc7319a41ee2cd599cc8472aa
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Use more precise types for user options

Thanks to Philip Kaludercic for pointing this out on the emacs-devel
mailing list:
.
---
 dired-preview.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index fb6cc9e298..0e9c4e0981 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -76,7 +76,7 @@
 (defcustom dired-preview-max-size (expt 2 20)
   "Files larger than this byte limit are not previewed."
   :group 'dired-preview
-  :type 'integer)
+  :type 'natnum)
 
 (defcustom dired-preview-display-action-alist-function
   #'dired-preview-display-action-alist-dwim
@@ -92,7 +92,7 @@ details."
 (defcustom dired-preview-delay 0.7
   "Time in seconds to wait before previewing."
   :group 'dired-preview
-  :type 'float)
+  :type 'number)
 
 (defvar dired-preview--buffers nil
   "List with buffers of previewed files.")

[elpa] externals/embark 644fb1022a: Mention selection in docstring for embark-act-all

2023-07-13 Thread ELPA Syncer

branch: externals/embark
commit 644fb1022a694ce8ce5367658b7ebc910d94edc9
Author: Omar Antolín Camarena 
Commit: Omar Antolín Camarena 

Mention selection in docstring for embark-act-all
---
 embark.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 0a8dbcff9a..5230500a60 100644
--- a/embark.el
+++ b/embark.el
@@ -2343,9 +2343,12 @@ Return a plist with keys `:type', `:orig-type', 
`:candidates', and
 ;;;###autoload
 (defun embark-act-all (&optional arg)
   "Prompt the user for an action and perform it on each candidate.
-The candidates are chosen by `embark-candidate-collectors'.
-By default, if called from a minibuffer the candidates are the
-completion candidates.
+The candidates are chosen by `embark-candidate-collectors'.  By
+default, if `embark-select' has been used to select some
+candidates, then `embark-act-all' will act on those candidates;
+otherwise, if the selection is empty and `embark-act-all' is
+called from a minibuffer, then the candidates are the completion
+candidates.
 
 This command uses `embark-prompter' to ask the user to specify an
 action, and calls it injecting the target at the first minibuffer

[elpa] externals/dired-preview updated (63f6d9a2da -> 454fa6e3b4)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch externals/dired-preview.

  from  63f6d9a2da Document dired-preview-display-action-alist-function
   new  60aaa24d8c Simplify dired-preview--get-buffers
   new  f791c206e4 Add missing "Maintainer" package header
   new  899fb160af Explicitly require 'seq' to work with older Emacs 
versions
   new  94887b8ace Use more precise types for user options
   new  5da19be56a Demote errors about where previews are run to 
'user-error'
   new  de9a386721 Remove asterisk from if-let, when-let
   new  454fa6e3b4 Remove needless 'and' in dired-preview--kill-buffers


Summary of changes:
 README.org   |  2 +-
 dired-preview.el | 37 +
 2 files changed, 18 insertions(+), 21 deletions(-)

[nongnu] elpa/xah-fly-keys 2a9660f7e2: xah-shrink-whitespaces more rewrite. now, will end up with just one space.

2023-07-13 Thread ELPA Syncer

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

xah-shrink-whitespaces more rewrite. now, will end up with just one space.
---
 xah-fly-keys.el | 48 +---
 1 file changed, 29 insertions(+), 19 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 5ac4e1880d..cc44ad6213 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.13.20230712155440
+;; Version: 23.13.20230713112850
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -987,32 +987,42 @@ Version 2022-01-20"
   (match-end 0)) 'face 'highlight)
 
 (defun xah-shrink-whitespaces ()
-  "Remove whitespaces around cursor .
+  "Remove whitespaces around cursor.
 
-Shrink neighboring space or tab. If none, shrink newlines.
+Shrink neighboring whitespace.
+First shrink space or tab, then newlines.
+3 calls results in one single space around cursor.
 
 URL `http://xahlee.info/emacs/emacs/emacs_shrink_whitespace.html'
-Version: 2014-10-21 2021-11-26 2021-11-30 2023-07-12"
+Version: 2014-10-212023-07-12 2023-07-13"
   (interactive)
-  (let ((xp0 (point)) xpb xpe)
-(if (or (looking-at "[ 　\t]") (looking-back "[ 　\t]" 1))
-(let (xp1 xp2)
+  (let (xp1 xp2)
+(re-search-backward "[^ \t\n]" nil t)
+(forward-char)
+(if (looking-at "[ 　\t]+[^\n]")
+(progn
+  (setq xp1 (point))
   (skip-chars-forward " \t　")
   (setq xp2 (point))
-  (skip-chars-backward " \t　")
-  (setq xp1 (point))
-  (delete-region xp1 xp2))
-  (if (or (looking-at "\n") (looking-back "\n" 1))
+  (delete-region xp1 xp2)
+  (insert " "))
+  (if (looking-at "[ \t　]*\n[ \n]")
   (progn
-(skip-chars-backward "\n")
-(setq xpb (point))
-(goto-char xp0)
-(skip-chars-forward "\n")
-(setq xpe (point))
-(delete-region xpb xpe)
+(setq xp1 (point))
+(skip-chars-forward " 　\t\n")
+(setq xp2 (point))
+(delete-region xp1 xp2)
 (insert "\n"))
-nil
-
+(if (looking-at " \n")
+(progn
+  (delete-char 2)
+  (insert " "))
+  (if (or (looking-at "\n"))
+  (progn
+(delete-char 1)
+(insert " "))
+nil
+))
 
 (defun xah-toggle-read-novel-mode ()
   "Setup current frame to be suitable for reading long novel/article text.

[nongnu] elpa/opam-switch-mode 1dd11f0028 2/3: chore: Release 1.6

2023-07-13 Thread ELPA Syncer

branch: elpa/opam-switch-mode
commit 1dd11f0028b09c2ff09d87b8a3fc8af948d360b5
Author: Erik Martin-Dorel 
Commit: Erik Martin-Dorel 

chore: Release 1.6
---
 NEWS.md | 4 ++--
 opam-switch-mode.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 6f61b35473..1cd9693dbb 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -6,7 +6,7 @@ in reverse chronological order.
 
 The format is based on [Keep a 
Changelog](https://keepachangelog.com/en/1.1.0/).
 
-## [Unreleased]
+## [1.6] - 2023-07-14
 
 ### Added
 
@@ -99,7 +99,7 @@ The format is based on [Keep a 
Changelog](https://keepachangelog.com/en/1.1.0/).
 - Initial release, distributed on MELPA.
 
 
-[Unreleased]: 
https://github.com/ProofGeneral/opam-switch-mode/compare/1.5...HEAD
+[1.6]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.5...1.6
 [1.5]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.4...1.5
 [1.4]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.3...1.4
 [1.3]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.2...1.3
diff --git a/opam-switch-mode.el b/opam-switch-mode.el
index 51a92d5221..bcd7241126 100644
--- a/opam-switch-mode.el
+++ b/opam-switch-mode.el
@@ -7,7 +7,7 @@
 ;; Maintainer: proof-general-maintain...@groupes.renater.fr
 ;; URL: https://github.com/ProofGeneral/opam-switch-mode
 ;; Package-Requires: ((emacs "25.1"))
-;; Version: 1.6-git
+;; Version: 1.6
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;

[nongnu] elpa/opam-switch-mode 138d42bd56 1/3: feat: Run `opam env --switch=$it --set-switch`, so `$OPAMSWITCH` is also set

2023-07-13 Thread ELPA Syncer

branch: elpa/opam-switch-mode
commit 138d42bd56a5504bc40e984f0fb17214524edc87
Author: Erik Martin-Dorel 
Commit: Erik Martin-Dorel 

feat: Run `opam env --switch=$it --set-switch`, so `$OPAMSWITCH` is also set
---
 NEWS.md |  2 ++
 opam-switch-mode.el | 11 ++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 746e35890f..6f61b35473 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -10,6 +10,8 @@ The format is based on [Keep a 
Changelog](https://keepachangelog.com/en/1.1.0/).
 
 ### Added
 
+- Use command `opam env --switch=$it --set-switch`, so the env var 
`$OPAMSWITCH` is also set
+
 ### Fixed
 
 ### Changed
diff --git a/opam-switch-mode.el b/opam-switch-mode.el
index a3d79d2701..51a92d5221 100644
--- a/opam-switch-mode.el
+++ b/opam-switch-mode.el
@@ -100,9 +100,9 @@ background process before the opam switch changes."
 &rest args)
   "Run opam SUB-CMD, without capturing error output.
 Run opam SUB-CMD with additional arguments and insert the output
-in the current buffer at point.  Error output (stderr) is
-discarded.  If SWITCH is not nil, an option \"--swith=SWITCH\" is
-added. If SEXP is t, option --sexp is added. All remaining
+in the current buffer at point.  Error output (stderr) is discarded.
+If SWITCH is not nil, options \"--switch=SWITCH --set-switch\" are
+added.  If SEXP is t, option --sexp is added. All remaining
 arguments ARGS are added as arguments.
 
 Return exit status of the opam invocation.
@@ -114,7 +114,8 @@ therfore respect file-name handlers specified via
  (append opam-switch-common-environment process-environment))
 (options (append args opam-switch-common-options)))
 (when switch
-  (push (format "--switch=%s" switch) options))
+  (push (format "--switch=%s" switch) options)
+  (push "--set-switch" options))
 (when sexp
   (push "--sexp" options))
 ;; (message "run %s %s %s" opam-switch-program-name sub-cmd options)
@@ -318,7 +319,7 @@ not any other shells outside Emacs."
   opam-env)
   (unless output-string
 (error
- "Command 'opam env --switch=%s' failed - probably because of invalid 
opam switch \"%s\""
+ "Command 'opam env --switch=%s --set-switch' failed - probably 
because of invalid opam switch \"%s\""
  switch-name switch-name))
   (setq opam-env (car (read-from-string output-string)))
   (unless opam-switch--saved-env

[nongnu] elpa/opam-switch-mode 3a17a95114 3/3: chore: Prepare next dev cycle

2023-07-13 Thread ELPA Syncer

branch: elpa/opam-switch-mode
commit 3a17a95114eea7b81a64631369634728641f9da0
Author: Erik Martin-Dorel 
Commit: Erik Martin-Dorel 

chore: Prepare next dev cycle
---
 NEWS.md | 11 +++
 opam-switch-mode.el |  2 +-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index 1cd9693dbb..9c62b108a6 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -6,6 +6,16 @@ in reverse chronological order.
 
 The format is based on [Keep a 
Changelog](https://keepachangelog.com/en/1.1.0/).
 
+## [Unreleased]
+
+### Added
+
+### Fixed
+
+### Changed
+
+### Removed
+
 ## [1.6] - 2023-07-14
 
 ### Added
@@ -99,6 +109,7 @@ The format is based on [Keep a 
Changelog](https://keepachangelog.com/en/1.1.0/).
 - Initial release, distributed on MELPA.
 
 
+[Unreleased]: 
https://github.com/ProofGeneral/opam-switch-mode/compare/1.6...HEAD
 [1.6]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.5...1.6
 [1.5]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.4...1.5
 [1.4]: https://github.com/ProofGeneral/opam-switch-mode/compare/1.3...1.4
diff --git a/opam-switch-mode.el b/opam-switch-mode.el
index bcd7241126..ed431f56ee 100644
--- a/opam-switch-mode.el
+++ b/opam-switch-mode.el
@@ -7,7 +7,7 @@
 ;; Maintainer: proof-general-maintain...@groupes.renater.fr
 ;; URL: https://github.com/ProofGeneral/opam-switch-mode
 ;; Package-Requires: ((emacs "25.1"))
-;; Version: 1.6
+;; Version: 1.7-git
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;

[nongnu] elpa/opam-switch-mode updated (1ba0d7bf4a -> 3a17a95114)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch elpa/opam-switch-mode.

  from  1ba0d7bf4a docs(opam-switch--get-switches): Add fixme
   new  138d42bd56 feat: Run `opam env --switch=$it --set-switch`, so 
`$OPAMSWITCH` is also set
   new  1dd11f0028 chore: Release 1.6
   new  3a17a95114 chore: Prepare next dev cycle


Summary of changes:
 NEWS.md | 15 ++-
 opam-switch-mode.el | 13 +++--
 2 files changed, 21 insertions(+), 7 deletions(-)

[elpa] externals/diff-hl d9e34f7b81 2/2: Merge pull request #200 from tarsiiformes/typos

2023-07-13 Thread ELPA Syncer

branch: externals/diff-hl
commit d9e34f7b8110b7f753c237d0d0b3f267f3ca4779
Merge: b7c357ee90 30743420f7
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #200 from tarsiiformes/typos

Fix typos
---
 README.md | 2 +-
 diff-hl-show-hunk-posframe.el | 2 +-
 diff-hl-show-hunk.el  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 249d1c7143..bce0b71aaa 100644
--- a/README.md
+++ b/README.md
@@ -22,7 +22,7 @@ The package also contains auxiliary modes:
   it to any revision, see its docstring for details.
 * `diff-hl-flydiff-mode` implements highlighting changes on the fly.
 * `diff-hl-show-hunk-mouse-mode` makes fringe and margin react to
-  mouse clicks to show the curresponding hunk. That's the alternative
+  mouse clicks to show the corresponding hunk. That's the alternative
   to using `diff-hl-show-hunk` and friends.
 
 Usage
diff --git a/diff-hl-show-hunk-posframe.el b/diff-hl-show-hunk-posframe.el
index 9254e1c7a0..735fcd5e88 100644
--- a/diff-hl-show-hunk-posframe.el
+++ b/diff-hl-show-hunk-posframe.el
@@ -230,7 +230,7 @@ The button calls an ACTION."
   ;; Make cursor visible (mainly for selecting text in posframe)
   (setq cursor-type 'box)
 
-  ;; Recenter arround point
+  ;; Recenter around point
   (recenter)))
   (select-frame-set-input-focus diff-hl-show-hunk--frame))
 
diff --git a/diff-hl-show-hunk.el b/diff-hl-show-hunk.el
index c3adcb539d..3e083f4cb5 100644
--- a/diff-hl-show-hunk.el
+++ b/diff-hl-show-hunk.el
@@ -372,7 +372,7 @@ The backend is determined by `diff-hl-show-hunk-function'."
 
   (setq diff-hl-show-hunk--original-overlay nil)
 
-  ;; Store begining and end of hunk overlay
+  ;; Store beginning and end of hunk overlay
   (let ((overlay (diff-hl-hunk-overlay-at (point
 (when overlay
   (let ((start (overlay-start overlay))

[elpa] externals/diff-hl 30743420f7 1/2: Fix typos

2023-07-13 Thread ELPA Syncer

branch: externals/diff-hl
commit 30743420f7ba6c243f27e306396cd7cdbeb9e826
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typos
---
 README.md | 2 +-
 diff-hl-show-hunk-posframe.el | 2 +-
 diff-hl-show-hunk.el  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 249d1c7143..bce0b71aaa 100644
--- a/README.md
+++ b/README.md
@@ -22,7 +22,7 @@ The package also contains auxiliary modes:
   it to any revision, see its docstring for details.
 * `diff-hl-flydiff-mode` implements highlighting changes on the fly.
 * `diff-hl-show-hunk-mouse-mode` makes fringe and margin react to
-  mouse clicks to show the curresponding hunk. That's the alternative
+  mouse clicks to show the corresponding hunk. That's the alternative
   to using `diff-hl-show-hunk` and friends.
 
 Usage
diff --git a/diff-hl-show-hunk-posframe.el b/diff-hl-show-hunk-posframe.el
index 9254e1c7a0..735fcd5e88 100644
--- a/diff-hl-show-hunk-posframe.el
+++ b/diff-hl-show-hunk-posframe.el
@@ -230,7 +230,7 @@ The button calls an ACTION."
   ;; Make cursor visible (mainly for selecting text in posframe)
   (setq cursor-type 'box)
 
-  ;; Recenter arround point
+  ;; Recenter around point
   (recenter)))
   (select-frame-set-input-focus diff-hl-show-hunk--frame))
 
diff --git a/diff-hl-show-hunk.el b/diff-hl-show-hunk.el
index c3adcb539d..3e083f4cb5 100644
--- a/diff-hl-show-hunk.el
+++ b/diff-hl-show-hunk.el
@@ -372,7 +372,7 @@ The backend is determined by `diff-hl-show-hunk-function'."
 
   (setq diff-hl-show-hunk--original-overlay nil)
 
-  ;; Store begining and end of hunk overlay
+  ;; Store beginning and end of hunk overlay
   (let ((overlay (diff-hl-hunk-overlay-at (point
 (when overlay
   (let ((start (overlay-start overlay))

[elpa] externals/marginalia 866e50aee4: Fix typo (#162)

2023-07-13 Thread ELPA Syncer

branch: externals/marginalia
commit 866e50aee4f066b0903752c69b33e9b7cab93f97
Author: Jonas Bernoulli 
Commit: GitHub 

Fix typo (#162)
---
 README.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.org b/README.org
index f23b0ac2fe..c83bc4ce76 100644
--- a/README.org
+++ b/README.org
@@ -49,7 +49,7 @@ with [[https://github.com/oantolin/embark][Embark]] for 
action support and [[htt
   ;; The :init section is always executed.
   :init
 
-  ;; Marginalia must be actived in the :init section of use-package such that
+  ;; Marginalia must be activated in the :init section of use-package such that
   ;; the mode gets enabled right away. Note that this forces loading the
   ;; package.
   (marginalia-mode))

[elpa] externals/org 5e31dcdd9a: ob-python: Fix async evaluation

2023-07-13 Thread ELPA Syncer

branch: externals/org
commit 5e31dcdd9aa416513cd37c4fb6eff5f8b1cf5b17
Author: Liu Hui 
Commit: Jack Kamm 

ob-python: Fix async evaluation

* lisp/ob-python.el (org-babel-python-async-evaluate-session): Bind
`python-shell-buffer-name' inside the temp buffer.
* testing/lisp/test-ob-python.el (test-ob-python/async-local-python-shell):
Add test.
---
 lisp/ob-python.el  | 47 ++
 testing/lisp/test-ob-python.el | 14 +
 2 files changed, 39 insertions(+), 22 deletions(-)

diff --git a/lisp/ob-python.el b/lisp/ob-python.el
index 0e0539d7ad..c15d45b96f 100644
--- a/lisp/ob-python.el
+++ b/lisp/ob-python.el
@@ -400,28 +400,31 @@ by `org-babel-comint-async-filter'."
session (current-buffer)
"ob_comint_async_python_\\(.+\\)_\\(.+\\)"
'org-babel-chomp 'org-babel-python-async-value-callback)
-  (let ((python-shell-buffer-name (org-babel-python-without-earmuffs session)))
-(pcase result-type
-  (`output
-   (let ((uuid (org-id-uuid)))
- (with-temp-buffer
-   (insert (format org-babel-python-async-indicator "start" uuid))
-   (insert "\n")
-   (insert body)
-   (insert "\n")
-   (insert (format org-babel-python-async-indicator "end" uuid))
-   (python-shell-send-buffer))
- uuid))
-  (`value
-   (let ((tmp-results-file (org-babel-temp-file "python-"))
- (tmp-src-file (org-babel-temp-file "python-")))
- (with-temp-file tmp-src-file (insert body))
- (with-temp-buffer
-   (insert (org-babel-python-format-session-value tmp-src-file 
tmp-results-file result-params))
-   (insert "\n")
-   (insert (format org-babel-python-async-indicator "file" 
tmp-results-file))
-   (python-shell-send-buffer))
- tmp-results-file)
+  (pcase result-type
+(`output
+ (let ((uuid (org-id-uuid)))
+   (with-temp-buffer
+ (insert (format org-babel-python-async-indicator "start" uuid))
+ (insert "\n")
+ (insert body)
+ (insert "\n")
+ (insert (format org-babel-python-async-indicator "end" uuid))
+ (let ((python-shell-buffer-name
+(org-babel-python-without-earmuffs session)))
+   (python-shell-send-buffer)))
+   uuid))
+(`value
+ (let ((tmp-results-file (org-babel-temp-file "python-"))
+   (tmp-src-file (org-babel-temp-file "python-")))
+   (with-temp-file tmp-src-file (insert body))
+   (with-temp-buffer
+ (insert (org-babel-python-format-session-value tmp-src-file 
tmp-results-file result-params))
+ (insert "\n")
+ (insert (format org-babel-python-async-indicator "file" 
tmp-results-file))
+ (let ((python-shell-buffer-name
+(org-babel-python-without-earmuffs session)))
+   (python-shell-send-buffer)))
+   tmp-results-file
 
 (provide 'ob-python)
 
diff --git a/testing/lisp/test-ob-python.el b/testing/lisp/test-ob-python.el
index 7aac87116f..82fbca36e0 100644
--- a/testing/lisp/test-ob-python.el
+++ b/testing/lisp/test-ob-python.el
@@ -296,6 +296,20 @@ print(list(range(3)))
  (string= (concat src-block result)
   (buffer-string)))
 
+(ert-deftest test-ob-python/async-local-python-shell ()
+  ;; Disable the test on older Emacs as built-in python.el sometimes
+  ;; fail to initialize session.
+  (skip-unless (version<= "28" emacs-version))
+  (when-let ((buf (get-buffer "*Python*")))
+(let (kill-buffer-query-functions)
+  (kill-buffer buf)))
+  (org-test-with-temp-text-in-file
+  "# -*- python-shell-buffer-name: \"Python 3\" -*-
+#+begin_src python :session \"*Python 3*\" :async yes
+1
+#+end_src"
+(should (org-babel-execute-src-block
+
 (provide 'test-ob-python)
 
 ;;; test-ob-python.el ends here

[nongnu] elpa/geiser dc25a8868f: Fix typos

2023-07-13 Thread ELPA Syncer

branch: elpa/geiser
commit dc25a8868f39c9f572b051e9a7ea2b68f65aa2b2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typos
---
 doc/parens.texi | 4 ++--
 elisp/geiser-autodoc.el | 2 +-
 elisp/geiser-custom.el  | 2 +-
 elisp/geiser-repl.el| 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/doc/parens.texi b/doc/parens.texi
index db91f2d155..82c2e2c44b 100644
--- a/doc/parens.texi
+++ b/doc/parens.texi
@@ -560,13 +560,13 @@ if you prefer to stay in the source buffer, set
 @code{geiser-debug-jump-to-debug} to nil.
 
 For schemes with good debug support (Guile is one), the debug buffers
-offer a @i{debugging menu}, accesible via the @code{,} (that's a comma)
+offer a @i{debugging menu}, accessible via the @code{,} (that's a comma)
 key.  If you press it, a transient menu will appear, offering you a
 variety of actions, including showing local variable values or a more
 detailed backtrace or frame display.  This is the same interface you'll
 encounter the in case of interrupted evaluations, either by your
 explicit @kbd{C-c C-i} command or because a breakpoint has been
-previosuly set.
+previously set.
 
 In addition, Geiser will sometimes report warnings for otherwise
 successful evaluations.  In those cases, it won't enter the debugger,
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index abf1d97cac..67d3213651 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -55,7 +55,7 @@ With this flag set, the signature of selected completions 
using
 packages like company, corfu or completion-in-region functions
 will be displayed in the echo area.  For the case of a
 completion-in-region function (e.g. consult's), which collects
-all the docstrings at once, this might have a performace impact:
+all the docstrings at once, this might have a performance impact:
 you can set this variable to nil to avoid them."
   :type 'boolean)
 
diff --git a/elisp/geiser-custom.el b/elisp/geiser-custom.el
index 2b8a202198..4b42d910fa 100644
--- a/elisp/geiser-custom.el
+++ b/elisp/geiser-custom.el
@@ -53,7 +53,7 @@
 That list is used by `geiser-reload' to preserve the values
 of the listed variables.  It is not used for anything else."
   ;; FIXME Remembering the value like this is not actually
-  ;; necessary.  Evaluting `defcustom' always preserves the
+  ;; necessary.  Evaluating `defcustom' always preserves the
   ;; existing value, if any.
   (declare (doc-string 3) (debug (name body)) (indent 2))
   `(progn
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 7fc15d7f64..a0c4b44b50 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -122,7 +122,7 @@ change that."
   :type 'boolean)
 
 (geiser-custom--defcustom geiser-repl-send-on-return-p t
-  "Wheter to Send input to REPL when ENTER is pressed in a balanced 
S-expression,
+  "Whether to Send input to REPL when ENTER is pressed in a balanced 
S-expression,
 regardless of cursor positioning.
 
 When off, pressing ENTER inside a balance S-expression will

[nongnu] elpa/git-commit updated (24f64fd4f8 -> bf07368bae)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch elpa/git-commit.

  from  24f64fd4f8 magit-git-version-assert: Fix typo
   new  0d438d5621 Correct "appropriat" and "unspecifed" misspellings
   new  7faa1adf98 Fix typo
   new  bf07368bae Add paren quoting in docstring


Summary of changes:
 .mailmap| 1 +
 docs/magit.org  | 8 
 docs/magit.texi | 8 
 lisp/magit-base.el  | 2 +-
 lisp/magit-diff.el  | 2 +-
 lisp/magit-repos.el | 4 ++--
 lisp/magit-submodule.el | 4 ++--
 7 files changed, 15 insertions(+), 14 deletions(-)

[nongnu] elpa/git-commit bf07368bae 3/3: Add paren quoting in docstring

2023-07-13 Thread ELPA Syncer

branch: elpa/git-commit
commit bf07368bae63a0dd80d21f933b75ac370887c8e2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Add paren quoting in docstring
---
 lisp/magit-diff.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el
index 9ba7d67561..1f5e3522b9 100644
--- a/lisp/magit-diff.el
+++ b/lisp/magit-diff.el
@@ -495,7 +495,7 @@ repositories known to contain bad commit messages.
 
 The body of the message is left alone because (a) most people who
 write excessively long summary lines usually don't add a body and
-(b) even people who have the decency to wrap their lines may have
+\(b) even people who have the decency to wrap their lines may have
 a good reason to include a long line in the body sometimes."
   :package-version '(magit . "2.90.0")
   :group 'magit-revision

[nongnu] elpa/git-commit 7faa1adf98 2/3: Fix typo

2023-07-13 Thread ELPA Syncer

branch: elpa/git-commit
commit 7faa1adf987c2ede15c845eb5a7fc78414b2f0f0
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typo
---
 lisp/magit-base.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 0ef2d1f5fb..c750d86200 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -387,7 +387,7 @@ Messages which can currently be suppressed using this 
option are:
 (defcustom magit-verbose-messages nil
   "Whether to make certain prompts and messages more verbose.
 
-Occationally a user suggests that a certain prompt or message
+Occasionally a user suggests that a certain prompt or message
 should be more verbose, but I would prefer to keep it as-is
 because I don't think that the fact that that one user did not
 understand the existing prompt/message means that a large number

[nongnu] elpa/git-commit 0d438d5621 1/3: Correct "appropriat" and "unspecifed" misspellings

2023-07-13 Thread ELPA Syncer

branch: elpa/git-commit
commit 0d438d56219dd17eb5f84b9a8f8d60f538bb5112
Author: Ron Parker 
Commit: Ron Parker 

Correct "appropriat" and "unspecifed" misspellings
---
 .mailmap| 1 +
 docs/magit.org  | 8 
 docs/magit.texi | 8 
 lisp/magit-repos.el | 4 ++--
 lisp/magit-submodule.el | 4 ++--
 5 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/.mailmap b/.mailmap
index 9177d788af..440a20438d 100644
--- a/.mailmap
+++ b/.mailmap
@@ -57,6 +57,7 @@ Phil Sainty  

 Philippe Vaucher  
 Raimon Grau  
 Robert Irelan 
+Ron Parker  
 Rémi Vanicat  
 Rüdiger Sonderfeld  
 Sean Allred  
diff --git a/docs/magit.org b/docs/magit.org
index 76e3b941f0..c2bd41952f 100644
--- a/docs/magit.org
+++ b/docs/magit.org
@@ -2518,12 +2518,12 @@ buffers.
   docstring of ~tabulated-list--get-sort~.  Alternatively ~<~ and
   ~magit-repolist-version<~ can be used as those functions are
   automatically replaced with functions that satisfy the interface.
-  Set ~:sort~ to ~nil~ to inhibit sorting; if unspecifed, then the
+  Set ~:sort~ to ~nil~ to inhibit sorting; if unspecified, then the
   column is sortable using the default sorter.
 
   You may wish to display a range of numeric columns using just one
   character per column and without any padding between columns, in
-  which case you should use an appropriat HEADER, set WIDTH to 1,
+  which case you should use an appropriate HEADER, set WIDTH to 1,
   and set ~:pad-right~ to 9. ~+~ is substituted for numbers higher than 9.
 
 #+texinfo: @noindent
@@ -7026,12 +7026,12 @@ the super-repository by adding ~magit-insert-modules~ 
to the hook
   docstring of ~tabulated-list--get-sort~.  Alternatively ~<~ and
   ~magit-repolist-version<~ can be used as those functions are
   automatically replaced with functions that satisfy the interface.
-  Set ~:sort~ to ~nil~ to inhibit sorting; if unspecifed, then the
+  Set ~:sort~ to ~nil~ to inhibit sorting; if unspecified, then the
   column is sortable using the default sorter.
 
   You may wish to display a range of numeric columns using just one
   character per column and without any padding between columns, in
-  which case you should use an appropriat HEADER, set WIDTH to 1,
+  which case you should use an appropriate HEADER, set WIDTH to 1,
   and set ~:pad-right~ to 9. ~+~ is substituted for numbers higher than 9.
 
 *** Submodule Transient
diff --git a/docs/magit.texi b/docs/magit.texi
index 175b1066ed..189162b960 100644
--- a/docs/magit.texi
+++ b/docs/magit.texi
@@ -3131,12 +3131,12 @@ The @code{:sort} function has a weird interface 
described in the
 docstring of @code{tabulated-list--get-sort}.  Alternatively @code{<} and
 @code{magit-repolist-version<} can be used as those functions are
 automatically replaced with functions that satisfy the interface.
-Set @code{:sort} to @code{nil} to inhibit sorting; if unspecifed, then the
+Set @code{:sort} to @code{nil} to inhibit sorting; if unspecified, then the
 column is sortable using the default sorter.
 
 You may wish to display a range of numeric columns using just one
 character per column and without any padding between columns, in
-which case you should use an appropriat HEADER, set WIDTH to 1,
+which case you should use an appropriate HEADER, set WIDTH to 1,
 and set @code{:pad-right} to 9. @code{+} is substituted for numbers higher 
than 9.
 @end defopt
 
@@ -8765,12 +8765,12 @@ The @code{:sort} function has a weird interface 
described in the
 docstring of @code{tabulated-list--get-sort}.  Alternatively @code{<} and
 @code{magit-repolist-version<} can be used as those functions are
 automatically replaced with functions that satisfy the interface.
-Set @code{:sort} to @code{nil} to inhibit sorting; if unspecifed, then the
+Set @code{:sort} to @code{nil} to inhibit sorting; if unspecified, then the
 column is sortable using the default sorter.
 
 You may wish to display a range of numeric columns using just one
 character per column and without any padding between columns, in
-which case you should use an appropriat HEADER, set WIDTH to 1,
+which case you should use an appropriate HEADER, set WIDTH to 1,
 and set @code{:pad-right} to 9. @code{+} is substituted for numbers higher 
than 9.
 @end defopt
 
diff --git a/lisp/magit-repos.el b/lisp/magit-repos.el
index 0bd3cd7a7c..df7933dc86 100644
--- a/lisp/magit-repos.el
+++ b/lisp/magit-repos.el
@@ -93,12 +93,12 @@ The `:sort' function has a weird interface described in the
 docstring of `tabulated-list--get-sort'.  Alternatively `<' and
 `magit-repolist-version<' can be used as those functions are
 automatically replaced with functions that satisfy the interface.
-Set `:sort' to nil to inhibit sorting; if unspecifed, then the
+Set `:sort' to nil to inhibit sorting; if unspecified, then the
 column is sortable using the default sorter.
 
 You may wish to display a range of numeric columns using just one
 character per column and without any padding between columns, in

[nongnu] elpa/magit-section updated (24f64fd4f8 -> bf07368bae)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch elpa/magit-section.

  from  24f64fd4f8 magit-git-version-assert: Fix typo
  adds  0d438d5621 Correct "appropriat" and "unspecifed" misspellings
  adds  7faa1adf98 Fix typo
  adds  bf07368bae Add paren quoting in docstring

No new revisions were added by this update.

Summary of changes:
 .mailmap| 1 +
 docs/magit.org  | 8 
 docs/magit.texi | 8 
 lisp/magit-base.el  | 2 +-
 lisp/magit-diff.el  | 2 +-
 lisp/magit-repos.el | 4 ++--
 lisp/magit-submodule.el | 4 ++--
 7 files changed, 15 insertions(+), 14 deletions(-)

[nongnu] elpa/magit updated (24f64fd4f8 -> bf07368bae)

2023-07-13 Thread ELPA Syncer

elpasync pushed a change to branch elpa/magit.

  from  24f64fd4f8 magit-git-version-assert: Fix typo
  adds  0d438d5621 Correct "appropriat" and "unspecifed" misspellings
  adds  7faa1adf98 Fix typo
  adds  bf07368bae Add paren quoting in docstring

No new revisions were added by this update.

Summary of changes:
 .mailmap| 1 +
 docs/magit.org  | 8 
 docs/magit.texi | 8 
 lisp/magit-base.el  | 2 +-
 lisp/magit-diff.el  | 2 +-
 lisp/magit-repos.el | 4 ++--
 lisp/magit-submodule.el | 4 ++--
 7 files changed, 15 insertions(+), 14 deletions(-)

[elpa] externals/posframe 017deece88: Fix typos

2023-07-13 Thread ELPA Syncer

branch: externals/posframe
commit 017deece88360c7297265680d78a0bb316470716
Author: Jonas Bernoulli 
Commit: tumashu 

Fix typos
---
 posframe.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/posframe.el b/posframe.el
index db26dd143b..20b762bddf 100644
--- a/posframe.el
+++ b/posframe.el
@@ -356,7 +356,7 @@ when it is nil or it return nil, child-frame feature will 
be used
 and reference position will be deal with in Emacs.
 
 The user case I know at the moment is let ivy-posframe work well
-in EXWM environment (let posframe show on the other appliction
+in EXWM environment (let posframe show on the other application
 window).
 
  DO NOT USE UNLESS NECESSARY!!!
@@ -885,7 +885,7 @@ of `posframe-show'."
   (t (error "Posframe: have no valid poshandler"))
 
 (defun posframe--calculate-new-position (info position ref-position)
-  "Calcuate new position according to INFO, POSITION and REF-POSITION."
+  "Calculate new position according to INFO, POSITION and REF-POSITION."
   (let* ((parent-frame-width (plist-get info :parent-frame-width))
  (parent-frame-height (plist-get info :parent-frame-height))
  (posframe-width (plist-get info :posframe-width))

[nongnu] elpa/markdown-mode 98a91b0fab 1/2: Fix typos

2023-07-13 Thread ELPA Syncer

branch: elpa/markdown-mode
commit 98a91b0fab6d43be20d80b325aac37e0efca699c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typos
---
 markdown-mode.el   | 2 +-
 tests/markdown-test.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index 6cac89bf86..6422bef264 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -4592,7 +4592,7 @@ at the beginning of the block."
 (defun markdown-insert-foldable-block ()
   "Insert details disclosure element to make content foldable.
 If a region is active, wrap this region with the disclosure
-element. More detais here 
https://developer.mozilla.org/en-US/docs/Web/HTML/Element/details.";
+element. More details here 
https://developer.mozilla.org/en-US/docs/Web/HTML/Element/details.";
   (interactive)
   (let ((details-open-tag "")
 (details-close-tag "")
diff --git a/tests/markdown-test.el b/tests/markdown-test.el
index 3468dee8ee..8ea01c9107 100644
--- a/tests/markdown-test.el
+++ b/tests/markdown-test.el
@@ -5441,7 +5441,7 @@ http://example.com \"title\"  )
   (should (eq (markdown-next-link) 8))
   ;; Advance to second link
   (should (eq (markdown-next-link) 73))
-  ;; Avance to final link
+  ;; Advance to final link
   (should (eq (markdown-next-link) 155))
   ;; Return nil and don't advance point
   (should (eq (markdown-next-link) nil))

[nongnu] elpa/markdown-mode 8dc04cc676 2/2: Merge pull request #775 from tarsiiformes/typos

2023-07-13 Thread ELPA Syncer

branch: elpa/markdown-mode
commit 8dc04cc6762e1863474eb60739a31e45df487f14
Merge: f3ee31ffc2 98a91b0fab
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #775 from tarsiiformes/typos

Fix typos
---
 markdown-mode.el   | 2 +-
 tests/markdown-test.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index 6cac89bf86..6422bef264 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -4592,7 +4592,7 @@ at the beginning of the block."
 (defun markdown-insert-foldable-block ()
   "Insert details disclosure element to make content foldable.
 If a region is active, wrap this region with the disclosure
-element. More detais here 
https://developer.mozilla.org/en-US/docs/Web/HTML/Element/details.";
+element. More details here 
https://developer.mozilla.org/en-US/docs/Web/HTML/Element/details.";
   (interactive)
   (let ((details-open-tag "")
 (details-close-tag "")
diff --git a/tests/markdown-test.el b/tests/markdown-test.el
index 3468dee8ee..8ea01c9107 100644
--- a/tests/markdown-test.el
+++ b/tests/markdown-test.el
@@ -5441,7 +5441,7 @@ http://example.com \"title\"  )
   (should (eq (markdown-next-link) 8))
   ;; Advance to second link
   (should (eq (markdown-next-link) 73))
-  ;; Avance to final link
+  ;; Advance to final link
   (should (eq (markdown-next-link) 155))
   ;; Return nil and don't advance point
   (should (eq (markdown-next-link) nil))

[nongnu] elpa/tuareg 4c2badebc4: tuareg.el: Use faces without indirecting through variables

2023-07-13 Thread ELPA Syncer

branch: elpa/tuareg
commit 4c2badebc4fa972e1b26ad577cca99298980f285
Author: Stefan Monnier 
Commit: Stefan Monnier 

tuareg.el: Use faces without indirecting through variables

* tuareg.el (tuareg--obsolete-face-var): New macro.
Use it to declare all the face-vars.  Mark them as obsolete.
(tuareg-font-lock-syntactic-face-function)
(tuareg--install-font-lock): Refer to faces rather than to variables.
---
 tuareg.el | 272 ++
 1 file changed, 130 insertions(+), 142 deletions(-)

diff --git a/tuareg.el b/tuareg.el
index cc61f81354..c71943700b 100644
--- a/tuareg.el
+++ b/tuareg.el
@@ -1,7 +1,7 @@
 ;;; tuareg.el --- OCaml mode  -*- coding: utf-8; lexical-binding:t -*-
 
 ;; Copyright (C) 1997-2006 Albert Cohen, all rights reserved.
-;; Copyright (C) 2011-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2023 Free Software Foundation, Inc.
 ;; Copyright (C) 2009-2010 Jane Street Holding, LLC.
 
 ;; Author: Albert Cohen 
@@ -325,14 +325,17 @@ Valid names are `browse-url', `browse-url-firefox', etc."
   "Special faces for the Tuareg mode."
   :group 'tuareg)
 
+(defmacro tuareg--obsolete-face-var (name)
+  `(progn (defvar ,name ',name)
+  (make-obsolete-variable ',name "use the face instead" "2023")))
+
 (defface tuareg-font-lock-governing-face
   'class color) (type tty)) (:bold t))
 (((background light)) (:foreground "black" :bold t))
 (t (:foreground "wheat" :bold t)))
   "Face description for governing/leading keywords."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-governing-face
-  'tuareg-font-lock-governing-face)
+(tuareg--obsolete-face-var tuareg-font-lock-governing-face)
 
 (defface tuareg-font-lock-multistage-face
   'background light))
@@ -340,59 +343,50 @@ Valid names are `browse-url', `browse-url-firefox', etc."
 (t (:foreground "steelblue" :background "darkgray" :bold t)))
   "Face description for MetaOCaml staging operators."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-multistage-face
-  'tuareg-font-lock-multistage-face)
-
+(tuareg--obsolete-face-var tuareg-font-lock-multistage-face)
 (defface tuareg-font-lock-line-number-face
   'background light)) (:foreground "dark gray"))
 (t (:foreground "gray60")))
   "Face description for line numbering directives."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-line-number-face
-  'tuareg-font-lock-line-number-face)
+(tuareg--obsolete-face-var tuareg-font-lock-line-number-face)
 
 (defface tuareg-font-lock-operator-face
   'background light)) (:foreground "brown"))
 (t (:foreground "khaki")))
   "Face description for all operators."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-operator-face
-  'tuareg-font-lock-operator-face)
+(tuareg--obsolete-face-var tuareg-font-lock-operator-face)
 
 (defface tuareg-font-lock-module-face
   '((t (:inherit font-lock-type-face))); backward compatibility
   "Face description for modules and module paths."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-module-face
-  'tuareg-font-lock-module-face)
+(tuareg--obsolete-face-var tuareg-font-lock-module-face)
 
 (defface tuareg-font-lock-constructor-face
   '((t (:inherit default))) ;FIXME: Why not just nil?
   "Face description for constructors of (polymorphic) variants and exceptions."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-constructor-face
-  'tuareg-font-lock-constructor-face)
+(tuareg--obsolete-face-var tuareg-font-lock-constructor-face)
 
 (defface tuareg-font-lock-label-face
   '((t (:inherit font-lock-constant-face keep)))
   "Face description for labels."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-label-face
-  'tuareg-font-lock-label-face)
+(tuareg--obsolete-face-var tuareg-font-lock-label-face)
 
 (defface tuareg-font-double-semicolon-face
   '((t (:foreground "OrangeRed")))
   "Face description for ;; which is not needed in standard code."
   :group 'tuareg-faces)
-(defvar tuareg-font-double-semicolon-face
-  'tuareg-font-double-semicolon-face)
+(tuareg--obsolete-face-var tuareg-font-double-semicolon-face)
 
 (defface tuareg-font-lock-error-face
   '((t (:foreground "yellow" :background "red" :bold t)))
   "Face description for all errors reported to the source."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-error-face
-  'tuareg-font-lock-error-face)
+(tuareg--obsolete-face-var tuareg-font-lock-error-face)
 
 (defface tuareg-font-lock-interactive-output-face
   'background light))
@@ -400,37 +394,32 @@ Valid names are `browse-url', `browse-url-firefox', etc."
 (t (:foreground "grey")))
   "Face description for all outputs in the REPL."
   :group 'tuareg-faces)
-(defvar tuareg-font-lock-interactive-output-face
-  'tuareg-font-lock-interactive-output-face)
+(tuareg--obsolete-face-var tuareg-font-lock-interactive-output-face)
 
 (defface tuareg-font-lock-interactive-error-face
   '((t :inherit font-lock-warning-face))
   "Face description for all REPL errors."

[nongnu] elpa/yaml-mode e9f3600dbf 1/2: Fix typo

2023-07-13 Thread ELPA Syncer

branch: elpa/yaml-mode
commit e9f3600dbf0b6d7e33ecba2b474f2fcd112c949d
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typo
---
 yaml-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yaml-mode.el b/yaml-mode.el
index 1cfef236dd..d3c1da8e98 100644
--- a/yaml-mode.el
+++ b/yaml-mode.el
@@ -123,7 +123,7 @@ that key is pressed to begin a block literal."
   "Regexp matching a line containing only (valid) whitespace.")
 
 (defconst yaml-directive-re "^\\(?:--- \\)? *%\\(\\w+\\)"
-  "Regexp matching a line contatining a YAML directive.")
+  "Regexp matching a line containing a YAML directive.")
 
 (defconst yaml-document-delimiter-re "^\\(?:---\\|[.][.][.]\\)"
   "Rexexp matching a YAML document delimiter line.")

[nongnu] elpa/yaml-mode 13728b4b1b 2/2: Merge pull request #108 from tarsiiformes/typo

2023-07-13 Thread ELPA Syncer

branch: elpa/yaml-mode
commit 13728b4b1b1bd33d3a754236a0f23e4c76d6ba91
Merge: b153150e0e e9f3600dbf
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #108 from tarsiiformes/typo

Fix typo
---
 yaml-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yaml-mode.el b/yaml-mode.el
index 1cfef236dd..d3c1da8e98 100644
--- a/yaml-mode.el
+++ b/yaml-mode.el
@@ -123,7 +123,7 @@ that key is pressed to begin a block literal."
   "Regexp matching a line containing only (valid) whitespace.")
 
 (defconst yaml-directive-re "^\\(?:--- \\)? *%\\(\\w+\\)"
-  "Regexp matching a line contatining a YAML directive.")
+  "Regexp matching a line containing a YAML directive.")
 
 (defconst yaml-document-delimiter-re "^\\(?:---\\|[.][.][.]\\)"
   "Rexexp matching a YAML document delimiter line.")

51 matches

Mail list logo