[nongnu] elpa/slime a8e8a6cc8d: Fix buttons in slime-trace-dialog

[ELPA Syncer]

branch: elpa/slime
commit a8e8a6cc8d30b78f7fdc7f5150e0c296eb57e319
Author: Mariano Montone 
Commit: Stas Boukarev 

Fix buttons in slime-trace-dialog

This small fix is needed for buttons to work in slime-trace-dialog.
---
 contrib/slime-trace-dialog.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/contrib/slime-trace-dialog.el b/contrib/slime-trace-dialog.el
index 8365c5d157..60e52530cb 100644
--- a/contrib/slime-trace-dialog.el
+++ b/contrib/slime-trace-dialog.el
@@ -340,8 +340,7 @@ inspecting details of traced functions. Invoke this dialog 
with C-c T."
(funcall lambda button))
'mouse-face 'highlight
'face   'slime-inspector-action-face
-   props)
-string))
+   props)))
 
 (defun slime-trace-dialog--call-maintaining-properties (pos fn)
   (save-excursion

[elpa] externals/pabbrev b1ba1dae89 6/7: Use description from the docs in readme.

[ELPA Syncer]

branch: externals/pabbrev
commit b1ba1dae894bf6736966400d91342f359ab48907
Author: Arthur Miller 
Commit: Arthur Miller 

Use description from the docs in readme.
---
 README.org | 23 +--
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index c356e05611..86b89add32 100644
--- a/README.org
+++ b/README.org
@@ -1,4 +1,4 @@
-#+title: pabbrev - Predictive Abbreviation Expansions for Emacs
+#+title: Pabbrev - Predictive Abbreviation Expansions for Emacs
 #+author: Phillip Lord
 #+language: en
 #+export_file_name: pabbrev.texi
@@ -12,21 +12,24 @@
 Pabbrev provides predictive abbreviation expansion with no configuration needed
 and works with any mode.
 
-Pabbrev is a small package, which analyzes buffer text in the buffer and
-collects usage statistics to rank most used words highest. Pabbrev is
-un-intrusive and out of the way. It does not provide any user interface on its
-own other than TAB-based insertion on demand. Pabbrev can be used with Emacs
-completion facilities and packages such as Companry or Corfu, for the user
-interaction and user interface.
+Pabbrev is another abbreviation expansion mode somewhat like
+dabbrev-expand, in that it looks through the current buffer for
+symbols that can complete the current symbol. Unlike dabbrev-expand,
+it does this by discovering the words during the Emacs idle time, and
+places the results into data structures which enable very rapid
+extraction of expansions. The upshot of this is that it can offer
+suggestions as you type, without causing an unacceptable slow down.
 
-For more details see pabbrev.el
+Pabbrev is a small package, un-intrusive and out of the way. Pabbrev
+can be used with Emacs completion facilities and packages such as Company
+or Corfu, for the user interaction and user interface.
 
 * Features
 
 - Timer-based auto-suggestions (does not block main user-interface)
 - In-buffer color-coded display of best candidate
-- Suggestions by usage frequency or shortest-prefix
-- The current candidate is inserted with =TAB=
+- Suggestions ranked by usage frequency or shortest-prefix
+- The best suggestion is inserted with TAB, on demand 
 - List of all available suggestions
 
 * Installation and Configuration

[elpa] externals/pabbrev ded62c9c21 7/7: Merge branch 'pabbrev-new-readme'

[ELPA Syncer]

branch: externals/pabbrev
commit ded62c9c21c1be390495a94426ea627997c744cc
Merge: 7bdb74afcd b1ba1dae89
Author: Arthur Miller 
Commit: Arthur Miller 

Merge branch 'pabbrev-new-readme'
---
 README.md  | 16 
 README.org | 53 +
 2 files changed, 53 insertions(+), 16 deletions(-)

diff --git a/README.md b/README.md
deleted file mode 100644
index 58e442a3c4..00
--- a/README.md
+++ /dev/null
@@ -1,16 +0,0 @@
-Predictive Abbreviation Expansion for Emacs
-===
-
-Provides predictive abbreviation expansion with no configuration, working with
-any mode. For more details see pabbrev.el
-
-
-
-
-## Releases
-
-### 4.0
-
-This release provides better key handling, meaning expansion is configurable.
-
-The code base is now in its own repository, so that I can tag it.
diff --git a/README.org b/README.org
new file mode 100644
index 00..86b89add32
--- /dev/null
+++ b/README.org
@@ -0,0 +1,53 @@
+#+title: Pabbrev - Predictive Abbreviation Expansions for Emacs
+#+author: Phillip Lord
+#+language: en
+#+export_file_name: pabbrev.texi
+#+texinfo_dir_category: Emacs convenience features
+#+texinfo_dir_title: Pabbrev: (pabbrev).
+#+texinfo_dir_desc: Predictive Abbreviations
+
+#+html: https://elpa.gnu.org/packages/pabbrev.html";>https://elpa.gnu.org/packages/pabbrev.svg"/>
+#+html: https://melpa.org/packages/pabbrev";>https://melpa.org/packages/pabbrev-badge.svg"/>
+
+Pabbrev provides predictive abbreviation expansion with no configuration needed
+and works with any mode.
+
+Pabbrev is another abbreviation expansion mode somewhat like
+dabbrev-expand, in that it looks through the current buffer for
+symbols that can complete the current symbol. Unlike dabbrev-expand,
+it does this by discovering the words during the Emacs idle time, and
+places the results into data structures which enable very rapid
+extraction of expansions. The upshot of this is that it can offer
+suggestions as you type, without causing an unacceptable slow down.
+
+Pabbrev is a small package, un-intrusive and out of the way. Pabbrev
+can be used with Emacs completion facilities and packages such as Company
+or Corfu, for the user interaction and user interface.
+
+* Features
+
+- Timer-based auto-suggestions (does not block main user-interface)
+- In-buffer color-coded display of best candidate
+- Suggestions ranked by usage frequency or shortest-prefix
+- The best suggestion is inserted with TAB, on demand 
+- List of all available suggestions
+
+* Installation and Configuration
+
+Pabbrev is available from [[https://elpa.gnu.org/packages/corfu.html][GNU 
ELPA]]. You can install it directly via
+~package-install~.
+
+To enable pabbrev in your Emacs, run =M-x global-pabbrev-mode=.
+
+* Key bindings
+
+Pabbrev bind keybindings in pabbrev-mode-map, and currently only binds
+ key to pabbrev-expand-maybe function.
+
+* Contributions
+
+All non-significant contributions to this package require a copyright 
assignment
+to the FSF.
+
+
+

[elpa] externals/pabbrev 7bdb74afcd 5/7: Change to inlined comparitor function.

[ELPA Syncer]

branch: externals/pabbrev
commit 7bdb74afcd520c24381d836ee947dff77bed4fa2
Author: Arthur Miller 
Commit: Arthur Miller 

Change to inlined comparitor function.
---
 pabbrev.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index 9ef0bca221..78ac5c0049 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -473,9 +473,8 @@ This is a function internal to the data structures.  The
   ;; emacs spent most of its time in this loop, but now I've bolted
   ;; on a user interface, its not so much of a problem, as plenty of
   ;; time is spent in placing on the "been here" overlays
-  (sort alist
-;;'pabbrev-comparitor-function))
-(lambda(a b) (> (cdr a) (cdr b)
+  (sort alist #'pabbrev-comparitor-function)) ; inlined, is speed ok?
+;;(lambda(a b) (> (cdr a) (cdr b)
 
 (defun pabbrev-add-word-cons-with-prefix (prefix conscell)
   "Add a word usage, and a PREFIX.

[elpa] externals/pabbrev c54a59cf4b 1/7: New Readme file in Org-mode.

[ELPA Syncer]

branch: externals/pabbrev
commit c54a59cf4bdda667a6a6a0db1cb9f512052eefdc
Author: Arthur Miller 
Commit: Arthur Miller 

New Readme file in Org-mode.
---
 README.org | 52 
 1 file changed, 52 insertions(+)

diff --git a/README.org b/README.org
new file mode 100644
index 00..0bd8b13faf
--- /dev/null
+++ b/README.org
@@ -0,0 +1,52 @@
+#+title: pabbrev - Predictive Abbreviation Expansions for Emacs
+#+author: Phillip Lord
+#+language: en
+#+export_file_name: pabbrev.texi
+#+texinfo_dir_category: Emacs convenience features
+#+texinfo_dir_title: Pabbrev: (pabbrev).
+#+texinfo_dir_desc: Predictive Abbreviations
+
+#+html: https://www.gnu.org/software/emacs/";>https://img.shields.io/badge/Emacs-%237F5AB6.svg?&style=for-the-badge&logo=gnu-emacs&logoColor=white";
+#+html: https://elpa.gnu.org/packages/pabbrev.html";>https://elpa.gnu.org/packages/pabbrev.svg"/>
+#+html: https://elpa.gnu.org/devel/pabbrev.html";>https://elpa.gnu.org/devel/pabbrev.svg"/>
+#+html: https://melpa.org/packages/pabbrev";>https://melpa.org/packages/pabbrev-badge.svg"/>
+
+Pabbrev provides predictive abbreviation expansion with no configuration 
needed.
+It wors with any mode.
+
+Pabbrev is a small package, which analyzes buffer text in the buffer and
+collects usage statistics to rank most used words highest. Pabbrev is
+un-intrusive and out of the way. It does not provide any user interface on its
+own other than TAB-based insertion on demand. Pabbrev can be used with Emacs
+completion facilities and packages such as Companry or Corfu, for the user
+interaction and user interface.
+
+For more details see pabbrev.el
+
+* Features
+
+- Timer-based auto-suggestions (does not block main user-interface)
+- In-buffer color-coded display of best candidate
+- Suggestions by usage frequency or shortest-prefix
+- The current candidate is inserted with =TAB=
+- List of all available suggestions
+
+* Installation and Configuration
+
+Pabbrev is available from [[https://elpa.gnu.org/packages/corfu.html][GNU 
ELPA]], and can be installed directly via
+~package-install~. After installation, the global minor mode can be enabled 
with
+=M-x global-pabbrev-mode=. In order to configure Pabbrev and other packages in
+your init.el, you may want to use the built-in ~use-package~.
+
+* Key bindings
+
+Pabbrev bind keybindings in pabbrev-mode-map, and currently only binds
+ key to pabbrev-exapnd-maybe function.
+
+* Contributions
+
+All non-significant contributions to this package require a copyright 
assignment
+to the FSF.
+
+
+

[elpa] externals/pabbrev updated (0c281401b4 -> ded62c9c21)

[ELPA Syncer]

elpasync pushed a change to branch externals/pabbrev.

  from  0c281401b4 More cleanup (Stefans patch)
   new  7bdb74afcd Change to inlined comparitor function.
   new  c54a59cf4b New Readme file in Org-mode.
   new  f574655c89 Remove old readme.md
   new  4af893a600 Fix typos and remove elpa/devel button
   new  bb4b9d154f Remove emacs badge
   new  b1ba1dae89 Use description from the docs in readme.
   new  ded62c9c21 Merge branch 'pabbrev-new-readme'


Summary of changes:
 README.md  | 16 
 README.org | 53 +
 pabbrev.el |  5 ++---
 3 files changed, 55 insertions(+), 19 deletions(-)
 delete mode 100644 README.md
 create mode 100644 README.org

[elpa] externals/pabbrev bb4b9d154f 4/7: Remove emacs badge

[ELPA Syncer]

branch: externals/pabbrev
commit bb4b9d154f2fc873f444be881fbd153bbeea41b5
Author: Arthur Miller 
Commit: Arthur Miller 

Remove emacs badge
---
 README.org | 1 -
 1 file changed, 1 deletion(-)

diff --git a/README.org b/README.org
index a9595404a4..c356e05611 100644
--- a/README.org
+++ b/README.org
@@ -6,7 +6,6 @@
 #+texinfo_dir_title: Pabbrev: (pabbrev).
 #+texinfo_dir_desc: Predictive Abbreviations
 
-#+html: https://www.gnu.org/software/emacs/";>https://img.shields.io/badge/Emacs-%237F5AB6.svg?&style=for-the-badge&logo=gnu-emacs&logoColor=white";
 #+html: https://elpa.gnu.org/packages/pabbrev.html";>https://elpa.gnu.org/packages/pabbrev.svg"/>
 #+html: https://melpa.org/packages/pabbrev";>https://melpa.org/packages/pabbrev-badge.svg"/>
 

[elpa] externals/pabbrev 4af893a600 3/7: Fix typos and remove elpa/devel button

[ELPA Syncer]

branch: externals/pabbrev
commit 4af893a60039ec51d9abe2c7e34f86579eddcae8
Author: Arthur Miller 
Commit: Arthur Miller 

Fix typos and remove elpa/devel button
---
 README.org | 15 +++
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 0bd8b13faf..a9595404a4 100644
--- a/README.org
+++ b/README.org
@@ -8,11 +8,10 @@
 
 #+html: https://www.gnu.org/software/emacs/";>https://img.shields.io/badge/Emacs-%237F5AB6.svg?&style=for-the-badge&logo=gnu-emacs&logoColor=white";
 #+html: https://elpa.gnu.org/packages/pabbrev.html";>https://elpa.gnu.org/packages/pabbrev.svg"/>
-#+html: https://elpa.gnu.org/devel/pabbrev.html";>https://elpa.gnu.org/devel/pabbrev.svg"/>
 #+html: https://melpa.org/packages/pabbrev";>https://melpa.org/packages/pabbrev-badge.svg"/>
 
-Pabbrev provides predictive abbreviation expansion with no configuration 
needed.
-It wors with any mode.
+Pabbrev provides predictive abbreviation expansion with no configuration needed
+and works with any mode.
 
 Pabbrev is a small package, which analyzes buffer text in the buffer and
 collects usage statistics to rank most used words highest. Pabbrev is
@@ -33,15 +32,15 @@ For more details see pabbrev.el
 
 * Installation and Configuration
 
-Pabbrev is available from [[https://elpa.gnu.org/packages/corfu.html][GNU 
ELPA]], and can be installed directly via
-~package-install~. After installation, the global minor mode can be enabled 
with
-=M-x global-pabbrev-mode=. In order to configure Pabbrev and other packages in
-your init.el, you may want to use the built-in ~use-package~.
+Pabbrev is available from [[https://elpa.gnu.org/packages/corfu.html][GNU 
ELPA]]. You can install it directly via
+~package-install~.
+
+To enable pabbrev in your Emacs, run =M-x global-pabbrev-mode=.
 
 * Key bindings
 
 Pabbrev bind keybindings in pabbrev-mode-map, and currently only binds
- key to pabbrev-exapnd-maybe function.
+ key to pabbrev-expand-maybe function.
 
 * Contributions
 

[elpa] externals/pabbrev f574655c89 2/7: Remove old readme.md

[ELPA Syncer]

branch: externals/pabbrev
commit f574655c895f3fed7de46dade52ffce022cd9fc0
Author: Arthur Miller 
Commit: Arthur Miller 

Remove old readme.md
---
 README.md | 16 
 1 file changed, 16 deletions(-)

diff --git a/README.md b/README.md
deleted file mode 100644
index 58e442a3c4..00
--- a/README.md
+++ /dev/null
@@ -1,16 +0,0 @@
-Predictive Abbreviation Expansion for Emacs
-===
-
-Provides predictive abbreviation expansion with no configuration, working with
-any mode. For more details see pabbrev.el
-
-
-
-
-## Releases
-
-### 4.0
-
-This release provides better key handling, meaning expansion is configurable.
-
-The code base is now in its own repository, so that I can tag it.

[elpa] main f0622d0755: Hopefully fix auctex 14 with temporal workaround

[Tassilo Horn]

branch: main
commit f0622d07555fd35b47397f914c08acf480a41383
Author: Tassilo Horn 
Commit: Tassilo Horn 

Hopefully fix auctex 14 with temporal workaround
---
 elpa-packages | 10 +++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index 8d4d52c352..579f793bd0 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -68,9 +68,13 @@
  ;;  :doc "assess-doc.org")
  (async:url "https://github.com/jwiegley/emacs-async";
   :ignored-files ("COPYING"))
- (auctex   :url "https://git.savannah.gnu.org/git/auctex.git";
-  ;; AUCTeX is currently sync'd manually and elpa.git isn't quite a mirror :-(
-  :manual-sync t)
+ ( auctex  :url "https://git.savannah.gnu.org/git/auctex.git";
+   ;; AUCTeX is currently sync'd manually and elpa.git isn't quite a mirror :-(
+   :manual-sync t
+   ;; Hopefully fix auctex 14.x installation issues.  The tex-site.el
+   ;; autoloads must come first in the autoloads file but ELPA
+   ;; generates them in alphabetical file name order.
+   :shell-command "(echo \"(require 'tex-site)\"; if [ -f auctex-autoloads.el 
]; then cat auctex-autoloads.el; fi) > _tmp_.el; mv _tmp_.el 
auctex-autoloads.el"
  (aumix-mode   :url nil)
  (auto-correct :url nil)
  (auto-header   :url "https://git.sr.ht/~pkal/auto-header";)

[elpa] externals/auctex b4c97c48aa: Release GNU AUCTeX 14.0.1

[Tassilo Horn]

branch: externals/auctex
commit b4c97c48aafb01260d2bb313e0850026faefd659
Author: Tassilo Horn 
Commit: Tassilo Horn 

Release GNU AUCTeX 14.0.1

* GNU AUCTeX Version 14.0.1 released.
---
 auctex.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auctex.el b/auctex.el
index be8b2c1666..2c685d7c0e 100644
--- a/auctex.el
+++ b/auctex.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2014-2024 Free Software Foundation, Inc.
 
-;; Version: 14.0.0
+;; Version: 14.0.1
 ;; URL: https://www.gnu.org/software/auctex/
 ;; Maintainer: auctex-de...@gnu.org
 ;; Notifications-To: auctex-di...@gnu.org

[elpa] externals/auctex a8d989d699: Release GNU AUCTeX 14.0.1

[Tassilo Horn]

branch: externals/auctex
commit a8d989d699645f93dc48a75c21df7218c343a4f8
Author: Tassilo Horn 
Commit: Tassilo Horn 

Release GNU AUCTeX 14.0.1

* GNU AUCTeX Version 14.0.1 released.
---
 auctex.info| 4 ++--
 preview-latex.info | 4 ++--
 tex-site.el| 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/auctex.info b/auctex.info
index 6b3fccead9..b8ac23fad5 100644
--- a/auctex.info
+++ b/auctex.info
@@ -1,6 +1,6 @@
 This is auctex.info, produced by makeinfo version 7.1 from auctex.texi.
 
-This manual is for AUCTeX (version 14.0.0 from 2024-02-08), a
+This manual is for AUCTeX (version 14.0.1 from 2024-02-09), a
 sophisticated TeX environment for Emacs.
 
Copyright © 1992-1995, 2001, 2002, 2004-2024 Free Software
@@ -6247,7 +6247,7 @@ A.1 Copying this Manual
 
 The copyright notice for this manual is:
 
-   This manual is for AUCTeX (version 14.0.0 from 2024-02-08), a
+   This manual is for AUCTeX (version 14.0.1 from 2024-02-09), a
 sophisticated TeX environment for Emacs.
 
Copyright © 1992-1995, 2001, 2002, 2004-2024 Free Software
diff --git a/preview-latex.info b/preview-latex.info
index 818b1cbfc8..7d8e52859c 100644
--- a/preview-latex.info
+++ b/preview-latex.info
@@ -2,7 +2,7 @@ This is preview-latex.info, produced by makeinfo version 7.1 
from
 preview-latex.texi.
 
 This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 14.0.0 from 2024-02-08).
+(version 14.0.1 from 2024-02-09).
 
Copyright © 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021 Free
 Software Foundation, Inc.
@@ -1922,7 +1922,7 @@ Appendix C Copying this Manual
 The copyright notice for this manual is:
 
This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 14.0.0 from 2024-02-08).
+(version 14.0.1 from 2024-02-09).
 
Copyright © 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021 Free
 Software Foundation, Inc.
diff --git a/tex-site.el b/tex-site.el
index 19978369d6..fc31ddf0b0 100644
--- a/tex-site.el
+++ b/tex-site.el
@@ -172,11 +172,11 @@ Otherwise, restore AUCTeX definition saved in the symbol 
property
   (if (featurep 'tex-site)
   (TeX--alias-overlapped-modes t)))
 
-(defconst AUCTeX-version "14.0.0"
+(defconst AUCTeX-version "14.0.1"
   "AUCTeX version.
 If not a regular release, the date of the last change.")
 
-(defconst AUCTeX-date "2024-02-08"
+(defconst AUCTeX-date "2024-02-09"
   "AUCTeX release date using the ISO 8601 format, -mm-dd.")
 
 ;; Store bibitems when saving a BibTeX buffer

[elpa] main 636301de83: elpa-packages (auctex): Fix paren typo

[Stefan Monnier via]

branch: main
commit 636301de833634db76a809861edda2c10e6e9c27
Author: Stefan Monnier 
Commit: Stefan Monnier 

elpa-packages (auctex): Fix paren typo
---
 elpa-packages | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 579f793bd0..b6d87042f7 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -74,7 +74,7 @@
;; Hopefully fix auctex 14.x installation issues.  The tex-site.el
;; autoloads must come first in the autoloads file but ELPA
;; generates them in alphabetical file name order.
-   :shell-command "(echo \"(require 'tex-site)\"; if [ -f auctex-autoloads.el 
]; then cat auctex-autoloads.el; fi) > _tmp_.el; mv _tmp_.el 
auctex-autoloads.el"
+   :shell-command "(echo \"(require 'tex-site)\"; if [ -f auctex-autoloads.el 
]; then cat auctex-autoloads.el; fi) > _tmp_.el; mv _tmp_.el 
auctex-autoloads.el")
  (aumix-mode   :url nil)
  (auto-correct :url nil)
  (auto-header   :url "https://git.sr.ht/~pkal/auto-header";)

[elpa] externals/beframe a0cd62015e: Fix :type of beframe-rename-function

[ELPA Syncer]

branch: externals/beframe
commit a0cd62015e641f0bc73ccb3bba9ebc2b2c61cc5b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix :type of beframe-rename-function
---
 beframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/beframe.el b/beframe.el
index e27755f501..b6fce9fc48 100644
--- a/beframe.el
+++ b/beframe.el
@@ -120,7 +120,7 @@ automatically, use `customize-set-variable' or `setopt' 
(Emacs
  (beframe--functions-in-frames :disable)
  (set-default symbol value)
  (beframe--functions-in-frames))
-  :type '(repeat symbol))
+  :type 'symbol)
 
 (defun beframe--frame-buffers (&optional frame)
   "Produce list of buffers for either specified or current FRAME."

[elpa] externals/org updated (ee395b9b8e -> 8e2ed45bb1)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  ee395b9b8e Add new make target for native compilation
   new  adf841219d mk: Use ` quotes instead of complex '"'"'
   new  4797ebf834 lisp/org-crypt.el (org-current-level): Fix compiler 
warning
   new  8d2fcfea99 Add testing/lisp/test-duplicates-detector.el
   new  e3f327d1e6 ob-haskell/session-named-none-means-one-shot-sessions: 
Remove duplicate
   new  8e2ed45bb1 test-org/file-contents: Refactor duplicate test


Summary of changes:
 lisp/org-crypt.el|   1 +
 mk/default.mk|  12 +-
 testing/lisp/test-duplicates-detector.el | 317 +++
 testing/lisp/test-ob-haskell-ghci.el |   2 -
 testing/lisp/test-org.el |  13 +-
 5 files changed, 332 insertions(+), 13 deletions(-)
 create mode 100644 testing/lisp/test-duplicates-detector.el

[elpa] externals/org 4797ebf834 2/5: lisp/org-crypt.el (org-current-level): Fix compiler warning

[ELPA Syncer]

branch: externals/org
commit 4797ebf8349745a691267e10f3a60065c978e9a9
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

lisp/org-crypt.el (org-current-level): Fix compiler warning
---
 lisp/org-crypt.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el
index c8184ee95a..1705327889 100644
--- a/lisp/org-crypt.el
+++ b/lisp/org-crypt.el
@@ -71,6 +71,7 @@
 (defvar epg-context)
 
 (declare-function org-back-over-empty-lines "org" ())
+(declare-function org-current-level "org" ())
 (declare-function org-back-to-heading "org" (&optional invisible-ok))
 (declare-function org-before-first-heading-p "org" ())
 (declare-function org-end-of-meta-data "org" (&optional full))

[elpa] externals/org 8d2fcfea99 3/5: Add testing/lisp/test-duplicates-detector.el

[ELPA Syncer]

branch: externals/org
commit 8d2fcfea996541e3b713250c53bbb76b436b46bb
Author: Ilya Chernyshov 
Commit: Ihor Radchenko 

Add testing/lisp/test-duplicates-detector.el

* testing/lisp/test-duplicates-detector.el: Add test unit that checks
for duplicate ert-deftests and forms inside of them.
---
 testing/lisp/test-duplicates-detector.el | 317 +++
 1 file changed, 317 insertions(+)

diff --git a/testing/lisp/test-duplicates-detector.el 
b/testing/lisp/test-duplicates-detector.el
new file mode 100644
index 00..58da27c07e
--- /dev/null
+++ b/testing/lisp/test-duplicates-detector.el
@@ -0,0 +1,317 @@
+;;; test-duplicates-detector.el --- Tests for finding duplicates in Org tests  
-*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Ilya Chernyshov
+;; Authors: Ilya Chernyshov 
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see .
+;;
+;;; Commentary:
+
+;; Unit tests that check for duplicate forms and tests in all Org test files.
+
+;; Forms are considered duplicate if they:
+
+;; 1. are `equal-including-properties',
+;; 2. have the same nesting path,
+;; 3. either are `should-' macros or have `should-' macros inside.
+
+;; To ignore a form or a group of forms, wrap them in
+;; `org-test-ignore-duplicate'.
+
+;; `ert-deftest' are considered duplicate if their body are
+;; `equal-including-properties.' When comparing, the docstrings are not taken
+;; into account.
+
+;;; Code:
+
+(require 'org-test "../testing/org-test")
+
+ Variables
+
+(defvar test-duplicates-progn-forms
+  '( progn prog1 let dolist dotimes
+ org-test-with-temp-text
+ org-test-with-temp-text-in-file
+ org-test-at-id
+ org-test-ignore-duplicate)
+  "List of forms equivalent to `progn'.
+Immediate children inside these are not checked for duplicates.")
+
+(defvar test-duplicates-detector-file-path
+  (expand-file-name "test-duplicates-detector.el"
+(expand-file-name "lisp" org-test-dir)))
+
+(defvar test-duplicates-detector-files
+  (remove
+   test-duplicates-detector-file-path
+   (directory-files
+(expand-file-name "lisp" org-test-dir) t "\\.el$")))
+
+(defvar test-duplicates-detector-duplicate-forms nil
+  "A list where each element is either:
+
+  ((file test-name [(form-1 . numerical-order)
+(form-2 . numerical-order) ...])
+(dup-form-1 . (numerical-order [numerical-order ...]))
+  [ (dup-form-2 . (numerical-order [numerical-order ...]))
+(dup-form-3 . (numerical-order [numerical-order ...]))
+ ...])
+
+or
+
+  (test-1-symbol . duplicate-of-test-1-symbol)
+
+
+Where
+
+  (file test-name [(form-1 . numerical-order)
+   (form-2 . numerical-order) ...])
+
+is a path to duplicates.  For example, the path for the
+duplicates in the following test:
+
+ test-file.el
+
+  (ertdeftest test-name ()
+\"Docstring.\"
+(let ((var-1 \"value\"))
+ (when var-1
+   (should-not
+(equal 2 (some-func \"string\" \"x\" nil)))
+   (some-func \"string\" \"x=2\")
+   (should-not
+(equal 2 (some-func \"string\" \"x\" nil)))
+   (some-func \"string\" \"x=2\"
+
+would look like this:
+
+  (\"/absolute/path/to/test-file.el\"
+test-name
+(let . 4) (when . 2))
+
+And the records about the duplicates would look like this:
+
+  ((should-not
+(equal 2 (some-func \"string\" \"x\" nil))) 4 2)")
+
+(defvar test-duplicates-detector-forms nil
+  "Nested alist of found forms and paths to them (not filtered).")
+
+ Macros
+
+(defmacro org-test-ignore-duplicate (&rest body)
+  "Eval BODY forms sequentially and return value of last one.
+
+The macro's body will be ignored by `test-duplicates-detector.el'
+tests to skip duplicate forms inside the body."
+  (declare (indent 0))
+  `(progn ,@body))
+
+ ERT tests
+
+(ert-deftest test-org-tests/find-duplicates ()
+  "Try to find duplicate forms and ert-deftests in FILES."
+  (should-not
+   (test-duplicates-detector--find-duplicates
+test-duplicates-detector-files)))
+
+ Auxiliary functions
+
+(defun test-duplicates-detector--find-duplicates (files)
+  "Try to find duplicate forms and ert-deftests in FILES.
+
+Duplicate forms will be written to
+`test-duplicates-detector-duplicate-forms'.
+
+`message' paths to them in a human-readable format."
+  (

[elpa] externals/org adf841219d 1/5: mk: Use ` quotes instead of complex '"'"'

[ELPA Syncer]

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

mk: Use ` quotes instead of complex '"'"'

* mk/default.mk (req-ob-lang):
(req-extra):
(BTEST_LOAD):
(BATCHO):
(BATCHL):

Reported-by: Stefan Monnier 
Link: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=68851#50
---
 mk/default.mk | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/mk/default.mk b/mk/default.mk
index c07f910019..d1d875d749 100644
--- a/mk/default.mk
+++ b/mk/default.mk
@@ -69,13 +69,13 @@ REPRO_ARGS ?=
 ##--
 
 # How to run tests
-req-ob-lang = --eval '(require '"'"'ob-$(ob-lang))'
+req-ob-lang = --eval '(require `ob-$(ob-lang))'
 lst-ob-lang = ($(ob-lang) . t)
-req-extra   = --eval '(require '"'"'$(req))'
+req-extra   = --eval '(require `$(req))'
 BTEST_RE   ?= \\(org\\|ob\\|ox\\)
 BTEST_LOAD  = \
-   --eval '(add-to-list '"'"'load-path (concat default-directory "lisp"))' 
\
-   --eval '(add-to-list '"'"'load-path (concat default-directory 
"testing"))'
+   --eval '(add-to-list `load-path (concat default-directory "lisp"))' \
+   --eval '(add-to-list `load-path (concat default-directory "testing"))'
 BTEST_INIT  = $(BTEST_PRE) $(BTEST_LOAD) $(BTEST_POST)
 
 BTEST = $(BATCH) $(BTEST_INIT) \
@@ -124,7 +124,7 @@ BATCH   = $(EMACSQ) -batch \
 
 # Emacs must be started in toplevel directory
 BATCHO = $(BATCH) \
- --eval '(add-to-list '"'"'load-path "./lisp")'
+ --eval '(add-to-list `load-path "./lisp")'
 
 # How to generate local.mk
 MAKE_LOCAL_MK = $(BATCHO) \
@@ -134,7 +134,7 @@ MAKE_LOCAL_MK = $(BATCHO) \
 
 # Emacs must be started in lisp directory
 BATCHL = $(BATCH) \
- --eval '(add-to-list '"'"'load-path ".")'
+ --eval '(add-to-list `load-path ".")'
 
 # How to generate org-loaddefs.el
 MAKE_ORG_INSTALL = $(BATCHL) \

[elpa] externals/org 8e2ed45bb1 5/5: test-org/file-contents: Refactor duplicate test

[ELPA Syncer]

branch: externals/org
commit 8e2ed45bb184c6620f10169aa9658ff334e6e0e1
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

test-org/file-contents: Refactor duplicate test

* testing/lisp/test-org.el (test-org/file-contents): Avoid safety
prompt when testing.  Fix duplicate test testing optional argument for
`org-file-contents' (the argument were not passed previously).
---
 testing/lisp/test-org.el | 13 -
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 822cbc67a7..337367c0bb 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -3982,8 +3982,9 @@ SCHEDULED: <2017-05-06 Sat>
   (org-file-contents "http://some-valid-url";))
   (kill-buffer buffer))
   ;; Throw error when trying to access an invalid URL.
-  (should-error
-   (let ((buffer (generate-new-buffer "url-retrieve-output")))
+  (should-not
+   (let ((buffer (generate-new-buffer "url-retrieve-output"))
+ (org-resource-download-policy t))
  (unwind-protect
 ;; Simulate unsuccessful retrieval of a URL.
 (cl-letf (((symbol-function 'url-retrieve-synchronously)
@@ -3991,11 +3992,12 @@ SCHEDULED: <2017-05-06 Sat>
  (with-current-buffer buffer
(insert "HTTP/1.1 404 Not found\n\ndoes not matter"))
  buffer)))
-  (org-file-contents "http://this-url-must-not-exist";))
+  (org-file-contents "http://this-url-must-not-exist"; 'noerror))
(kill-buffer buffer
   ;; Try to access an invalid URL, but do not throw an error.
   (should-error
-   (let ((buffer (generate-new-buffer "url-retrieve-output")))
+   (let ((buffer (generate-new-buffer "url-retrieve-output"))
+ (org-resource-download-policy t))
  (unwind-protect
 ;; Simulate unsuccessful retrieval of a URL.
 (cl-letf (((symbol-function 'url-retrieve-synchronously)
@@ -4006,7 +4008,8 @@ SCHEDULED: <2017-05-06 Sat>
   (org-file-contents "http://this-url-must-not-exist";))
(kill-buffer buffer
   (should
-   (let ((buffer (generate-new-buffer "url-retrieve-output")))
+   (let ((buffer (generate-new-buffer "url-retrieve-output"))
+ (org-resource-download-policy t))
  (unwind-protect
 ;; Simulate unsuccessful retrieval of a URL.
 (cl-letf (((symbol-function 'url-retrieve-synchronously)

[elpa] externals/org e3f327d1e6 4/5: ob-haskell/session-named-none-means-one-shot-sessions: Remove duplicate

[ELPA Syncer]

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

ob-haskell/session-named-none-means-one-shot-sessions: Remove duplicate

*
testing/lisp/test-ob-haskell-ghci.el 
(ob-haskell/session-named-none-means-one-shot-sessions):
Remove duplicate from the test.
---
 testing/lisp/test-ob-haskell-ghci.el | 2 --
 1 file changed, 2 deletions(-)

diff --git a/testing/lisp/test-ob-haskell-ghci.el 
b/testing/lisp/test-ob-haskell-ghci.el
index cbd5f6f9a4..990addcd44 100644
--- a/testing/lisp/test-ob-haskell-ghci.el
+++ b/testing/lisp/test-ob-haskell-ghci.el
@@ -117,8 +117,6 @@ main
 (ert-deftest ob-haskell/session-named-none-means-one-shot-sessions ()
   "When no session, use a new session.
 \"none\" is a special name that means `no session'."
-  (test-ob-haskell-ghci ":session none" "x=2" nil)
-  (should-not (equal 2 (test-ob-haskell-ghci ":session \"none\"" "x" nil)))
   (test-ob-haskell-ghci ":session none" "x=2" nil)
   (should-not (equal 2 (test-ob-haskell-ghci ":session \"none\"" "x" nil
 

[elpa] externals/auctex 17564c2750 1/3: Temporal workaround for ELPA release

[Tassilo Horn]

branch: externals/auctex
commit 17564c27509674042a29ecbcba1e15e68221c48e
Author: Ikumi Keita 
Commit: Ikumi Keita 

Temporal workaround for ELPA release

* latex.el:
* plain-tex.el:
* tex.el:
Make sure to delete predefined aliases defined in tex-mode.el.
* tex-site.el.in:
Delete `TeX--alias-overlapped-modes' call because this code runs after
autoload declarations in ELPA installation.
---
 latex.el   | 2 ++
 plain-tex.el   | 4 +++-
 tex-site.el.in | 4 
 tex.el | 2 ++
 4 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/latex.el b/latex.el
index f86e6ebe92..1b9a165658 100644
--- a/latex.el
+++ b/latex.el
@@ -8214,6 +8214,8 @@ This happens when \\left is inserted."
 
 (declare-function LaTeX-preview-setup "preview")
 
+;;;###autoload (if (eq (symbol-function 'LaTeX-mode) 'latex-mode)
+;;;###autoload (defalias 'LaTeX-mode nil))
 ;;;###autoload
 (define-derived-mode LaTeX-mode TeX-mode "LaTeX"
   "Major mode in AUCTeX for editing LaTeX files.
diff --git a/plain-tex.el b/plain-tex.el
index 779c30a0d9..e3ffd53d2a 100644
--- a/plain-tex.el
+++ b/plain-tex.el
@@ -1,6 +1,6 @@
 ;;; plain-tex.el --- Support for plain TeX documents. -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2010, 2013, 2016-2018, 2021-2022  Free Software Foundation, 
Inc.
+;; Copyright (C) 2010, 2013, 2016-2018, 2021-2024  Free Software Foundation, 
Inc.
 
 ;; Maintainer: auctex-de...@gnu.org
 ;; Keywords: tex
@@ -115,6 +115,8 @@ plain-TeX file, or any mode derived thereof.  See variable
 
 (TeX-abbrev-mode-setup plain-TeX-mode plain-tex-mode-abbrev-table)
 
+;;;###autoload (if (eq (symbol-function 'plain-TeX-mode) 'plain-tex-mode)
+;;;###autoload (defalias 'plain-TeX-mode nil))
 ;;;###autoload
 (define-derived-mode plain-TeX-mode TeX-mode
   ;; The mode name can be "plain-TeX", but in that case, we have to
diff --git a/tex-site.el.in b/tex-site.el.in
index 1301f52885..911a2080be 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -161,10 +161,6 @@ Otherwise, restore AUCTeX definition saved in the symbol 
property
 (defalias mode (if restore
(get mode 'auctex-function-definition))
 
-;; Delete aliases predefined in tex-mode.el so that AUCTeX
-;; autoloads provided below take precedence.
-(TeX--alias-overlapped-modes)
-
 ;; COMPATIBILITY for Emacs<29, which executes
 ;; (defalias 'LaTeX-mode #'latex-mode) etc. in tex-mode.el.
 (with-eval-after-load 'tex-mode
diff --git a/tex.el b/tex.el
index eeb7237c8d..49723108ea 100644
--- a/tex.el
+++ b/tex.el
@@ -3745,6 +3745,8 @@ other entries will enter `plain-TeX-mode'."
   (memq 'font-latex-verbatim-face face)
 (eq face 'font-latex-verbatim-face))
 
+;;;###autoload (if (eq (symbol-function 'TeX-mode) 'tex-mode)
+;;;###autoload (defalias 'TeX-mode nil))
 (define-derived-mode TeX-mode text-mode "TeX"
   "Base mode for AUCTeX major modes except Texinfo mode.
 

[elpa] externals/auctex b3e1ab1b9f 3/3: Release GNU AUCTeX 14.0.2

[Tassilo Horn]

branch: externals/auctex
commit b3e1ab1b9f6e5bce95d6b03a60f507fd060def64
Author: Tassilo Horn 
Commit: Tassilo Horn 

Release GNU AUCTeX 14.0.2

* GNU AUCTeX Version 14.0.2 released.
---
 auctex.el  | 2 +-
 auctex.info| 4 ++--
 preview-latex.info | 4 ++--
 tex-site.el| 6 +-
 4 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/auctex.el b/auctex.el
index 2c685d7c0e..cc3084fe1c 100644
--- a/auctex.el
+++ b/auctex.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2014-2024 Free Software Foundation, Inc.
 
-;; Version: 14.0.1
+;; Version: 14.0.2
 ;; URL: https://www.gnu.org/software/auctex/
 ;; Maintainer: auctex-de...@gnu.org
 ;; Notifications-To: auctex-di...@gnu.org
diff --git a/auctex.info b/auctex.info
index b8ac23fad5..ae94233f28 100644
--- a/auctex.info
+++ b/auctex.info
@@ -1,6 +1,6 @@
 This is auctex.info, produced by makeinfo version 7.1 from auctex.texi.
 
-This manual is for AUCTeX (version 14.0.1 from 2024-02-09), a
+This manual is for AUCTeX (version 14.0.2 from 2024-02-09), a
 sophisticated TeX environment for Emacs.
 
Copyright © 1992-1995, 2001, 2002, 2004-2024 Free Software
@@ -6247,7 +6247,7 @@ A.1 Copying this Manual
 
 The copyright notice for this manual is:
 
-   This manual is for AUCTeX (version 14.0.1 from 2024-02-09), a
+   This manual is for AUCTeX (version 14.0.2 from 2024-02-09), a
 sophisticated TeX environment for Emacs.
 
Copyright © 1992-1995, 2001, 2002, 2004-2024 Free Software
diff --git a/preview-latex.info b/preview-latex.info
index 7d8e52859c..0cbe1cb53e 100644
--- a/preview-latex.info
+++ b/preview-latex.info
@@ -2,7 +2,7 @@ This is preview-latex.info, produced by makeinfo version 7.1 
from
 preview-latex.texi.
 
 This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 14.0.1 from 2024-02-09).
+(version 14.0.2 from 2024-02-09).
 
Copyright © 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021 Free
 Software Foundation, Inc.
@@ -1922,7 +1922,7 @@ Appendix C Copying this Manual
 The copyright notice for this manual is:
 
This manual is for preview-latex, a LaTeX preview mode for AUCTeX
-(version 14.0.1 from 2024-02-09).
+(version 14.0.2 from 2024-02-09).
 
Copyright © 2001, 2002, 2003, 2004, 2005, 2006, 2017-2019, 2021 Free
 Software Foundation, Inc.
diff --git a/tex-site.el b/tex-site.el
index fc31ddf0b0..8aa272b5be 100644
--- a/tex-site.el
+++ b/tex-site.el
@@ -161,10 +161,6 @@ Otherwise, restore AUCTeX definition saved in the symbol 
property
 (defalias mode (if restore
(get mode 'auctex-function-definition))
 
-;; Delete aliases predefined in tex-mode.el so that AUCTeX
-;; autoloads provided below take precedence.
-(TeX--alias-overlapped-modes)
-
 ;; COMPATIBILITY for Emacs<29, which executes
 ;; (defalias 'LaTeX-mode #'latex-mode) etc. in tex-mode.el.
 (with-eval-after-load 'tex-mode
@@ -172,7 +168,7 @@ Otherwise, restore AUCTeX definition saved in the symbol 
property
   (if (featurep 'tex-site)
   (TeX--alias-overlapped-modes t)))
 
-(defconst AUCTeX-version "14.0.1"
+(defconst AUCTeX-version "14.0.2"
   "AUCTeX version.
 If not a regular release, the date of the last change.")
 

[elpa] externals/auctex updated (a8d989d699 -> b3e1ab1b9f)

[Tassilo Horn]

tsdh pushed a change to branch externals/auctex.

  from  a8d989d699 Release GNU AUCTeX 14.0.1
   new  17564c2750 Temporal workaround for ELPA release
   new  7d541cb66b Merge remote-tracking branch 'origin/master' into 
externals/auctex
   new  b3e1ab1b9f Release GNU AUCTeX 14.0.2


Summary of changes:
 auctex.el  | 2 +-
 auctex.info| 4 ++--
 latex.el   | 2 ++
 plain-tex.el   | 4 +++-
 preview-latex.info | 4 ++--
 tex-site.el| 6 +-
 tex-site.el.in | 4 
 tex.el | 2 ++
 8 files changed, 13 insertions(+), 15 deletions(-)

[elpa] externals/auctex 7d541cb66b 2/3: Merge remote-tracking branch 'origin/master' into externals/auctex

[Tassilo Horn]

branch: externals/auctex
commit 7d541cb66b650aa088cf2fdb823c695481e3ea28
Merge: a8d989d699 17564c2750
Author: Tassilo Horn 
Commit: Tassilo Horn 

Merge remote-tracking branch 'origin/master' into externals/auctex
---
 latex.el   | 2 ++
 plain-tex.el   | 4 +++-
 tex-site.el.in | 4 
 tex.el | 2 ++
 4 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/latex.el b/latex.el
index f86e6ebe92..1b9a165658 100644
--- a/latex.el
+++ b/latex.el
@@ -8214,6 +8214,8 @@ This happens when \\left is inserted."
 
 (declare-function LaTeX-preview-setup "preview")
 
+;;;###autoload (if (eq (symbol-function 'LaTeX-mode) 'latex-mode)
+;;;###autoload (defalias 'LaTeX-mode nil))
 ;;;###autoload
 (define-derived-mode LaTeX-mode TeX-mode "LaTeX"
   "Major mode in AUCTeX for editing LaTeX files.
diff --git a/plain-tex.el b/plain-tex.el
index 779c30a0d9..e3ffd53d2a 100644
--- a/plain-tex.el
+++ b/plain-tex.el
@@ -1,6 +1,6 @@
 ;;; plain-tex.el --- Support for plain TeX documents. -*- lexical-binding: t; 
-*-
 
-;; Copyright (C) 2010, 2013, 2016-2018, 2021-2022  Free Software Foundation, 
Inc.
+;; Copyright (C) 2010, 2013, 2016-2018, 2021-2024  Free Software Foundation, 
Inc.
 
 ;; Maintainer: auctex-de...@gnu.org
 ;; Keywords: tex
@@ -115,6 +115,8 @@ plain-TeX file, or any mode derived thereof.  See variable
 
 (TeX-abbrev-mode-setup plain-TeX-mode plain-tex-mode-abbrev-table)
 
+;;;###autoload (if (eq (symbol-function 'plain-TeX-mode) 'plain-tex-mode)
+;;;###autoload (defalias 'plain-TeX-mode nil))
 ;;;###autoload
 (define-derived-mode plain-TeX-mode TeX-mode
   ;; The mode name can be "plain-TeX", but in that case, we have to
diff --git a/tex-site.el.in b/tex-site.el.in
index 4bd14ce146..5abf351a96 100644
--- a/tex-site.el.in
+++ b/tex-site.el.in
@@ -161,10 +161,6 @@ Otherwise, restore AUCTeX definition saved in the symbol 
property
 (defalias mode (if restore
(get mode 'auctex-function-definition))
 
-;; Delete aliases predefined in tex-mode.el so that AUCTeX
-;; autoloads provided below take precedence.
-(TeX--alias-overlapped-modes)
-
 ;; COMPATIBILITY for Emacs<29, which executes
 ;; (defalias 'LaTeX-mode #'latex-mode) etc. in tex-mode.el.
 (with-eval-after-load 'tex-mode
diff --git a/tex.el b/tex.el
index eeb7237c8d..49723108ea 100644
--- a/tex.el
+++ b/tex.el
@@ -3745,6 +3745,8 @@ other entries will enter `plain-TeX-mode'."
   (memq 'font-latex-verbatim-face face)
 (eq face 'font-latex-verbatim-face))
 
+;;;###autoload (if (eq (symbol-function 'TeX-mode) 'tex-mode)
+;;;###autoload (defalias 'TeX-mode nil))
 (define-derived-mode TeX-mode text-mode "TeX"
   "Base mode for AUCTeX major modes except Texinfo mode.
 

[elpa] main f92ada2006: Revert "Hopefully fix auctex 14 with temporal workaround"

[Tassilo Horn]

branch: main
commit f92ada200644423be1dd194d250c96228a007d41
Author: Tassilo Horn 
Commit: Tassilo Horn 

Revert "Hopefully fix auctex 14 with temporal workaround"

This reverts commit f0622d07555fd35b47397f914c08acf480a41383.
---
 elpa-packages | 10 +++---
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index b6d87042f7..8d4d52c352 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -68,13 +68,9 @@
  ;;  :doc "assess-doc.org")
  (async:url "https://github.com/jwiegley/emacs-async";
   :ignored-files ("COPYING"))
- ( auctex  :url "https://git.savannah.gnu.org/git/auctex.git";
-   ;; AUCTeX is currently sync'd manually and elpa.git isn't quite a mirror :-(
-   :manual-sync t
-   ;; Hopefully fix auctex 14.x installation issues.  The tex-site.el
-   ;; autoloads must come first in the autoloads file but ELPA
-   ;; generates them in alphabetical file name order.
-   :shell-command "(echo \"(require 'tex-site)\"; if [ -f auctex-autoloads.el 
]; then cat auctex-autoloads.el; fi) > _tmp_.el; mv _tmp_.el 
auctex-autoloads.el")
+ (auctex   :url "https://git.savannah.gnu.org/git/auctex.git";
+  ;; AUCTeX is currently sync'd manually and elpa.git isn't quite a mirror :-(
+  :manual-sync t)
  (aumix-mode   :url nil)
  (auto-correct :url nil)
  (auto-header   :url "https://git.sr.ht/~pkal/auto-header";)

[elpa] externals/org ecb5b605d7 1/6: lisp/org-element-ast.el: Fix compile-time inline expansion

[ELPA Syncer]

branch: externals/org
commit ecb5b605d7cb2702faa0ae6aa4f12344e1e23c8b
Author: Stefan Monnier 
Commit: Ihor Radchenko 

lisp/org-element-ast.el: Fix compile-time inline expansion

* lisp/org-element-ast.el (org-element--property-idx): Define inline
expansion within `eval-and-compile' to make sure that the expanded is
available at compile time.

See Emacs bug#68851.
---
 lisp/org-element-ast.el | 18 +-
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/org-element-ast.el b/lisp/org-element-ast.el
index b624fd1c87..6b98709d21 100644
--- a/lisp/org-element-ast.el
+++ b/lisp/org-element-ast.el
@@ -348,15 +348,15 @@ node types.")
  (setq plist (plist-put plist property idx)))
org-element--standard-properties)
   plist)
-"Property list holding standard indexes for 
`org-element--standard-properties'."))
-
-(define-inline org-element--property-idx (property)
-  "Return standard property index or nil."
-  (declare (pure t))
-  (inline-letevals (property)
-(plist-get
- org-element--standard-properties-idxs
- (inline-const-val property
+"Property list holding standard indexes for 
`org-element--standard-properties'.")
+
+  (define-inline org-element--property-idx (property)
+"Return standard property index or nil."
+(declare (pure t))
+(inline-letevals (property)
+  (plist-get
+   org-element--standard-properties-idxs
+   (inline-const-val property)
 
 (define-inline org-element--parray (node)
   "Return standard property array for NODE."

[elpa] externals/org 71fbe92c2e 2/6: mk: Allow parallel execution

[ELPA Syncer]

branch: externals/org
commit 71fbe92c2e320363871af38774163358528cca6f
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

mk: Allow parallel execution

* lisp/Makefile (.NOTPARALLEL): Do not suppress parallel execution.
(all compile compile-dirty):
(compile-single):
(compile-native):
(compile-source):
(compile-slint1):
(compile-slint2): Explicitly declare prerequisites that must be run
sequentially.
* mk/targets.mk (.NOTPARALLEL): Do not suppress parallel execution.
(uncompiled):
(update update2):
(repro): Explicitly declare prerequisites that must be run
sequentially.
---
 lisp/Makefile | 13 ++---
 mk/targets.mk |  7 +++
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/lisp/Makefile b/lisp/Makefile
index c57095f651..c570d9cfa7 100644
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -1,4 +1,3 @@
-.NOTPARALLEL:  # always run this make serially
 .SUFFIXES: # we don't need default suffix rules
 ifeq ($(MAKELEVEL), 0)
   $(error This make needs to be started as a sub-make from the toplevel 
directory.)
@@ -20,7 +19,7 @@ _ORGCM_ := dirall single native source slint1 slint2
install clean cleanauto cleanall cleanelc clean-install
 
 # do not clean here, done in toplevel make
-all compile compile-dirty:: autoloads
+all compile compile-dirty:: | autoloads
 ifeq ($(filter-out $(_ORGCM_),$(ORGCM)),)
$(MAKE) compile-$(ORGCM)
 else
@@ -28,11 +27,11 @@ else
 endif
 
 compile-dirall:dirall
-compile-single: single $(LISPC)
-compile-native: native $(LISPN)
-compile-source:source dirall
-compile-slint1:dirall slint1
-compile-slint2:source dirall slint1
+compile-single: $(LISPC) | single
+compile-native: $(LISPN) | native
+compile-source:| source dirall
+compile-slint1:| dirall slint1
+compile-slint2:| source dirall slint1
 
 # internal
 dirall:
diff --git a/mk/targets.mk b/mk/targets.mk
index 22f1f6e6d1..de849c4fba 100644
--- a/mk/targets.mk
+++ b/mk/targets.mk
@@ -1,5 +1,4 @@
 .EXPORT_ALL_VARIABLES:
-.NOTPARALLEL: .PHONY
 # Additional distribution files
 DISTFILES_extra=  Makefile etc
 
@@ -67,9 +66,9 @@ config config-test config-exe config-all config-version::
@echo ""
 
 oldorg:compile info# what the old makefile did when no target was 
specified
-uncompiled:cleanlisp autoloads # for developing
+uncompiled:| cleanlisp autoloads   # for developing
 refcard:   card
-update update2::   up0 all
+update update2::   | up0 all
 
 single:ORGCM=single
 single:compile
@@ -129,7 +128,7 @@ $(INSTSUB):
 autoloads: lisp
$(MAKE) -C $< $@
 
-repro: cleanall autoloads
+repro: | cleanall autoloads
-@$(REPRO) &
 
 cleandirs:

[elpa] externals/org updated (8e2ed45bb1 -> aa3724dbde)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  8e2ed45bb1 test-org/file-contents: Refactor duplicate test
   new  ecb5b605d7 lisp/org-element-ast.el: Fix compile-time inline 
expansion
   new  71fbe92c2e mk: Allow parallel execution
   new  c76d498f44 mk/default.mk: Use make single by default
   new  27d6f8305c lisp/ob-comint.el: Introduce a fallback prompt regexp
   new  0d77cf8421 org-latex-headline: Prevent footnotes in TOC/footers
   new  aa3724dbde org-capture: Obsolete `org-capture-bookmark' in favor of 
`org-bookmark-names-plist'


Summary of changes:
 doc/org-manual.org  |  4 +--
 etc/ORG-NEWS| 24 +
 lisp/Makefile   | 13 +-
 lisp/ob-clojure.el  |  4 ++-
 lisp/ob-comint.el   | 69 +++--
 lisp/ob-haskell.el  |  6 +++--
 lisp/ob-ruby.el |  4 ++-
 lisp/ob-shell.el|  8 +++---
 lisp/org-capture.el | 10 +++
 lisp/org-compat.el  | 10 +++
 lisp/org-element-ast.el | 18 ++---
 lisp/ox-latex.el| 26 ---
 mk/default.mk   |  2 +-
 mk/targets.mk   |  7 +++--
 14 files changed, 152 insertions(+), 53 deletions(-)

[elpa] externals/org c76d498f44 3/6: mk/default.mk: Use make single by default

[ELPA Syncer]

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

mk/default.mk: Use make single by default

This is compatible with parallel execution and can also help to catch
native compilation errors (native compilation compiles .elc files
separately), like the one discussed in bug#68851.
---
 mk/default.mk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mk/default.mk b/mk/default.mk
index d1d875d749..b75aac345b 100644
--- a/mk/default.mk
+++ b/mk/default.mk
@@ -203,7 +203,7 @@ SUDO= sudo
 INSTALL_INFO = install-info
 
 # target method for 'compile'
-ORGCM  = dirall
+ORGCM  = single
 # ORGCM= dirall #   1x slowdown compared to default compilation method
 # ORGCM= single #   4x one Emacs process per compilation
 # ORGCM= native #   4x one Emacs process per native compilation

[elpa] externals/org 0d77cf8421 5/6: org-latex-headline: Prevent footnotes in TOC/footers

[ELPA Syncer]

branch: externals/org
commit 0d77cf8421474bf2ff81b7de04f6a0e58e2c1bee
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-latex-headline: Prevent footnotes in TOC/footers

* lisp/ox-latex.el (org-latex-headline): When headline contains
footnotes and does not have ALT_TITLE, arrange alternative title that
will appear in TOC and footers to not have any footnotes.

Reported-by: Eric Anderson 
Link: 
https://orgmode.org/list/691643eb-49d0-45c3-ab7f-a1edbd093...@gmail.com
---
 lisp/ox-latex.el | 26 +++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index e3edef3bd5..937cbac2c5 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2300,9 +2300,22 @@ holding contextual information."
;; with \texttt.
(code . (lambda (o _ _) (org-latex--protect-texttt 
(org-element-property :value o
(verbatim . (lambda (o _ _) (org-latex--protect-texttt 
(org-element-property :value o)))
+   ;; Create a temporary export backend that strips footnotes from 
title.
+   ;; Footnotes are not allowed in \section and similar
+   ;; commands that contribute to TOC and footers.
+   ;; See 
https://orgmode.org/list/691643eb-49d0-45c3-ab7f-a1edbd093...@gmail.com
+   ;; https://texfaq.org/FAQ-ftnsect
+   (section-no-footnote-backend
+(org-export-create-backend
+ :parent section-backend
+ :transcoders
+ `((footnote-reference . ignore
   (text
(org-export-data-with-backend
 (org-element-property :title headline) section-backend info))
+   (text-no-footnote
+(org-export-data-with-backend
+(org-element-property :title headline) section-no-footnote-backend 
info))
   (todo
(and (plist-get info :with-todo-keywords)
 (let ((todo (org-element-property :todo-keyword headline)))
@@ -2316,6 +2329,9 @@ holding contextual information."
   ;; The latter is required to remove tags from toc.
   (full-text (funcall (plist-get info :latex-format-headline-function)
   todo todo-type priority text tags info))
+   (full-text-no-footnote
+(funcall (plist-get info :latex-format-headline-function)
+todo todo-type priority text-no-footnote tags info))
   ;; Associate \label to the headline for internal links.
   (headline-label (org-latex--label headline info t t))
   (pre-blanks
@@ -2373,10 +2389,14 @@ holding contextual information."
  (string-match-p "\\" v)
  (format "\\stopcontents[level-%d]" level)
info t)
- (if (and opt-title
-  (not (equal opt-title full-text))
+ (if (and (or (and opt-title (not (equal opt-title full-text)))
+   ;; Heading contains footnotes.  Add optional title
+   ;; version without footnotes to avoid footnotes in
+   ;; TOC/footers.
+   (and (not (equal full-text-no-footnote full-text))
+(setq opt-title full-text-no-footnote)))
   (string-match "\\`\\(.+?\\){" section-fmt))
- (format (replace-match "\\1[%s]" nil nil section-fmt 1)
+  (format (replace-match "\\1[%s]" nil nil section-fmt 1)
  ;; Replace square brackets with parenthesis
  ;; since square brackets are not supported in
  ;; optional arguments.

[elpa] externals/org aa3724dbde 6/6: org-capture: Obsolete `org-capture-bookmark' in favor of `org-bookmark-names-plist'

[ELPA Syncer]

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

org-capture: Obsolete `org-capture-bookmark' in favor of 
`org-bookmark-names-plist'

* lisp/org-capture.el (org-capture-bookmark):
* lisp/org-compat.el (org-capture-bookmark): Mark obsolete.
* lisp/org-capture.el (org-capture-store-last-position): Add comment
about obsoletion.
* doc/org-manual.org (Using capture): Mention
`org-bookmark-names-plist' instead of `org-capture-bookmark'.

Reported-by: Tim Wichmann 
Link: https://orgmode.org/list/87bk8r2ig1.fsf@localhost
---
 doc/org-manual.org  |  4 ++--
 lisp/org-capture.el | 10 +++---
 lisp/org-compat.el  | 10 ++
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 1a025a1396..1aaab27e9f 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -7822,10 +7822,10 @@ with prefix commands:
 
   Visit the last stored capture item in its buffer.
 
-#+vindex: org-capture-bookmark
+#+vindex: org-bookmark-names-plist
 #+vindex: org-capture-last-stored
 You can also jump to the bookmark ~org-capture-last-stored~, which is
-automatically created unless you set ~org-capture-bookmark~ to ~nil~.
+automatically created unless you customize ~org-bookmark-names-plist~.
 
 To insert the capture at point in an Org buffer, call ~org-capture~
 with a {{{kbd(C-0)}}} prefix argument.
diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index c2a157780a..c95ce7c728 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -501,12 +501,6 @@ The capture buffer is current and still narrowed."
   :version "24.1"
   :type 'hook)
 
-(defcustom org-capture-bookmark t
-  "When non-nil, add bookmark pointing at the last stored position when 
capturing."
-  :group 'org-capture
-  :version "24.3"
-  :type 'boolean)
-
 ;;; The property list for keeping information about the capture process
 
 (defvar org-capture-plist nil
@@ -1506,7 +1500,9 @@ Of course, if exact position has been required, just put 
it there."
  (point))
 (with-current-buffer (buffer-base-buffer (current-buffer))
   (org-with-point-at pos
-   (when org-capture-bookmark
+;; FIXME: `org-capture-bookmark' is obsolete.  To be removed
+;; in future Org releases.
+   (when (with-no-warnings org-capture-bookmark)
  (let ((bookmark (plist-get org-bookmark-names-plist :last-capture)))
(when bookmark
   (condition-case err
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 9bd4370a9a..a16d732add 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -776,6 +776,16 @@ See `org-link-parameters' for documentation on the other 
parameters."
   (org-unbracket-string "<" ">" s))
 (make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "9.0")
 
+(defcustom org-capture-bookmark t
+  "When non-nil, add bookmark pointing at the last stored position when 
capturing."
+  :group 'org-capture
+  :version "24.3"
+  :type 'boolean)
+(make-obsolete-variable
+ 'org-capture-bookmark
+ "use `org-bookmark-names-plist' instead."
+ "9.7")
+
 (defcustom org-publish-sitemap-file-entry-format "%t"
   "Format string for site-map file entry.
 You could use brackets to delimit on what part the link will be.

[nongnu] elpa/meow f81fef5893: Fix wdired shim

[ELPA Syncer]

branch: elpa/meow
commit f81fef5893f16908a939ad3332b67828ffc9e7d5
Author: DogLooksGood 
Commit: DogLooksGood 

Fix wdired shim
---
 meow-shims.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/meow-shims.el b/meow-shims.el
index caf4264bf6..c2f277f7a8 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -153,9 +153,9 @@ Argument ENABLE non-nil means turn on."
 
 (defvar wdired-mode-hook)
 
-(declare-function wdired-exit "wgrep")
-(declare-function wdired-finish-edit "wgrep")
-(declare-function wdired-abort-changes "wgrep")
+(declare-function wdired-exit "wdired")
+(declare-function wdired-finish-edit "wdired")
+(declare-function wdired-abort-changes "wdired")
 
 (defun meow--setup-wdired (enable)
   "Setup wdired.
@@ -355,7 +355,7 @@ Argument ENABLE non-nil means turn on."
   (setq delete-active-region meow--backup-var-delete-activate-region)
   (when meow--eldoc-setup (meow--setup-eldoc nil))
   (when meow--rectangle-mark-setup (meow--setup-rectangle-mark nil))
-  (when meow--wdired-setup (meow--setup-wgrep nil))
+  (when meow--wdired-setup (meow--setup-wdired nil))
   (when meow--edebug-setup (meow--setup-edebug nil))
   (when meow--company-setup (meow--setup-company nil))
   (when meow--wgrep-setup (meow--setup-wgrep nil))

[nongnu] elpa/slime 1de4bffbb3 1/2: slime-fuzzy: better restoration of window configuration.

[ELPA Syncer]

branch: elpa/slime
commit 1de4bffbb3292a2403ac65873bdbd59484581192
Author: Stas Boukarev 
Commit: Stas Boukarev 

slime-fuzzy: better restoration of window configuration.

Just use quit-window.
---
 contrib/slime-fuzzy.el | 53 --
 1 file changed, 8 insertions(+), 45 deletions(-)

diff --git a/contrib/slime-fuzzy.el b/contrib/slime-fuzzy.el
index 56abb252ca..5626ae0348 100644
--- a/contrib/slime-fuzzy.el
+++ b/contrib/slime-fuzzy.el
@@ -42,9 +42,6 @@ comint-filename-completion to complete file names"
 
 (defvar slime-fuzzy-target-buffer nil
   "The buffer that is the target of the completion activities.")
-(defvar slime-fuzzy-saved-window-configuration nil
-  "The saved window configuration before the fuzzy completion
-buffer popped up.")
 (defvar slime-fuzzy-start nil
   "The beginning of the completion slot in the target buffer.
 This is a non-advancing marker.")
@@ -160,6 +157,7 @@ keypress be processed in the target buffer."
  [remap slime-indent-and-complete-symbol]
  ,(kbd ""))
'slime-fuzzy-select)
+  (def (kbd "") 'slime-fuzzy-select/mouse)
   (def (kbd "") 'slime-fuzzy-select/mouse)
   (def `(,(kbd "RET")
  ,(kbd ""))
@@ -250,7 +248,7 @@ most recently enclosed macro or function."
 ((memq (char-before) '(?\t ?\ ))
  (slime-echo-arglist))
 
-(cl-defun slime-fuzzy-complete-symbol ()
+(defun slime-fuzzy-complete-symbol ()
   "Fuzzily completes the abbreviation at point into a symbol."
   (interactive)
   (when (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
@@ -284,9 +282,7 @@ most recently enclosed macro or function."
 ;; Incomplete
 (t
  (slime-fuzzy-choices-buffer completion-set interrupted-p
- beg end)
- (slime-minibuffer-respecting-message
-  "Complete but not unique")))
+ beg end)))
 
 
 (defun slime-get-fuzzy-buffer ()
@@ -357,9 +353,6 @@ buffer so that it can possibly be restored when the user is
 done."
   (let ((new-completion-buffer (not slime-fuzzy-target-buffer))
 (connection (slime-connection)))
-(when new-completion-buffer
-  (setq slime-fuzzy-saved-window-configuration
-(current-window-configuration)))
 (slime-fuzzy-enable-target-buffer-completions-mode)
 (setq slime-fuzzy-target-buffer (current-buffer))
 (setq slime-fuzzy-start (move-marker (make-marker) start))
@@ -372,11 +365,6 @@ done."
 (slime-fuzzy-next)
 (setq slime-buffer-connection connection)
 (when new-completion-buffer
-  ;; Hook to nullify window-config restoration if the user changes
-  ;; the window configuration himself.
-  (when (boundp 'window-configuration-change-hook)
-(add-hook 'window-configuration-change-hook
-  'slime-fuzzy-window-configuration-change))
   (add-hook 'kill-buffer-hook 'slime-fuzzy-abort 'append t)
   (set (make-local-variable 'cursor-type) nil)
   (setq buffer-quit-function 'slime-fuzzy-abort)) ; M-Esc Esc
@@ -563,42 +551,17 @@ run."
 (slime-fuzzy-select)
 
 (defun slime-fuzzy-done ()
-  "Cleans up after the completion process.  This removes all hooks,
-and attempts to restore the window configuration.  If this fails,
-it just burys the completions buffer and leaves the window
-configuration alone."
+  "Cleans up after the completion process."
   (when slime-fuzzy-target-buffer
 (set-buffer slime-fuzzy-target-buffer)
 (slime-fuzzy-disable-target-buffer-completions-mode)
-(if (slime-fuzzy-maybe-restore-window-configuration)
-(bury-buffer (slime-get-fuzzy-buffer))
-;; We couldn't restore the windows, so just bury the fuzzy
-;; completions buffer and let something else fill it in.
-(pop-to-buffer (slime-get-fuzzy-buffer))
-(bury-buffer))
+(let ((window (get-buffer-window (slime-get-fuzzy-buffer
+  (when window
+(quit-window nil window)))
 (if (slime-minibuffer-p slime-fuzzy-target-buffer)
 (select-window (minibuffer-window))
 (pop-to-buffer slime-fuzzy-target-buffer))
 (goto-char slime-fuzzy-end)
-(setq slime-fuzzy-target-buffer nil)
-(remove-hook 'window-configuration-change-hook
- 'slime-fuzzy-window-configuration-change)))
-
-(defun slime-fuzzy-maybe-restore-window-configuration ()
-  "Restores the saved window configuration if it has not been
-nullified."
-  (when (boundp 'window-configuration-change-hook)
-(remove-hook 'window-configuration-change-hook
- 'slime-fuzzy-window-configuration-change))
-  (if (not slime-fuzzy-saved-window-configuration)
-  nil
-(set-window-configuration slime-fuzzy-saved-window-configuration)
-(setq slime-fuzzy-saved-window-configuration nil)
-t))
-
-(defun slime-fuzzy-windo

[nongnu] elpa/slime updated (a8e8a6cc8d -> 249520d2a0)

[ELPA Syncer]

elpasync pushed a change to branch elpa/slime.

  from  a8e8a6cc8d Fix buttons in slime-trace-dialog
   new  1de4bffbb3 slime-fuzzy: better restoration of window configuration.
   new  249520d2a0 Signal user-errors instead of errors for user facing 
interactive functions


Summary of changes:
 contrib/slime-fuzzy.el | 53 --
 slime.el   | 26 -
 2 files changed, 21 insertions(+), 58 deletions(-)

[nongnu] elpa/slime 249520d2a0 2/2: Signal user-errors instead of errors for user facing interactive functions

[ELPA Syncer]

branch: elpa/slime
commit 249520d2a0726b542f2264f1ab4b8f096c2c751b
Author: Mariano Montone 
Commit: Stas Boukarev 

Signal user-errors instead of errors for user facing interactive functions

Using `error` for signaling errors cause entry to the Emacs debugger
if it is enabled.
For interactive user facing functions it is better to use `user-error`
instead, that signals an incorrect manipulation by the user, not an
actual problem.

Docs of `user-error`:

"This is like error except that a user error (or "pilot error") comes
from an incorrect manipulation by the user, not from an actual problem.
In contrast with other errors, user errors normally do not cause
entry to the debugger, even when debug-on-error is non-nil."
---
 slime.el | 26 +-
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/slime.el b/slime.el
index 87cbf2225d..cf25b3bbc1 100644
--- a/slime.el
+++ b/slime.el
@@ -4213,7 +4213,7 @@ in Lisp when committed with \\[slime-edit-value-commit]."
 \\(See `slime-edit-value'.)"
   (interactive)
   (if (null slime-edit-form-string)
-  (error "Not editing a value.")
+  (user-error "Not editing a value.")
 (let ((value (buffer-substring-no-properties (point-min) (point-max
   (let ((buffer (current-buffer)))
 (slime-eval-async `(swank:commit-edited-value ,slime-edit-form-string
@@ -4375,21 +4375,21 @@ If PACKAGE is NIL, then search in all packages."
   "Describe the symbol at point."
   (interactive (list (slime-read-symbol-name "Describe symbol: ")))
   (when (not symbol-name)
-(error "No symbol given"))
+(user-error "No symbol given"))
   (slime-eval-describe `(swank:describe-symbol ,symbol-name)))
 
 (defun slime-documentation (symbol-name)
   "Display function- or symbol-documentation for SYMBOL-NAME."
   (interactive (list (slime-read-symbol-name "Documentation for symbol: ")))
   (when (not symbol-name)
-(error "No symbol given"))
+(user-error "No symbol given"))
   (slime-eval-describe
`(swank:documentation-symbol ,symbol-name)))
 
 (defun slime-describe-function (symbol-name)
   (interactive (list (slime-read-symbol-name "Describe symbol's function: ")))
   (when (not symbol-name)
-(error "No symbol given"))
+(user-error "No symbol given"))
   (slime-eval-describe `(swank:describe-function ,symbol-name)))
 
 (defface slime-apropos-symbol
@@ -5560,17 +5560,17 @@ Called on the `point-entered' text-property hook."
 
 (defun sldb-restart-at-point ()
   (or (get-text-property (point) 'restart)
-  (error "No restart at point")))
+  (user-error "No restart at point")))
 
 (defun sldb-frame-number-at-point ()
   (let ((frame (get-text-property (point) 'frame)))
 (cond (frame (car frame))
- (t (error "No frame at point")
+ (t (user-error "No frame at point")
 
 (defun sldb-var-number-at-point ()
   (let ((var (get-text-property (point) 'var)))
 (cond (var var)
- (t (error "No variable at point")
+ (t (user-error "No variable at point")
 
 (defun sldb-previous-frame-number ()
   (save-excursion
@@ -6322,7 +6322,7 @@ was called originally."
 
 (defun slime-connection-at-point ()
   (or (get-text-property (point) 'slime-connection)
-  (error "No connection at point")))
+  (user-error "No connection at point")))
 
 (defun slime-quit-connection-at-point (connection)
   (interactive (list (slime-connection-at-point)))
@@ -6570,7 +6570,7 @@ that value.
 (slime-action-number
  (slime-eval-async `(swank:inspector-call-nth-action ,value)
opener))
-(t (error "No object at point"))
+(t (user-error "No object at point"))
 
 (defun slime-inspector-operate-on-click (event)
   "Move to events' position and operate the part."
@@ -6583,7 +6583,7 @@ that value.
(goto-char point)
(slime-inspector-operate-on-point))
   (t
-   (error "No clickable part here")
+   (user-error "No clickable part here")
 
 (defun slime-inspector-pop ()
   "Reinspect the previous object."
@@ -6649,7 +6649,7 @@ If ARG is negative, move backwards."
(setq previously-wrapped-p nil))
   (if (not previously-wrapped-p) ; cycle detection
   (progn (goto-char minpos) (setq previously-wrapped-p t))
-(error "No inspectable objects")
+(user-error "No inspectable objects")
 ;; Backward.
 (while (< arg 0)
   (cl-destructuring-bind (pos foundp)
@@ -6662,7 +6662,7 @@ If ARG is negative, move backwards."
(setq previously-wrapped-p nil))
   (if (not previously-wrapped-p) ; cycle detection
   (progn (goto-char maxpos) (setq previously-wrapped-p t))
-(error "No inspectable objects")))
+(user-error "No inspectable objects")))
 
 (defun slime-inspector-previous-inspectable-object (arg)
   "Move 

[elpa] externals/cape 7f3dd55f8d: * cape.el (cape-elisp-symbol-wrapper): Support `change-log-mode'.

[ELPA Syncer]

branch: externals/cape
commit 7f3dd55f8d0ea94037e203b75bfc43e65ff14bc2
Author: dr-scsi <59777257+dr-s...@users.noreply.github.com>
Commit: Daniel Mendler 

* cape.el (cape-elisp-symbol-wrapper): Support `change-log-mode'.
---
 cape.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cape.el b/cape.el
index ba7af7f470..6ad4bace8c 100644
--- a/cape.el
+++ b/cape.el
@@ -125,6 +125,7 @@ The buffers are scanned for completion candidates by 
`cape-line'."
 (markdown-mode ?` ?`)
 (rst-mode "``" "``")
 (log-edit-mode "`" "'")
+(change-log-mode "`" "'")
 (message-mode "`" "'")
 (rcirc-mode "`" "'"))
   "Wrapper characters for symbols."

[elpa] externals/org updated (aa3724dbde -> 7319136420)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  aa3724dbde org-capture: Obsolete `org-capture-bookmark' in favor of 
`org-bookmark-names-plist'
   new  df1f9be7f8 fixup! Add testing/lisp/test-duplicates-detector.el
   new  7319136420 org-element-cache-map: Fix when :next-re is provided


Summary of changes:
 lisp/org-element.el  | 29 ++---
 testing/lisp/test-duplicates-detector.el |  9 ++---
 testing/lisp/test-org.el | 13 +++--
 3 files changed, 31 insertions(+), 20 deletions(-)

[elpa] externals/org 7319136420 2/2: org-element-cache-map: Fix when :next-re is provided

[ELPA Syncer]

branch: externals/org
commit 7319136420f58a8dec24c812460608b1f98d66bf
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-cache-map: Fix when :next-re is provided

* lisp/org-element.el (org-element-cache-map): Fix searching next-re
in move-start-to-next-match.  The if confition was erroneously always
true due to the last `cl-incf'.  Do not map over failing entry when
next-re did not match and continue-flag is set.  Do not move point to
next entry before calling FUNC.
* testing/lisp/test-org.el (test-org/map-entries): Add new test case.
---
 lisp/org-element.el  | 29 ++---
 testing/lisp/test-org.el | 13 +++--
 2 files changed, 25 insertions(+), 17 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 6e36aba9a6..e6df9743a3 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7989,10 +7989,10 @@ the cache."
   (if org-element--cache-map-statistics
   (progn
 (setq before-time (float-time))
-(re-search-forward (or 
(car-safe ,re) ,re) nil 'move)
-(cl-incf re-search-time
- (- (float-time)
-before-time)))
+(prog1 (re-search-forward (or 
(car-safe ,re) ,re) nil 'move)
+  (cl-incf re-search-time
+   (- (float-time)
+  before-time
 (re-search-forward (or (car-safe 
,re) ,re) nil 'move)))
   (unless (or (< (point) (or start -1))
   (and data
@@ -8176,22 +8176,21 @@ the cache."
   (move-start-to-next-match
(if last-match next-re fail-re)))
 (when (and (or (not start) (eq (org-element-begin 
data) start))
-   (< (org-element-begin data) to-pos))
+   (< (org-element-begin data) to-pos)
+   (not continue-flag))
   ;; Calculate where next possible element
   ;; starts and update START if needed.
  (setq start (next-element-start))
   (goto-char start)
   ;; Move START further if possible.
-  (when (and next-element-re
- ;; Do not move if we know for
- ;; sure that cache does not
- ;; contain gaps.  Regexp
- ;; searches are not cheap.
- (not (cache-gapless-p)))
-(move-start-to-next-match next-element-re)
-;; Make sure that point is at START
-;; before running FUNC.
-(goto-char start))
+  (save-excursion
+(when (and next-element-re
+   ;; Do not move if we know for
+   ;; sure that cache does not
+   ;; contain gaps.  Regexp
+   ;; searches are not cheap.
+   (not (cache-gapless-p)))
+  (move-start-to-next-match next-element-re)))
   ;; Try FUNC if DATA matches all the
   ;; restrictions.  Calculate new START.
   (when (or (not restrict-elements)
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 337367c0bb..fc38cc6664 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -2855,7 +2855,7 @@ test 
 (should (org-find-olp '("Headline" "headline8") t
 
 (ert-deftest test-org/map-entries ()
-  "Test `org-map-entries' specifications."
+  "Test `org-map-entries' and `org-element-cache-map' specifications."
   (dolist (org-element-use-cache '(t nil))
 ;; Full match.
 (should
@@ -3097,7 +3097,16 @@ Let’s stop here
  (lambda ()
(delete-region (point) (line-beginning-position 2))
(setq org-map-continue-from (point
-(buffer-string))
+(buffer-string
+;; :next-re in `org-element-cache-map'
+

[elpa] externals/org df1f9be7f8 1/2: fixup! Add testing/lisp/test-duplicates-detector.el

[ELPA Syncer]

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

fixup! Add testing/lisp/test-duplicates-detector.el

*
testing/lisp/test-duplicates-detector.el 
(test-duplicates-detector--find-duplicates):
Provide third argument to `mapconcat' for Emacs <29.
---
 testing/lisp/test-duplicates-detector.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/testing/lisp/test-duplicates-detector.el 
b/testing/lisp/test-duplicates-detector.el
index 58da27c07e..349b5297b4 100644
--- a/testing/lisp/test-duplicates-detector.el
+++ b/testing/lisp/test-duplicates-detector.el
@@ -199,15 +199,18 @@ wrap them in `org-test-ignore-duplicate'):
  (lambda (x)
(concat (make-string (* (setq indent (1+ indent)) 2) ? )
x "\n"))
- string-path)
+ string-path
+  "")
 (mapconcat
  (lambda (x)
(format "%s%S: %d times\n"
(make-string (* indent 2) ? )
(car x)
(length (cdr x
- (cdr path)
-   test-duplicates-detector-duplicate-forms)))
+ (cdr path)
+  ""
+   test-duplicates-detector-duplicate-forms
+"")))
 (when duplicate-tests
   (message "Duplicate ERT tests found:\n%s\n"
   (mapconcat (lambda (x) (format "%S" x))

[elpa] externals/muse updated (be347db7f1 -> 8710adde8f)

[Stefan Monnier via]

monnier pushed a change to branch externals/muse.

  from  be347db7f1 Fix up copyright in .el files
   new  8b1cbac200 Move files back
   new  f0bdba2edb use correct newline character in longlines-mode
   new  a1577f6f27 correct filename generation for not-yet-existing links
   new  92922b23d3 make new behaviour configurable
   new  0b082f614c translated QuickStart into Japanese
   new  517cf75cc4 Merge pull request #2 from cocoatomo/master
   new  fdc56d1611 Update lisp/muse-texinfo.el
   new  0bb5d3fa57 Merge pull request #4 from thesoftwarebin/patch-1
   new  a8458264ec Fix comment regexp
   new  faa48d78ed Merge pull request #9 from labdsf/master
   new  eb866abb55 Migrate away from deprecated assoc.el. (#14)
   new  b22338147e convert a muse-init.el example to UTF-8 (#15)
   new  20fc8575d5 Merge remote-tracking branch 'upstream/muse/main' into 
externals/muse
   new  8710adde8f Fix compilation and address some warnings


Summary of changes:
 .gitignore |1 +
 README |  258 +-
 cgi.el => contrib/cgi.el   |   41 +-
 htmlize-hack.el => contrib/htmlize-hack.el |   10 +-
 httpd.el => contrib/httpd.el   |   14 +-
 dir|   18 -
 examples/QuickStart.jp.muse|  466 ++
 examples/johnw/muse-init.el|6 +-
 experimental/muse-split.el |  180 +-
 muse-backlink.el => lisp/muse-backlink.el  |   40 +-
 muse-blosxom.el => lisp/muse-blosxom.el|0
 muse-book.el => lisp/muse-book.el  |0
 muse-colors.el => lisp/muse-colors.el  |0
 muse-context.el => lisp/muse-context.el|0
 muse-docbook.el => lisp/muse-docbook.el|   34 +-
 muse-groff.el => lisp/muse-groff.el|0
 muse-html.el => lisp/muse-html.el  |0
 muse-http.el => lisp/muse-http.el  |9 +-
 muse-ikiwiki.el => lisp/muse-ikiwiki.el|0
 .../muse-import-docbook.el |0
 muse-import-latex.el => lisp/muse-import-latex.el  |0
 muse-import-xml.el => lisp/muse-import-xml.el  |0
 muse-ipc.el => lisp/muse-ipc.el|   12 +-
 muse-journal.el => lisp/muse-journal.el|0
 muse-latex.el => lisp/muse-latex.el|0
 muse-latex2png.el => lisp/muse-latex2png.el|0
 muse-mode.el => lisp/muse-mode.el  |   40 +-
 muse-poem.el => lisp/muse-poem.el  |0
 muse-project.el => lisp/muse-project.el|0
 muse-protocols.el => lisp/muse-protocols.el|0
 muse-publish.el => lisp/muse-publish.el|2 +-
 muse-regexps.el => lisp/muse-regexps.el|0
 muse-texinfo.el => lisp/muse-texinfo.el|2 +-
 muse-wiki.el => lisp/muse-wiki.el  |0
 muse-xml-common.el => lisp/muse-xml-common.el  |0
 muse-xml.el => lisp/muse-xml.el|0
 muse.el => lisp/muse.el|9 +-
 muse.info  | 4656 
 38 files changed, 916 insertions(+), 4882 deletions(-)
 rename cgi.el => contrib/cgi.el (90%)
 rename htmlize-hack.el => contrib/htmlize-hack.el (86%)
 rename httpd.el => contrib/httpd.el (97%)
 delete mode 100644 dir
 create mode 100644 examples/QuickStart.jp.muse
 rename muse-backlink.el => lisp/muse-backlink.el (93%)
 rename muse-blosxom.el => lisp/muse-blosxom.el (100%)
 rename muse-book.el => lisp/muse-book.el (100%)
 rename muse-colors.el => lisp/muse-colors.el (100%)
 rename muse-context.el => lisp/muse-context.el (100%)
 rename muse-docbook.el => lisp/muse-docbook.el (95%)
 rename muse-groff.el => lisp/muse-groff.el (100%)
 rename muse-html.el => lisp/muse-html.el (100%)
 rename muse-http.el => lisp/muse-http.el (97%)
 rename muse-ikiwiki.el => lisp/muse-ikiwiki.el (100%)
 rename muse-import-docbook.el => lisp/muse-import-docbook.el (100%)
 rename muse-import-latex.el => lisp/muse-import-latex.el (100%)
 rename muse-import-xml.el => lisp/muse-import-xml.el (100%)
 rename muse-ipc.el => lisp/muse-ipc.el (95%)
 rename muse-journal.el => lisp/muse-journal.el (100%)
 rename muse-latex.el => lisp/muse-latex.el (100%)
 rename muse-latex2png.el => lisp/muse-latex2png.el (100%)
 rename muse-mode.el => lisp/muse-mode.el (96%)
 rename muse-poem.el => lisp/muse-poem.el (100%)
 rename muse-project.el => lisp/muse-project.el (100%)
 rename muse-protocols.el => lisp/muse-protocols.el (100%)
 rename muse-publish.el => lisp/muse-publish.el (99%)
 rename muse-regexps.el => lisp/muse-regexps.el (100%)
 rename muse-texinfo.el => lisp/muse-texinfo.el (99%)
 rename muse-wiki.el => lisp/muse-wiki.el (100%)
 rename muse-xml-common.el => lisp/muse-xml-c

[elpa] externals/muse 8710adde8f 14/14: Fix compilation and address some warnings

[Stefan Monnier via]

branch: externals/muse
commit 8710adde8fef5fb570e23383900f5cfa1d39060c
Author: Stefan Monnier 
Commit: Stefan Monnier 

Fix compilation and address some warnings

Replace remaining uses of `cl` with `cl-lib`.
Activate `lexical-binding` in the files we touch.
Adjust code accordingly (especially uses of `add-to-list` applied
to local variables).
Sync README with the one from github.
Adjust to the move to `lisp` subdirectory.
---
 .gitignore  |   1 +
 README  | 258 ++--
 contrib/cgi.el  |  41 ---
 contrib/htmlize-hack.el |  10 +-
 contrib/httpd.el|  14 +--
 examples/johnw/muse-init.el |   6 +-
 experimental/muse-split.el  | 158 +--
 lisp/muse-backlink.el   |  40 +++
 lisp/muse-docbook.el|  34 +++---
 lisp/muse-http.el   |   9 +-
 lisp/muse-ipc.el|  12 +--
 lisp/muse-mode.el   |   5 +-
 lisp/muse.el|   9 +-
 13 files changed, 410 insertions(+), 187 deletions(-)

diff --git a/.gitignore b/.gitignore
index 8ff6642769..70c943e954 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,6 +2,7 @@
 
 *~
 /muse-autoloads.el
+/lisp/muse-autoloads.el
 /muse-pkg.el
 /++xgit-log-edit
 *.elc
diff --git a/README b/README
index 5f6e20e9f4..8386278b6b 100644
--- a/README
+++ b/README
@@ -1,7 +1,253 @@
-Muse is a tool for easily authoring and publishing documents.  It
-allows for rapid prototyping of hyperlinked text, which may then be
-exported to multiple output formats, such as HTML, LaTeX, and Texinfo.
+  -*- Text -*-
+This is the README file for Emacs Muse.
 
-The markup rules used by Muse are intended to be very friendly to
-people familiar with Emacs.  See the included manual for more
-information.
+The terms "Emacs Muse", "Emacs-Muse", and "Muse" are used
+interchangeably throughout this document to refer to this software.
+
+Synopsis
+
+
+Emacs Muse is an authoring and publishing environment for Emacs.  It
+simplifies the process of writings documents and publishing them to
+various output formats.
+
+Emacs Muse consists of two main parts: an enhanced text-mode for
+authoring documents and navigating within Muse projects, and a set of
+publishing styles for generating different kinds of output.
+
+Directory contents
+==
+
+The directory structure is as follows.
+
+etc :: Miscellaneous files like the emacs-wiki migration guide, the
+  list of ideas for the future, and a RelaxNG schema for Muse XML.
+
+contrib :: Files that are not a part of Muse proper, but are useful
+  enough to be bundled with Muse.
+
+examples :: Example configuration files for use with Muse, a
+  publishable quickstart guide, and miscellaneous helper stuff.
+
+experimental :: Source code that is not yet considered stable.
+
+lisp :: Muse source code.
+
+scripts :: Scripts that are used when compiling Muse and publishing
+  the QuickStart document; they might prove useful if you want to
+  automate the building of Muse documents.
+
+texi :: The manual (muse.texi) and any supplemental sections.
+
+Getting started
+===
+
+Prerequisites
+-
+
+You need either Emacs (21.1 or greater), XEmacs (21.4 or greater), or
+SXEmacs (warning: Muse has not been tested with SXEmacs).  The current
+maintainer recommends using Emacs.
+
+Compilation
+---
+
+This is an optional step, since Emacs Lisp source code does not
+necessarily have to be byte-compiled.  It may yield a slight speed
+increase, however.
+
+A working copy of Emacs or XEmacs is needed in order to compile the
+Emacs Muse.  By default, the program that is installed with the name
+`emacs' will be used.
+
+If you want to use the `xemacs' binary to perform the compilation, you
+must copy `Makefile.defs.default' to `Makefile.defs' in the top-level
+directory, and then edit `Makefile.defs' as follows.  You can put
+either a full path to an Emacs or XEmacs binary or just the command
+name, as long as it is in the PATH.
+
+EMACS= xemacs
+SITEFLAG = -no-site-file
+# Edit the section as necessary
+install_info = install-info --section "XEmacs 21.4" $(1).info \
+$(INFODIR)/dir || :
+
+Running `make' in the top-level directory should compile the Muse
+source files in the `lisp' directory, and generate an autoloads
+file in `lisp/muse-autoloads.el'.
+
+Installation
+
+
+Muse may be installed into your file hierarchy by doing the following.
+
+Copy `Makefile.defs.default' to `Makefile.defs' in the top-level
+directory, if you haven't done so already.  Then edit the
+`Makefile.defs' file so that ELISPDIR points to where you want the
+source and compiled Muse files to be installed and INFODIR indicates
+where to put the Muse manual.  You may use a combination of DESTDIR
+and PREFIX to further determine where the installed files should be
+placed.  As mentioned earlier, you

[elpa] externals/muse 92922b23d3 03/14: make new behaviour configurable

[Stefan Monnier via]

branch: externals/muse
commit 92922b23d3fa38e275fade1e81f9e94a22277a34
Author: Alex Ott 
Commit: Alex Ott 

make new behaviour configurable
---
 lisp/muse-mode.el | 28 ++--
 1 file changed, 18 insertions(+), 10 deletions(-)

diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el
index 79e528a8b1..da8613baf0 100644
--- a/lisp/muse-mode.el
+++ b/lisp/muse-mode.el
@@ -563,19 +563,27 @@ Do not rename the page originally referred to."
  t t))
 (error "There is no valid link at point")))
 
+(defcustom muse-add-extension-p t
+  "If nil, open file link as-is
+If non-nil, append muse-file-extension to file name if it has none."
+  :type 'boolean
+  :group 'muse)
+
 (defun muse-get-link-filename (link)
   "Generates correct file name for given link, when source file doesn't belong 
to any
 project. Creates directory if link contains directory part, and it doesn't 
exists"
-  (let ((directory (file-name-directory link))
-   (filename (file-name-nondirectory link)))
-(when (and (not (file-name-extension filename))
-  muse-file-extension
-  (not (string= muse-file-extension ""))
-  (not (file-exists-p link)))
-  (setq filename (concat filename "." muse-file-extension)))
-(when (and directory (not (file-exists-p directory)))
-  (make-directory directory t))
-(expand-file-name filename directory)))
+  (if muse-add-extension-p
+  (let ((directory (file-name-directory link))
+   (filename (file-name-nondirectory link)))
+   (when (and (not (file-name-extension filename))
+  muse-file-extension
+  (not (string= muse-file-extension ""))
+  (not (file-exists-p link)))
+ (setq filename (concat filename "." muse-file-extension)))
+   (when (and directory (not (file-exists-p directory)))
+ (make-directory directory t))
+   (expand-file-name filename directory))
+link))
 
 (defun muse-visit-link-default (link &optional other-window)
   "Visit the URL or link named by LINK.

[elpa] externals/muse f0bdba2edb 01/14: use correct newline character in longlines-mode

[Stefan Monnier via]

branch: externals/muse
commit f0bdba2edb92abf02fdecf940ef9b1c965c89699
Author: Alex Ott 
Commit: Alex Ott 

use correct newline character in longlines-mode
---
 lisp/muse-mode.el | 9 +++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el
index 96598433dd..3516d7b09a 100644
--- a/lisp/muse-mode.el
+++ b/lisp/muse-mode.el
@@ -360,6 +360,10 @@ the line if point is on a blank line."
(call-interactively cmd))
   (message "Not inserting anything"
 
+(defun muse-get-new-line-character ()
+  "Returns newline character that is needed, dependent on mode"
+  (if longlines-mode hard-newline "\n"))
+
 ;;;###autoload
 (defun muse-insert-list-item ()
   "Insert a list item at the current point, taking into account
@@ -391,7 +395,7 @@ your current list type and indentation level."
(number-to-string itemno)
nil nil newitem))
 ;; insert the new item
-(insert (concat "\n" newitem
+(insert (concat (muse-get-new-line-character) newitem
 
 (defun muse-alter-list-item-indentation (operation)
   "Alter the indentation of the current list item.
@@ -902,7 +906,8 @@ function, you might want to set this manually.")
 ;; Insert the tag, closing if necessary
 (when tag (insert (concat "<" tag options ">")))
 (when (nth 1 tag-entry)
-  (insert (concat "\n\n\n"))
+  (insert (concat (muse-get-new-line-character) 
(muse-get-new-line-character)
+ "" (muse-get-new-line-character)))
   (forward-line -2
 
 ;;; Muse list edit minor mode

[elpa] externals/muse 20fc8575d5 13/14: Merge remote-tracking branch 'upstream/muse/main' into externals/muse

[Stefan Monnier via]

branch: externals/muse
commit 20fc8575d5bab5a8e67c35046ee26b8b3fe42731
Merge: 8b1cbac200 b22338147e
Author: Stefan Monnier 
Commit: Stefan Monnier 

Merge remote-tracking branch 'upstream/muse/main' into externals/muse
---
 examples/QuickStart.jp.muse | 466 
 experimental/muse-split.el  |  30 ++-
 lisp/muse-mode.el   |  35 +++-
 lisp/muse-publish.el|   2 +-
 lisp/muse-texinfo.el|   2 +-
 5 files changed, 510 insertions(+), 25 deletions(-)

diff --git a/examples/QuickStart.jp.muse b/examples/QuickStart.jp.muse
new file mode 100644
index 00..ad2ffe17be
--- /dev/null
+++ b/examples/QuickStart.jp.muse
@@ -0,0 +1,466 @@
+#author John Wiegley
+#title The Emacs Muse
+
+Emacs Muse は Emacs のための文書編集・出版環境です．
+Emacs Muse を利用すれば，文書を執筆したりいろいろなフォーマットで出版したりといったことが簡単にできます．
+
+Muse は大きく分けて2つの部分から成り立っています：文書を作成したり
+Muse プロジェクト内で編集の行き来をするための拡張テキストモードと，
+様々なフォーマットでの出力を生成するための公開スタイルのセットです．
+
+
+
+* この文書について
+
+この文書では Muse をすぐに使うためのマークアップや機能の例を紹介します．
+
+この文書がどういうふうに出力されるか知りたいときは =make examples=
+と入力してください．そうすれば，Info 形式と HTML 形式，PDF
+形式（処理に必要なフォントとともに LaTeX がインストールされているならば）での出力が得られます．
+
+* まずはじめに
+
+Muse を使うためには， =.emacs= ファイル内で =load-path= という変数に
+Muse 関連のファイルがあるディレクトリを追加します．
+そして文書作成モードをロードし，利用したい出力スタイルを追加します．
+以下に例を示します：
+
+
+(add-to-list 'load-path "")
+
+(require 'muse-mode) ; load authoring mode
+
+(require 'muse-html) ; load publishing styles I use
+(require 'muse-latex)
+(require 'muse-texinfo)
+(require 'muse-docbook)
+
+
+ロードが完了すれば =M-x muse-publish-this-file= というコマンドで文書を出力（出版）できるようになります．
+=M-x muse-mode= と入力してそのバッファを =muse-mode= にすれば，このコマンドは
+=C-c C-t= に割り当てられています．
+
+* Muse プロジェクトの作成
+
+あるディレクトリに存在するすべてのファイルに対して，自動的に特定のスタイルで出力して欲しいと思うことがしばしばあります．
+そういう目的のために，Muse では「プロジェクト」を作成することができます．
+以下に例を示します．
+これは =.emacs= ファイルに記述すべき内容です．
+
+
+(require 'muse-project)
+
+(setq muse-project-alist
+  '(("website"  ; my various writings
+ ("~/Pages" :default "index")
+ (:base "html" :path "~/public_html")
+ (:base "pdf" :path "~/public_html/pdf"
+
+
+この例では「website」という名前のプロジェクトが定義され，このプロジェクトに属するファイルは =~/Pages= 
というディレクトリにあるとされています．
+そしてそのプロジェクトのデフォルトページは =index= になっています．
+このプロジェクトが出力されると，HTML 形式のファイルが =~/public_html=
+ディレクトリに出力され，PDF 形式のファイルが =~/public_html/pdf=
+ディレクトリに出力されます．
+どのプロジェクトのページでも， =[[pagename]]= と書けば他のページへのリンクを作ることができます．
+
+* マークアップの規則
+
+Muse 文書の中では，出力をどのようにフォーマットするかを決めるための特別なマークアップ規則が利用されます．
+例えば段落全体が字下げされていれば，Muse ではそれは引用であると解釈されます．
+
+マークアップ規則はそれほど多くはありません．
+また文書のフォーマットではなく文書の執筆自体に専念できるよう，それらの規則は努めて簡単なものにしています．
+
+** 段落
+
+Muse で段落を分けるときは間に空行を入れます．
+
+例えばこの節の文章は次のように入力されています．
+
+
+Muse で段落を分けるときは間に空行を入れます．
+
+例えばこの節の文章は次のように入力されています．
+
+
+** センタリングと引用
+
+6個以上の空白文字（タブまたは空白）で始まっている行はセンタリングされます．
+
+   センタリングされていますね
+
+  しかし6個未満の空白文字で始まる行は，それが引用であることを示します．
+
+** 見出し
+
+見出しは印刷されると章や節の題名になります -- これは出力スタイルによりますが．
+見出しを書くには新しい段落を1個から3個までのアスタリスクで始め，その次に空白とタイトルを記述します．
+そして次の段落にその節の本文を入力するというわけです．
+
+
+* いちばん大きな見出し
+
+** 2番目のレベル
+
+*** 3番目のレベル
+
+
+** 水平線
+
+4個以上のダッシュは水平線を意味します．
+その前後に空白を入れるのを忘れないでください．
+さもなければそれは前後の段落の一部だと見做されてしまいます．
+
+
+
+上記のセパレータは次のように入力されました：
+
+
+
+
+
+** 文字の強調
+
+文字を強調したいときは，その文字を特別な文字で挟みます：
+
+
+*強調*
+**もっと強調**
+***もっともっと強調***
+_アンダーライン_
+=入力したまま等幅文字で=
+
+
+これら一連の文字は次のように出力されます：
+
+
+*強調*
+**もっと強調**
+***もっともっと強調***
+_アンダーライン_
+=入力したまま等幅文字で=
+
+
+** 脚注
+
+脚注は，かぎ括弧で挟まれた数値 [1] で簡単に表現できます．[1]
+脚注の本文はファイルの末尾に記述します．
+脚注を記述するには =footnote-mode= を利用するととても便利です．
+
+
+ 脚注：
+ [1]  脚注は，本文中に書かれたのと同じ数値をかぎ括弧で囲んで
+  行頭に書くことで定義できます．footnote-mode を利用して
+  C-c ! というコマンドを使えばとても簡単に脚注を入力する
+  ことができます．入力していた元の位置に戻るには C-x C-x
+  を使います．
+
+
+** 詩
+
+詩では空白文字の数や位置も表現の一部です．
+しかしそれなら等幅文字にするだけというわけにはいきません．
+これはメールの引用文のようなマークアップを利用すれば解決します：
+
+
+> A line of Emacs verse;
+>   forgive its being so terse.
+
+
+これは次のように出力されます：
+
+> A line of Emacs verse;
+>   forgive its being so terse.
+
+これとは別に == というタグを利用することもできます：
+
+
+
+A line of Emacs verse;
+  forgive its being so terse.
+
+
+
+** 記述したまま出力する段落
+
+例を示すには == タグを利用します．
+このタグ内では空白の数や位置がそのまま出力されますし，文字は等幅文字で出力され，出力スタイルによって特別な意味があるような文字はエスケープされます．
+
+もうひとつ == というタグもあります．
+このタグで囲まれた部分は完全にそのままの形で出力されます．
+例えば直に手で書いた HTML のブロックを HTML 形式の出力の中に入れたいときに便利でしょう．
+
+** リスト
+
+リストは特別な文字で行を始めることで表現できます．
+箇条書きや番号付き箇条書きの先頭は必ず空白でなければなりません．
+これはそのような文字で始まる文章と区別するためです．
+
+Muse でサポートされているリストは以下の通りです：
+
+
+  - 箇条書きその1
+  - 箇条書きその2
+
+  1. 番号付き箇条書きその1
+  2. 番号付き箇条書きその2
+
+項目1 :: 定義その1
+
+項目2 :: 定義その2
+
+
+これらはそれぞれ次のように出力されます．
+箇条書き：
+
+  - 箇条書きその1
+  - 箇条書きその2
+
+番号付き箇条書き：
+
+  1. 番号付き箇条書きその1
+  2. 番号付き箇条書きその2
+
+定義リスト：
+
+項目1 ::
+  これは定義その1です．
+  しかし2行目もありました；
+  いやいや3行目も作りましょう．
+
+項目2 ::
+  これは定義その2です．
+
+** 表
+
+とても簡単な構造の表だけがサポートされています．
+文法は次の通りです：
+
+
+  2本線で  || 見出し行を分割します
+
+  1本線は   | 本体の行を分割します
+  ここはもう1行の | 本体部分です
+
+  3本線は ||| フッタを分割します
+
+
+これは次のように出力されます：
+
+2本線で  || 見出し行を分割します
+
+1本線は   | 本体の行を分割します
+ここはもう1行の | 本体部分です
+
+3本線は ||| フッタを分割します
+
+
+2本線で  || 見出し行を分割します
+
+1本線は   | 本体の行を分割します
+ここはもう1行の | 本体部分です
+
+3本線

[elpa] externals/muse faa48d78ed 09/14: Merge pull request #9 from labdsf/master

[Stefan Monnier via]

branch: externals/muse
commit faa48d78ed02ec205c195255374e987f7ab14121
Merge: 0bb5d3fa57 a8458264ec
Author: Alex Ott 
Commit: GitHub 

Merge pull request #9 from labdsf/master

Fix comment regexp
---
 lisp/muse-publish.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el
index ec6e176e3f..6a4700d7ba 100644
--- a/lisp/muse-publish.el
+++ b/lisp/muse-publish.el
@@ -108,7 +108,7 @@ If non-nil, publish comments using the markup of the 
current style."
 (1200 "\\`#\\([a-zA-Z-]+\\)\\s-+\\(.+\\)\n+" 0 directive)
 
 ;; commented lines
-(1250 ,(concat "^;\\(?:[" muse-regexp-blank "]+\\(.+\\)\\|$\\|'\\)")
+(1250 ,(concat "^;\\(?:[" muse-regexp-blank "]+\\(.+\\)\\|$\\|\\'\\)")
   0 comment)
 
 ;; markup tags

[elpa] externals/muse eb866abb55 10/14: Migrate away from deprecated assoc.el. (#14)

[Stefan Monnier via]

branch: externals/muse
commit eb866abb557beb58f80f5bd0ae06f95ed6b69d90
Author: Xiyue Deng <47980+manp...@users.noreply.github.com>
Commit: GitHub 

Migrate away from deprecated assoc.el. (#14)

* "assoc.el" has been deprecated since 24.2 and removed since 29.1.
---
 experimental/muse-split.el | 30 +++---
 1 file changed, 11 insertions(+), 19 deletions(-)

diff --git a/experimental/muse-split.el b/experimental/muse-split.el
index 7933358476..5d3b2cd488 100644
--- a/experimental/muse-split.el
+++ b/experimental/muse-split.el
@@ -38,7 +38,6 @@
 ;; muse-publish.
 
 (require 'muse-publish)
-(require 'assoc)
 (eval-when-compile
   (require 'cl))
 
@@ -220,8 +219,7 @@ where position is the last position that should appear in 
output-file"
   (if (not split-function)
   (muse-publish-no-split-function file)
 (funcall split-function file
-(aput 'muse-publish-split-file-split-values
-  file split-alist)
+(push (cons file split-alist) muse-publish-split-file-split-values)
 split-alist))
 
 (defun muse-publish-presplit-directive (&optional name value)
@@ -235,14 +233,13 @@ where position is the last position that should appear in 
output-file"
 
 (defun muse-publish-presplit-anchor()
   "Stores the location and names of anchors"
-  (let ((alist (aget muse-publish-presplit-anchor-location
- muse-publish-presplit-splitting-file)))
+  (let ((alist (cdr (assoc muse-publish-presplit-splitting-file
+   muse-publish-presplit-anchor-location
 
 (add-to-list 'alist
  `(,(match-string 2) . ,(match-beginning 2)))
-(aput 'muse-publish-presplit-anchor-location
-  muse-publish-presplit-splitting-file
-  alist)))
+(push (cons muse-publish-presplit-splitting-file alist)
+  muse-publish-presplit-anchor-location)))
 
 
 ;; ;;(setq muse-publish-split-file-split-values nil)
@@ -288,22 +285,19 @@ the anchor will be output"
  ;; either numbers, or file-locations
  (anchor-alist
   (or
-   (aget muse-publish-presplit-anchor-location
- base-file)
+   (cdr (assoc base-file muse-publish-presplit-anchor-location))
(progn
  (muse-publish-presplit-publish base-file)
- (aget muse-publish-presplit-anchor-location
-   base-file
+ (cdr (assoc base-file muse-publish-presplit-anchor-location)
 
  ;; this should be a list of triples: file, start, stop.
  (split-list
-  (or (aget muse-publish-split-file-split-values
-base-file)
+  (or (cdr (assoc base-file muse-publish-split-file-split-values))
   (muse-publish-split-file base-file)))
  ;; this should be either the position of the anchor in a
  ;; buffer as an int, or a output file location
  (anchor-position-or-location
-  (aget anchor-alist anchor))
+  (cdr (assoc anchor anchor-alist)))
  ;; this should definately be the output file location
  (anchor-output
   (if (stringp anchor-position-or-location)
@@ -322,11 +316,9 @@ the anchor will be output"
 
 ;; ensure that we put the location back into the stored list so
 ;; that we don't have to work it out next time
-(aput
- 'anchor-alist anchor anchor-output)
+(push (cons anchor anchor-output) anchor-alist)
 
-(aput 'muse-publish-presplit-anchor-location
-  base-file anchor-alist)
+(push (cons base-file anchor-alist) muse-publish-presplit-anchor-location)
 
 (file-name-nondirectory anchor-output)))
 

[elpa] externals/muse 0bb5d3fa57 07/14: Merge pull request #4 from thesoftwarebin/patch-1

[Stefan Monnier via]

branch: externals/muse
commit 0bb5d3fa57bfc876bacec732a0c1d8f796942403
Merge: 517cf75cc4 fdc56d1611
Author: Alex Ott 
Commit: Alex Ott 

Merge pull request #4 from thesoftwarebin/patch-1

Update lisp/muse-texinfo.el
---
 lisp/muse-texinfo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/muse-texinfo.el b/lisp/muse-texinfo.el
index 4ad0092ec6..7fa06c0b64 100644
--- a/lisp/muse-texinfo.el
+++ b/lisp/muse-texinfo.el
@@ -67,7 +67,7 @@
 @setfilename (concat (muse-page-name) \".info\")
 @settitle (muse-publishing-directive \"title\")
 
-@documentencoding iso-8859-1
+@documentencoding ISO-8859-1
 
 @iftex
 @finalout

[elpa] externals/muse b22338147e 11/14: convert a muse-init.el example to UTF-8 (#15)

[Stefan Monnier via]

branch: externals/muse
commit b22338147ee0a13c9d6adc10216c4a91aa6cc108
Author: Xiyue Deng 
Commit: GitHub 

convert a muse-init.el example to UTF-8 (#15)

* Original patch from Nicholas D. Steeves:
  
https://salsa.debian.org/emacsen-team/muse-el/-/blob/master/debian/patches/0005-convert-a-muse-init.el-example-to-UTF-8.patch
---
 examples/johnw/muse-init.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/examples/johnw/muse-init.el b/examples/johnw/muse-init.el
index 5ef9eb487c..f5403ca57f 100644
--- a/examples/johnw/muse-init.el
+++ b/examples/johnw/muse-init.el
@@ -412,11 +412,11 @@
 
 ;;(setq
 ;; muse-cite-titles
-;; '(("Bah�'u'll�h"
-;;("Kit�b-i-�q�n"
+;; '(("Bahá'u'lláh"
+;;("Kitáb-i-Íqán"
 ;; "http://bahai-library.com/?file=bahaullah_kitab_iqan.html";
 ;; "http://bahai-library.com/?file=bahaullah_kitab_iqan.html#%d";))
-;;   ("`Abdu'l-Bah�"
+;;   ("`Abdu'l-Bahá"
 ;;("Promulgation of Universal Peace"
 ;; 
"http://bahai-library.com/?file=abdulbaha_promulgation_universal_peace.html";
 ;; "http://www.bahai-library.com/writings/abdulbaha/pup/pup.html#%d";

[elpa] externals/muse fdc56d1611 06/14: Update lisp/muse-texinfo.el

[Stefan Monnier via]

branch: externals/muse
commit fdc56d1611a63878e3d3c46f9eed8e0a6e16
Author: thesoftwarebin 
Commit: thesoftwarebin 

Update lisp/muse-texinfo.el

Texinfo does not understand document encoding iso-8859-1: corrected to 
ISO-8859-1
---
 lisp/muse-texinfo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/muse-texinfo.el b/lisp/muse-texinfo.el
index 4ad0092ec6..7fa06c0b64 100644
--- a/lisp/muse-texinfo.el
+++ b/lisp/muse-texinfo.el
@@ -67,7 +67,7 @@
 @setfilename (concat (muse-page-name) \".info\")
 @settitle (muse-publishing-directive \"title\")
 
-@documentencoding iso-8859-1
+@documentencoding ISO-8859-1
 
 @iftex
 @finalout

[elpa] externals/muse a1577f6f27 02/14: correct filename generation for not-yet-existing links

[Stefan Monnier via]

branch: externals/muse
commit a1577f6f27edb38388352e9567962d3090a1c469
Author: Alex Ott 
Commit: Alex Ott 

correct filename generation for not-yet-existing links

behaviour now is same for both files included into project and not
---
 lisp/muse-mode.el | 18 --
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el
index 3516d7b09a..79e528a8b1 100644
--- a/lisp/muse-mode.el
+++ b/lisp/muse-mode.el
@@ -563,6 +563,20 @@ Do not rename the page originally referred to."
  t t))
 (error "There is no valid link at point")))
 
+(defun muse-get-link-filename (link)
+  "Generates correct file name for given link, when source file doesn't belong 
to any
+project. Creates directory if link contains directory part, and it doesn't 
exists"
+  (let ((directory (file-name-directory link))
+   (filename (file-name-nondirectory link)))
+(when (and (not (file-name-extension filename))
+  muse-file-extension
+  (not (string= muse-file-extension ""))
+  (not (file-exists-p link)))
+  (setq filename (concat filename "." muse-file-extension)))
+(when (and directory (not (file-exists-p directory)))
+  (make-directory directory t))
+(expand-file-name filename directory)))
+
 (defun muse-visit-link-default (link &optional other-window)
   "Visit the URL or link named by LINK.
 If ANCHOR is specified, search for it after opening LINK.
@@ -595,8 +609,8 @@ in `muse-project-alist'."
 (and other-window
  'find-file-other-window))
   (if other-window
-  (find-file-other-window link)
-(find-file link))
+  (find-file-other-window (muse-get-link-filename link))
+(find-file (muse-get-link-filename link)))
   (when anchor
 (let ((pos (point))
   (regexp (concat "^\\W*" (regexp-quote anchor) "\\b"))

[elpa] externals/muse a8458264ec 08/14: Fix comment regexp

[Stefan Monnier via]

branch: externals/muse
commit a8458264ecdba464927ebef034df27d42ed10097
Author: Alexander Krotov 
Commit: Alexander Krotov 

Fix comment regexp

' was not escaped properly so it matched literal "'" instead of buffer end.

As a result, comment like
;'foobar
resulted in publishing "foobar" as if it was not commented.
---
 lisp/muse-publish.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el
index ec6e176e3f..6a4700d7ba 100644
--- a/lisp/muse-publish.el
+++ b/lisp/muse-publish.el
@@ -108,7 +108,7 @@ If non-nil, publish comments using the markup of the 
current style."
 (1200 "\\`#\\([a-zA-Z-]+\\)\\s-+\\(.+\\)\n+" 0 directive)
 
 ;; commented lines
-(1250 ,(concat "^;\\(?:[" muse-regexp-blank "]+\\(.+\\)\\|$\\|'\\)")
+(1250 ,(concat "^;\\(?:[" muse-regexp-blank "]+\\(.+\\)\\|$\\|\\'\\)")
   0 comment)
 
 ;; markup tags

[elpa] main 599efbfae7: elpa-packages (muse): Adjust to new layout

[Stefan Monnier via]

branch: main
commit 599efbfae7023da0ae74a6c6e173a36e2983bd94
Author: Stefan Monnier 
Commit: Stefan Monnier 

elpa-packages (muse): Adjust to new layout
---
 elpa-packages | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 8d4d52c352..dc41277fb8 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -475,7 +475,9 @@
   :ignored-files ("COPYING" "doclicense.texi"))
  (multi-mode   :url nil)
  (multishell   :url "https://github.com/kenmanheimer/EmacsMultishell";)
- (muse :url "https://github.com/alexott/muse";) ;FIXME: Not 
nearly in-sync
+ (muse :url "https://github.com/alexott/muse"; ;FIXME: Not 
nearly in-sync
+  :lisp-dir "lisp"
+  :manual "texi/muse.texi")
  (myers:url nil)
  (nadvice  :url nil)
  (nameless :url "https://github.com/Malabarba/Nameless";)

[elpa] main d66cfc99f3: elpa-packages (muse): Fix typo

[Stefan Monnier via]

branch: main
commit d66cfc99f39fe03612e8c6653caf93280abd26e3
Author: Stefan Monnier 
Commit: Stefan Monnier 

elpa-packages (muse): Fix typo
---
 elpa-packages | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index dc41277fb8..976a889e2d 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -477,7 +477,7 @@
  (multishell   :url "https://github.com/kenmanheimer/EmacsMultishell";)
  (muse :url "https://github.com/alexott/muse"; ;FIXME: Not 
nearly in-sync
   :lisp-dir "lisp"
-  :manual "texi/muse.texi")
+  :doc "texi/muse.texi")
  (myers:url nil)
  (nadvice  :url nil)
  (nameless :url "https://github.com/Malabarba/Nameless";)

[elpa] externals/activities 6ef5924bd1 2/2: Docs: Suggest setting edebug-inhibit-emacs-lisp-mode-bindings

[ELPA Syncer]

branch: externals/activities
commit 6ef5924bd1ec726b07d3d6699ecc35c215e5d2f0
Author: Adam Porter 
Commit: Adam Porter 

Docs: Suggest setting edebug-inhibit-emacs-lisp-mode-bindings
---
 README.org  |  5 +
 activities.info | 32 +++-
 2 files changed, 24 insertions(+), 13 deletions(-)

diff --git a/README.org b/README.org
index 1c07265e92..a468f1127f 100644
--- a/README.org
+++ b/README.org
@@ -52,6 +52,8 @@ This is the recommended configuration, in terms of a 
~use-package~ form to be pl
 :init
 (activities-mode)
 (activities-tabs-mode)
+;; Prevent `edebug' default bindings from interfering.
+(setq edebug-inhibit-emacs-lisp-mode-bindings t)
 
 :bind
 (("C-x C-a C-n" . activities-new)
@@ -138,6 +140,9 @@ When option ~activities-bookmark-store~ is enabled, an 
Emacs bookmark is stored
 
 ** v0.5-pre
 
+*Additions*
++ Suggest setting variable ~edebug-inhibit-emacs-lisp-mode-bindings~ to avoid 
conflicts with suggested keybindings.
+
 *Changes*
 + Command ~activities-kill~ now discards an activity's last state (while 
~activities-suspend~ saves its last state), and closes its frame or tab.
 + Face ~activities-tabs-face~ is renamed to ~activities-tabs~, and now 
inherits from another face by default, which allows it to adjust with the 
loaded theme.  ([[https://github.com/alphapapa/activities.el/issues/24][#24]].  
Thanks to [[https://github.com/karthink][Karthik Chikmagalur]] for suggesting.)
diff --git a/activities.info b/activities.info
index 4d32415370..1a01cb0279 100644
--- a/activities.info
+++ b/activities.info
@@ -143,6 +143,8 @@ to be placed in the user’s init file:
:init
(activities-mode)
(activities-tabs-mode)
+   ;; Prevent `edebug' default bindings from interfering.
+   (setq edebug-inhibit-emacs-lisp-mode-bindings t)
 
:bind
(("C-x C-a C-n" . activities-new)
@@ -393,7 +395,11 @@ File: README.info,  Node: v05-pre,  Next: v04,  Up: 
Changelog
 5.1 v0.5-pre
 
 
-*Changes*
+*Additions*
+   • Suggest setting variable ‘edebug-inhibit-emacs-lisp-mode-bindings’
+ to avoid conflicts with suggested keybindings.
+
+   *Changes*
• Command ‘activities-kill’ now discards an activity’s last state
  (while ‘activities-suspend’ saves its last state), and closes its
  frame or tab.
@@ -572,18 +578,18 @@ Node: Bookmarks10053
 Node: FAQ10405
 Node: Changelog13481
 Node: v05-pre13766
-Node: v0414636
-Node: v03315181
-Node: v03215611
-Node: v03115739
-Node: v0316069
-Node: v0216459
-Node: v01316951
-Node: v01217100
-Node: v01117277
-Node: v0117442
-Node: Development17543
-Node: Copyright assignment17815
+Node: v0414782
+Node: v03315327
+Node: v03215757
+Node: v03115885
+Node: v0316215
+Node: v0216605
+Node: v01317097
+Node: v01217246
+Node: v01117423
+Node: v0117588
+Node: Development17689
+Node: Copyright assignment17961
 
 End Tag Table
 

[elpa] externals/activities updated (f08ca7d7f4 -> 6ef5924bd1)

[ELPA Syncer]

elpasync pushed a change to branch externals/activities.

  from  f08ca7d7f4 Change: (activities-kill) New command
   new  974eb815c5 Change: Rename tabs face to activites-tabs and inherit
   new  6ef5924bd1 Docs: Suggest setting 
edebug-inhibit-emacs-lisp-mode-bindings


Summary of changes:
 README.org |  6 ++
 activities-tabs.el |  9 +
 activities.info| 59 --
 3 files changed, 46 insertions(+), 28 deletions(-)

[elpa] externals/activities 974eb815c5 1/2: Change: Rename tabs face to activites-tabs and inherit

[ELPA Syncer]

branch: externals/activities
commit 974eb815c580088e2f8081b45f441e33709faf75
Author: Adam Porter 
Commit: Adam Porter 

Change: Rename tabs face to activites-tabs and inherit

Closes #24.

Suggested-by: Karthik Chikmagalur 
---
 README.org |  1 +
 activities-tabs.el |  9 +
 activities.info| 51 ---
 3 files changed, 34 insertions(+), 27 deletions(-)

diff --git a/README.org b/README.org
index 965f01d2ed..1c07265e92 100644
--- a/README.org
+++ b/README.org
@@ -140,6 +140,7 @@ When option ~activities-bookmark-store~ is enabled, an 
Emacs bookmark is stored
 
 *Changes*
 + Command ~activities-kill~ now discards an activity's last state (while 
~activities-suspend~ saves its last state), and closes its frame or tab.
++ Face ~activities-tabs-face~ is renamed to ~activities-tabs~, and now 
inherits from another face by default, which allows it to adjust with the 
loaded theme.  ([[https://github.com/alphapapa/activities.el/issues/24][#24]].  
Thanks to [[https://github.com/karthink][Karthik Chikmagalur]] for suggesting.)
 
 *Fixes*
 + Show a helpful error if a bookmark's target file is missing.  
([[https://github.com/alphapapa/activities.el/issues/17][#17]].  Thanks to 
[[https://github.com/jdtsmith][JD Smith]] for reporting.)
diff --git a/activities-tabs.el b/activities-tabs.el
index 9cc8f17ed8..8e02fc62a0 100644
--- a/activities-tabs.el
+++ b/activities-tabs.el
@@ -50,8 +50,8 @@ Each is called with one argument, the activity."
   "Prepended to activity names in tabs."
   :type 'string)
 
-(defface activities-tabs-face
-  `((t :foreground ,(face-foreground 'font-lock-function-name-face nil 
'default)))
+(defface activities-tabs
+  `((t :inherit font-lock-function-name-face))
   "Applied to tab-bar faces for tabs representing activities.")
 
  Mode
@@ -126,11 +126,12 @@ Selects its tab, making one if needed.  Its state is not 
changed."
 
 (defun activities-tabs--tab-bar-tab-face-function (tab)
   "Return a face for TAB.
-If TAB represents an activity, `activities-tabs-face' is added."
+If TAB represents an activity, face `activities-tabs' is added as
+inherited."
   ;; TODO: Propose a tab-bar equivalent of `tab-line-tab-face-functions'.
   (let ((face (funcall activities-tabs-tab-bar-tab-face-function-original 
tab)))
 (if (activities-tabs--tab-parameter 'activity tab)
-`(:inherit (activities-tabs-face ,face))
+`(:inherit (activities-tabs ,face))
   face)))
 
 (defun activities-tabs-activity--set (activity)
diff --git a/activities.info b/activities.info
index c36e06688c..4d32415370 100644
--- a/activities.info
+++ b/activities.info
@@ -397,6 +397,11 @@ File: README.info,  Node: v05-pre,  Next: v04,  Up: 
Changelog
• Command ‘activities-kill’ now discards an activity’s last state
  (while ‘activities-suspend’ saves its last state), and closes its
  frame or tab.
+   • Face ‘activities-tabs-face’ is renamed to ‘activities-tabs’, and
+ now inherits from another face by default, which allows it to
+ adjust with the loaded theme.  (#24
+ (https://github.com/alphapapa/activities.el/issues/24).  Thanks to
+ Karthik Chikmagalur (https://github.com/karthink) for suggesting.)
 
*Fixes*
• Show a helpful error if a bookmark’s target file is missing.  (#17
@@ -556,29 +561,29 @@ Node: Installation2471
 Node: GNU ELPA2622
 Node: Quelpa2987
 Node: Configuration3707
-Node: Usage4545
-Node: Activities4747
-Node: Compatibility5735
-Node: Modes6219
-Node: Workflow6887
-Node: Bindings7840
-Node: Commands8486
-Node: Bookmarks9935
-Node: FAQ10287
-Node: Changelog13363
-Node: v05-pre13648
-Node: v0414186
-Node: v03314731
-Node: v03215161
-Node: v03115289
-Node: v0315619
-Node: v0216009
-Node: v01316501
-Node: v01216650
-Node: v01116827
-Node: v0116992
-Node: Development17093
-Node: Copyright assignment17365
+Node: Usage4663
+Node: Activities4865
+Node: Compatibility5853
+Node: Modes6337
+Node: Workflow7005
+Node: Bindings7958
+Node: Commands8604
+Node: Bookmarks10053
+Node: FAQ10405
+Node: Changelog13481
+Node: v05-pre13766
+Node: v0414636
+Node: v03315181
+Node: v03215611
+Node: v03115739
+Node: v0316069
+Node: v0216459
+Node: v01316951
+Node: v01217100
+Node: v01117277
+Node: v0117442
+Node: Development17543
+Node: Copyright assignment17815
 
 End Tag Table
 

[elpa] externals/consult 8cb56f8d66: consult-completion-in-region: Simplify, use consult--read

[ELPA Syncer]

branch: externals/consult
commit 8cb56f8d6637e55340271274a20dfc163d77fff5
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-completion-in-region: Simplify, use consult--read
---
 consult.el | 35 ---
 1 file changed, 12 insertions(+), 23 deletions(-)

diff --git a/consult.el b/consult.el
index 9f8cffa31c..e735828b7d 100644
--- a/consult.el
+++ b/consult.el
@@ -3029,11 +3029,6 @@ These configuration options are supported:
  (cs (or (plist-get config :completion-styles) completion-styles))
  (completion-styles cs)
  ((default-value 'completion-styles) cs)
- (prompt (or (plist-get config :prompt) "Completion: "))
- (require-match (plist-get config :require-match))
- (preview-key (if (plist-member config :preview-key)
-  (plist-get config :preview-key)
-consult-preview-key))
  (initial (buffer-substring-no-properties start end))
  (metadata (completion-metadata initial collection predicate))
  ;; TODO: `minibuffer-completing-file-name' is mostly deprecated,
@@ -3066,29 +3061,23 @@ These configuration options are supported:
  (and completion-cycling completion-all-sorted-completions)))
 (completion--in-region start end collection predicate)
   (let* ((limit (car (completion-boundaries initial collection predicate 
"")))
+ (this-command #'consult-completion-in-region)
  (completion
   (cond
((atom all) nil)
((and (consp all) (atom (cdr all)))
 (concat (substring initial 0 limit) (car all)))
-   (t (consult--with-preview
-  preview-key
-  ;; preview state
-  (consult--insertion-preview start end)
-  ;; transformation function
-  (lambda (_narrow _inp cand) cand)
-  ;; candidate function
-  (apply-partially #'run-hook-with-args-until-success
-   'consult--completion-candidate-hook)
-  nil
-(consult--local-let ((enable-recursive-minibuffers t))
-  ;; Evaluate completion table in the original buffer.
-  ;; This is a reasonable thing to do and required by
-  ;; some completion tables in particular by lsp-mode.
-  ;; See gh:minad/vertico#61.
-  (completing-read prompt
-   (consult--completion-table-in-buffer 
collection)
-   predicate require-match initial)))
+   (t
+(consult--local-let ((enable-recursive-minibuffers t))
+  ;; Evaluate completion table in the original buffer.
+  ;; This is a reasonable thing to do and required by
+  ;; some completion tables in particular by lsp-mode.
+  ;; See gh:minad/vertico#61.
+  (consult--read (consult--completion-table-in-buffer 
collection)
+ :prompt "Completion: "
+ :state (consult--insertion-preview start end)
+ :predicate predicate
+ :initial initial))
 (if completion
 (progn
   ;; bug#55205: completion--replace removes properties!

[nongnu] elpa/adoc-mode 524e3aec6c: Fixes #49. Flyspell also ignores Block-IDs (#51)

[ELPA Syncer]

branch: elpa/adoc-mode
commit 524e3aec6c4afbb41cff7515119a3f2a3e3dc942
Author: TobiasZawada 
Commit: GitHub 

Fixes #49. Flyspell also ignores Block-IDs (#51)

Co-authored-by: Tobias Zawada 
---
 adoc-mode.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/adoc-mode.el b/adoc-mode.el
index 1282dddaaa..613301ba8a 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -2400,11 +2400,11 @@ Use this function as matching function MATCHER in 
`font-lock-keywords'."
;; admonition block
(list "^\\(\\[\\(?:CAUTION\\|WARNING\\|IMPORTANT\\|TIP\\|NOTE\\)\\]\\)[ 
\t]*$"
  '(1 '(face adoc-complex-replacement-face adoc-reserved block-del)))
-   ;; block id
+   ;; block id [[BLOCK-ID,SECONDARY-TEXT]]
(list `(lambda (end) (adoc-kwf-std end ,(adoc-re-anchor 'block-id) '(0)))
  '(0 '(face adoc-meta-face adoc-reserved block-del))
- '(1 adoc-anchor-face t)
- '(2 adoc-secondary-text-face t t))
+ '(1 '(face adoc-anchor-face adoc-flyspell-ignore t) t) ;; BLOCK-ID
+ '(2 adoc-secondary-text-face t t)) ;; SECONDARY-TEXT
 
;; --- general attribute list block element
;; ^\[(?P.*)\]$

[nongnu] elpa/go-mode 6f4ff9ef87: Fix obsoleted function warnings for newer Emacs

[ELPA Syncer]

branch: elpa/go-mode
commit 6f4ff9ef874d151ed8d297a80f1bf27db5d9dbf0
Author: Shohei YOSHIDA 
Commit: Dominik Honnef 

Fix obsoleted function warnings for newer Emacs
---
 go-guru.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/go-guru.el b/go-guru.el
index 42bb6d54a9..c538680df2 100644
--- a/go-guru.el
+++ b/go-guru.el
@@ -318,7 +318,7 @@ If BUFFER, return the number of characters in that buffer 
instead."
 
 (defun go-guru--goto-byte-column (offset)
   "Go to the OFFSETth byte in the current line."
-  (goto-char (byte-to-position (+ (position-bytes (point-at-bol)) (1- 
offset)
+  (goto-char (byte-to-position (+ (position-bytes (line-beginning-position)) 
(1- offset)
 
 (defun go-guru--goto-pos (posn other-window)
   "Find the file containing the position POSN (of the form `file:line:col')

[elpa] externals/beframe e911ab388d: Bump version to trigger GNU ELPA package rebuild

[ELPA Syncer]

branch: externals/beframe
commit e911ab388d01aba00efc0ed7148f4e955c46f866
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version to trigger GNU ELPA package rebuild
---
 beframe.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/beframe.el b/beframe.el
index b6fce9fc48..28b7a83331 100644
--- a/beframe.el
+++ b/beframe.el
@@ -5,7 +5,7 @@
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou 
 ;; URL: https://github.com/protesilaos/beframe
-;; Version: 1.0.0
+;; Version: 1.0.1
 ;; Package-Requires: ((emacs "28.1"))
 
 ;; This file is NOT part of GNU Emacs.

[elpa] externals/ef-themes aa206b9b6c 1/2: Make org-document-info-keyword inherit ef-themes-fixed-pitch

[ELPA Syncer]

branch: externals/ef-themes
commit aa206b9b6ce7a2ae88cc35ac795017538b206621
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make org-document-info-keyword inherit ef-themes-fixed-pitch

This means that the text is rendered in a monospaced font if the user
option 'ef-themes-mixed-fonts' is set to a non-nil value.
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index efb92dd649..60b4961a76 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1951,7 +1951,7 @@ text should not be underlined as well) yet still blend 
in."
 `(org-date-selected ((,c :foreground ,date-common :inverse-video t)))
 `(org-dispatcher-highlight ((,c :inherit warning :background ,bg-warning)))
 `(org-document-info ((,c :foreground ,prose-metadata-value)))
-`(org-document-info-keyword ((,c :foreground ,prose-metadata)))
+`(org-document-info-keyword ((,c :inherit ef-themes-fixed-pitch 
:foreground ,prose-metadata)))
 `(org-document-title ((,c :inherit ef-themes-heading-0)))
 `(org-done ((,c :foreground ,prose-done)))
 `(org-drawer ((,c :inherit ef-themes-fixed-pitch :foreground 
,prose-metadata)))

[elpa] externals/ef-themes 1c4fc04400 2/2: Bump version to trigger GNU ELPA package rebuild

[ELPA Syncer]

branch: externals/ef-themes
commit 1c4fc0440064a79bc788b21c70b399d031656a00
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version to trigger GNU ELPA package rebuild
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 60b4961a76..78ebfed6bb 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/ef-themes
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/ef-themes
-;; Version: 1.5.0
+;; Version: 1.5.1
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: faces, theme, accessibility
 

[elpa] externals/ef-themes updated (5c9f11f616 -> 1c4fc04400)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  5c9f11f616 Add support for the 'completions-highlight' face (Emacs 
29)
   new  aa206b9b6c Make org-document-info-keyword inherit 
ef-themes-fixed-pitch
   new  1c4fc04400 Bump version to trigger GNU ELPA package rebuild


Summary of changes:
 ef-themes.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/evil-args a8151556f6: Enable lexical binding

[ELPA Syncer]

branch: elpa/evil-args
commit a8151556f63c9d45d0c44c8a7ef9e5a542f3cdc7
Author: StrawberryTea 
Commit: Connor Smith 

Enable lexical binding
---
 evil-args.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/evil-args.el b/evil-args.el
index dbe682e429..091988067d 100644
--- a/evil-args.el
+++ b/evil-args.el
@@ -1,4 +1,4 @@
-;;; evil-args.el --- Motions and text objects for delimited arguments in Evil.
+;;; evil-args.el --- Motions and text objects for delimited arguments in Evil. 
-*- lexical-binding: t; -*-
 
 ;; Copyright (c) 2014 Connor Smith