[nongnu] elpa/cider f56fb019fa: Update cli-suitable link

[ELPA Syncer]

branch: elpa/cider
commit f56fb019fae6332ec5ad3959f51435b595c41ea2
Author: sreekanth bandi 
Commit: Bozhidar Batsov 

Update cli-suitable link

Replace current link with https://github.com/clojure-emacs/clj-suitable
---
 doc/modules/ROOT/pages/usage/code_completion.adoc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/doc/modules/ROOT/pages/usage/code_completion.adoc 
b/doc/modules/ROOT/pages/usage/code_completion.adoc
index ef76139e0e..fb684f5d21 100644
--- a/doc/modules/ROOT/pages/usage/code_completion.adoc
+++ b/doc/modules/ROOT/pages/usage/code_completion.adoc
@@ -6,7 +6,8 @@ CIDER provides intelligent code completion for both source 
buffers (powered by
 
 NOTE: Internally CIDER leverages
 https://github.com/alexander-yakushev/compliment[compliment] for Clojure and
-https://github.com/rkms/clj-suitable[clj-suitable] for ClojureScript.
+https://github.com/clojure-emacs/clj-suitable[clj-suitable] for ClojureScript.
+
 Improvements to the two libraries automatically translate to improvements in 
CIDER.
 
 == Standard completion

[elpa] externals/gnat-compiler a60dfd29b2: File header fixes

[Stephen Leake]

branch: externals/gnat-compiler
commit a60dfd29b2970282e2b7d2f6dd08520d56d31586
Author: Stephen Leake 
Commit: Stephen Leake 

File header fixes

* gnat-alire.el: Delete Version, package-requires headers; this is not
the main package file.

* gnat-compiler.el: Match ELPA style requirements.
---
 gnat-alire.el| 2 --
 gnat-compiler.el | 5 +++--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnat-alire.el b/gnat-alire.el
index af37a5f52a..5768d97615 100644
--- a/gnat-alire.el
+++ b/gnat-alire.el
@@ -4,8 +4,6 @@
 ;;
 ;; Author: Stephen Leake 
 ;; Maintainer: Stephen Leake 
-;; Version: 1.0
-;; package-requires: ((emacs "25.3") (wisi "4.0"))
 ;;
 ;; This file is part of GNU Emacs.
 ;;
diff --git a/gnat-compiler.el b/gnat-compiler.el
index a086a369be..266b8475f1 100644
--- a/gnat-compiler.el
+++ b/gnat-compiler.el
@@ -1,4 +1,4 @@
-;; gnat-compiler.el --- Support for running GNAT tools  -*- lexical-binding:t 
-*-
+;;; gnat-compiler.el --- Support for running GNAT tools  -*- lexical-binding:t 
-*-
 ;;
 ;; GNAT is provided by AdaCore; see https://www.adacore.com/community
 ;;
@@ -1460,4 +1460,5 @@ server executable not found; otherwise signal user-error."
 (eval-after-load 'ada-mode '(add-hook 'ada-mode-hook #'gnatprep-setup))
 
 (provide 'gnat-compiler)
-;; end of file
+
+;;; gnat-compiler.el ends here

[elpa] externals/transient ad953cc3c5: transient--insert-group: Add fallback for failed alignment calculation

[Jonas Bernoulli]

branch: externals/transient
commit ad953cc3c5b8a066d3da11a8527c035744f1385f
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

transient--insert-group: Add fallback for failed alignment calculation

Closes #204.
---
 lisp/transient.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 2611b13fe4..1fbb1afc61 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3376,7 +3376,7 @@ have a history of their own.")
 (insert ?\n)
   (insert (propertize " " 'display
   `(space :align-to (,(nth (1+ c) cc)))
-(insert (make-string (- (nth c cc) (current-column)) ?\s))
+(insert (make-string (max 1 (- (nth c cc) (current-column))) ?\s))
 (when-let ((cell (nth r (nth c columns
   (insert cell))
 (when (= c (1- cs))

[elpa] elpa-admin 38b62c5795: * elpa-admin.el (elpaa--string-width): Handle ImageMagick >=7.1.0

[Stephen Leake]

branch: elpa-admin
commit 38b62c5795cbd807bcad37fd22fb1d1acd79c554
Author: Stephen Leake 
Commit: Stephen Leake 

* elpa-admin.el (elpaa--string-width): Handle ImageMagick >=7.1.0
---
 elpa-admin.el | 35 +++
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 496b6c8ba0..f4f8809b1d 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -884,22 +884,25 @@ SPECS is the list of package specifications."
 (defun elpaa--string-width (str)
   "Determine string width in pixels of STR."
   (with-temp-buffer
-;; Current (2021) ImageMagick recommends using the "magick"
-;; driver, rather than "convert" directly, but Debian doesn't
-;; provide it yet.
-(elpaa--call (current-buffer)
- "convert" "-debug" "annotate" "xc:" "-font" "DejaVu-Sans"
- "-pointsize" "110" "-annotate" "0" str "null:")
-(goto-char (point-min))
-(if (not (re-search-forward "Metrics:.*?width: \\([0-9]+\\)"))
-(error "Could not determine string width")
-  (let ((width (string-to-number (match-string 1
-;; This test aims to catch the case where the font is missing,
-;; but it seems it only works in some cases :-(
-(if (and (> (string-width str) 0) (not (> width 0)))
-(progn (message "convert:\n%s" (buffer-string))
-   (error "Could not determine string width"))
-  width)
+;; ImageMagick 7.1.0 or later requires using the "magick" driver,
+;; rather than "convert" directly, but Debian doesn't provide it
+;; yet (2021).
+(let ((args
+   (append (list (current-buffer))
+   (if (executable-find "magick") '("magick" "convert") 
'("convert"))
+   (list "-debug" "annotate" "xc:" "-font" "DejaVu-Sans"
+ "-pointsize" "110" "-annotate" "0" str "null:"
+  (apply #'elpaa--call args)
+  (goto-char (point-min))
+  (if (not (re-search-forward "Metrics:.*?width: \\([0-9]+\\)"))
+  (error "Could not determine string width")
+(let ((width (string-to-number (match-string 1
+  ;; This test aims to catch the case where the font is missing,
+  ;; but it seems it only works in some cases :-(
+  (if (and (> (string-width str) 0) (not (> width 0)))
+  (progn (message "convert:\n%s" (buffer-string))
+ (error "Could not determine string width"))
+width))
 
 (defun elpaa--make-badge (file left right)
   "Make badge svg FILE with LEFT and RIGHT string."

[elpa] externals/denote 39a20a7355 1/4: feat: Add denote-directory-exclusions

[ELPA Syncer]

branch: externals/denote
commit 39a20a73555df2b045586cf1f183f4a3898ea727
Author: Graham Marlow 
Commit: Graham Marlow 

feat: Add denote-directory-exclusions

Add a regular expression to exclude certain directories from
denote-file-prompt. Useful for excluding temporary files when
using a cloud-sync service.
---
 denote.el | 20 +++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index b96cfb18b8..b335c8fa61 100644
--- a/denote.el
+++ b/denote.el
@@ -379,6 +379,14 @@ current note."
 
 (make-obsolete 'denote-link-fontify-backlinks 'denote-backlinks-show-context 
"1.2.0")
 
+(defcustom denote-directory-exclusions nil
+  "Regular expression that excludes matching directories from 
denote-file-prompt.
+
+When nil (the default value) all directory names are allowed."
+  :group 'denote
+  :package-version '(denote . "1.2.0")
+  :type 'string)
+
  Main variables
 
 ;; For character classes, evaluate: (info "(elisp) Char Classes")
@@ -548,6 +556,16 @@ and use one of the extensions implied by 
`denote-file-type'."
   'denote-file-has-identifier-p
   "1.0.0")
 
+(defun denote-file-directory-p (file)
+  "Return non-nil if FILE is a directory.
+You can exclude certain directories by customizing the
+`denote-directory-exclusions' regular expresion."
+  (and
+   (file-directory-p file)
+   (if denote-directory-exclusions
+   (not (string-match-p denote-directory-exclusions file))
+ t)))
+
 (defun denote-file-has-supported-extension-p (file)
   "Return non-nil if FILE has supported extension.
 Also account for the possibility of an added .gpg suffix.
@@ -684,7 +702,7 @@ With optional INITIAL-TEXT, use it to prepopulate the 
minibuffer."
   (read-file-name "Select note: " (denote-directory) nil nil initial-text
   (lambda (f)
 (or (denote-file-has-identifier-p f)
-(file-directory-p f)
+(denote-file-directory-p f)
 
 (define-obsolete-function-alias
   'denote--retrieve-read-file-prompt

[elpa] externals/denote updated (e89833d453 -> e9517323fb)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  e89833d453 Make denote-keywords-add always sort keywords
   new  39a20a7355 feat: Add denote-directory-exclusions
   new  f9cfde272e Merge pull request #112 from 
mgmarlow/feat/directory-name-exclusions
   new  95cd9f88bf Make stylistic tweaks to 39a20a7
   new  e9517323fb Update Acknowledgements for commit 39a20a7


Summary of changes:
 README.org |  8 
 denote.el  | 20 +++-
 2 files changed, 23 insertions(+), 5 deletions(-)

[elpa] externals/denote e9517323fb 4/4: Update Acknowledgements for commit 39a20a7

[ELPA Syncer]

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

Update Acknowledgements for commit 39a20a7

Thanks to Graham Marlow for the contribution which was done in pull
request 112 on the GitHub mirror:
.

The contribution, with the tweaks made in 95cd9f8, is within the
eligible line count: it does not require copyright assignment to the
Free Software Foundation.  Though Graham would need to do the
paperwork for any future patch.
---
 README.org | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

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

[elpa] externals/denote f9cfde272e 2/4: Merge pull request #112 from mgmarlow/feat/directory-name-exclusions

[ELPA Syncer]

branch: externals/denote
commit f9cfde272e8c38a27391f5d2c0c7a25806d67b45
Merge: e89833d453 39a20a7355
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #112 from mgmarlow/feat/directory-name-exclusions

feat: Add denote-directory-exclusions
---
 denote.el | 20 +++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index b96cfb18b8..b335c8fa61 100644
--- a/denote.el
+++ b/denote.el
@@ -379,6 +379,14 @@ current note."
 
 (make-obsolete 'denote-link-fontify-backlinks 'denote-backlinks-show-context 
"1.2.0")
 
+(defcustom denote-directory-exclusions nil
+  "Regular expression that excludes matching directories from 
denote-file-prompt.
+
+When nil (the default value) all directory names are allowed."
+  :group 'denote
+  :package-version '(denote . "1.2.0")
+  :type 'string)
+
  Main variables
 
 ;; For character classes, evaluate: (info "(elisp) Char Classes")
@@ -548,6 +556,16 @@ and use one of the extensions implied by 
`denote-file-type'."
   'denote-file-has-identifier-p
   "1.0.0")
 
+(defun denote-file-directory-p (file)
+  "Return non-nil if FILE is a directory.
+You can exclude certain directories by customizing the
+`denote-directory-exclusions' regular expresion."
+  (and
+   (file-directory-p file)
+   (if denote-directory-exclusions
+   (not (string-match-p denote-directory-exclusions file))
+ t)))
+
 (defun denote-file-has-supported-extension-p (file)
   "Return non-nil if FILE has supported extension.
 Also account for the possibility of an added .gpg suffix.
@@ -684,7 +702,7 @@ With optional INITIAL-TEXT, use it to prepopulate the 
minibuffer."
   (read-file-name "Select note: " (denote-directory) nil nil initial-text
   (lambda (f)
 (or (denote-file-has-identifier-p f)
-(file-directory-p f)
+(denote-file-directory-p f)
 
 (define-obsolete-function-alias
   'denote--retrieve-read-file-prompt

[elpa] externals/denote 95cd9f88bf 3/4: Make stylistic tweaks to 39a20a7

[ELPA Syncer]

branch: externals/denote
commit 95cd9f88bf812a21f2f6d3c1974dec6f2078d3fb
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make stylistic tweaks to 39a20a7

This is to make it look consistent consistent with the rest of the
code.
---
 denote.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/denote.el b/denote.el
index b335c8fa61..d73fb6f2a7 100644
--- a/denote.el
+++ b/denote.el
@@ -379,10 +379,12 @@ current note."
 
 (make-obsolete 'denote-link-fontify-backlinks 'denote-backlinks-show-context 
"1.2.0")
 
-(defcustom denote-directory-exclusions nil
-  "Regular expression that excludes matching directories from 
denote-file-prompt.
+(defcustom denote-excluded-directories-regexp nil
+  "Regular expression of directories to exclude from file prompts.
+When nil (the default value) all directory names are shown.
 
-When nil (the default value) all directory names are allowed."
+File prompts are used by several commands, such as `denote-link'.
+The underlying function is `denote-file-prompt'."
   :group 'denote
   :package-version '(denote . "1.2.0")
   :type 'string)
@@ -558,13 +560,11 @@ and use one of the extensions implied by 
`denote-file-type'."
 
 (defun denote-file-directory-p (file)
   "Return non-nil if FILE is a directory.
-You can exclude certain directories by customizing the
-`denote-directory-exclusions' regular expresion."
-  (and
-   (file-directory-p file)
-   (if denote-directory-exclusions
-   (not (string-match-p denote-directory-exclusions file))
- t)))
+Omit FILE if it matches the value of user option
+`denote-excluded-directories-regexp'."
+  (and (file-directory-p file)
+   denote-excluded-directories-regexp
+   (not (string-match-p denote-excluded-directories-regexp file
 
 (defun denote-file-has-supported-extension-p (file)
   "Return non-nil if FILE has supported extension.

[elpa] externals/phps-mode updated (33931348fb -> 5fd766964d)

[Christian Johansson]

cjohansson pushed a change to branch externals/phps-mode.

  from  33931348fb Updated version to 0.4.29
   new  3d28ce4230 Fixed lexer tokens for heredoc and nowdoc for parser
   new  5fd766964d Updated version to 0.4.30


Summary of changes:
 phps-mode-lexer.el   | 36 +---
 phps-mode.el |  4 ++--
 test/phps-mode-test-lexer.el | 34 +-
 3 files changed, 36 insertions(+), 38 deletions(-)

[elpa] externals/phps-mode 5fd766964d 2/2: Updated version to 0.4.30

[Christian Johansson]

branch: externals/phps-mode
commit 5fd766964d3a7c777cb95b47c46ba0e20af207df
Author: Christian Johansson 
Commit: Christian Johansson 

Updated version to 0.4.30
---
 phps-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/phps-mode.el b/phps-mode.el
index b4ced0961c..929f6b056e 100644
--- a/phps-mode.el
+++ b/phps-mode.el
@@ -5,8 +5,8 @@
 ;; Author: Christian Johansson 
 ;; Maintainer: Christian Johansson 
 ;; Created: 3 Mar 2018
-;; Modified: 3 Nov 2022
-;; Version: 0.4.29
+;; Modified: 4 Nov 2022
+;; Version: 0.4.30
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-phps-mode
 

[elpa] externals/phps-mode 3d28ce4230 1/2: Fixed lexer tokens for heredoc and nowdoc for parser

[Christian Johansson]

branch: externals/phps-mode
commit 3d28ce4230fd351c1dba29b12557992b4acae38d
Author: Christian Johansson 
Commit: Christian Johansson 

Fixed lexer tokens for heredoc and nowdoc for parser
---
 phps-mode-lexer.el   | 36 +---
 test/phps-mode-test-lexer.el | 34 +-
 2 files changed, 34 insertions(+), 36 deletions(-)

diff --git a/phps-mode-lexer.el b/phps-mode-lexer.el
index 5b4a987d3e..814baab96b 100644
--- a/phps-mode-lexer.el
+++ b/phps-mode-lexer.el
@@ -124,10 +124,10 @@
 (defvar phps-mode-lexer--lambdas-by-state #s(hash-table size 65 test equal 
rehash-size 1.5 rehash-threshold 0.8125 data (ST_IN_SCRIPTING (((lambda nil 
(looking-at "exit")) (lambda nil (phps-mode-lexer--return-token-with-indent 
'T_EXIT))) ((lambda nil (looking-at "die")) (lambda nil 
(phps-mode-lexer--return-token-with-indent 'T_EXIT))) ((lambda nil (looking-at 
"fn")) (lambda nil (phps-mode-lexer--return-token-with-indent 'T_FN))) ((lambda 
nil (looking-at "function")) (lambda nil (phps-mod [...]
 
]*("))) (lambda nil (phps-mode-lexer--yyless (length "readonly")) 
(phps-mode-lexer--return-token-with-str 'T_STRING 0))) ((lambda nil (looking-at 
"unset")) (lambda nil (phps-mode-lexer--return-token-with-indent 'T_UNSET))) 
((lambda nil (looking-at "=>")) (lambda nil (phps-mode-lexer--return-token 
'T_DOUBLE_ARROW))) ((lambda nil (looking-at "list")) (lambda nil 
(phps-mode-lexer--return-token-with-indent 'T_LIST))) ((lambda nil (looking-at 
"array")) (lambda nil (phps-mode-lexer--return-tok [...]
 ]*" "\\(\\$\\|\\.\\.\\.\\)"))) (lambda nil (phps-mode-lexer--yyless 1) 
(phps-mode-lexer--return-token 'T_AMPERSAND_FOLLOWED_BY_VAR_OR_VARARG 
(match-beginning 0) (- (match-end 0) 1 ((lambda nil (looking-at "&")) 
(lambda nil (phps-mode-lexer--return-token 
'T_AMPERSAND_NOT_FOLLOWED_BY_VAR_OR_VARARG))) ((lambda nil (looking-at (concat 
"\\(" "]" "\\|" ")" "\\)"))) (lambda nil 
(phps-mode-lexer--return-exit-nesting-token))) ((lambda nil (looking-at (concat 
"\\(" "\\[" "\\|" "(" "\\)"))) (la [...]
-[   ]*" phps-mode-lexer--heredoc-label "\\|\\$" phps-mode-lexer--label 
"\\|{\\$" phps-mode-lexer--label "\\|\\${" phps-mode-lexer--label "\\)") nil 
t))) (if string-start (let* ((start (match-beginning 0)) (end (match-end 0)) 
(data (buffer-substring-no-properties start end))) (cond ((string-match-p 
(concat "
-[   ]*" phps-mode-lexer--heredoc-label) data) (search-forward-regexp "[
 ]*") (phps-mode-lexer--return-token-with-val 'T_ENCAPSED_AND_WHITESPACE 
old-end start) (phps-mode-lexer--begin 'ST_END_HEREDOC)) (t 
(phps-mode-lexer--return-token-with-val 'T_ENCAPSED_AND_WHITESPACE old-end 
start (progn (signal 'phps-lexer-error (list (format "Found no ending of 
heredoc starting at %d" old-start) old-start) ST_LOOKING_FOR_VARNAME 
(((lambda nil (looking-at (concat phps-mode-lexer--label "[ [...]
-
'#]"))) (lambda nil (phps-mode-lexer--yyless 0) 
(phps-mode-lexer--yy-pop-state) (phps-mode-lexer--return-token-with-val 
'T_ENCAPSED_AND_WHITESPACE))) ((lambda nil (looking-at phps-mode-lexer--label)) 
(lambda nil (phps-mode-lexer--return-token-with-str 'T_STRING 0))) ((lambda nil 
(looking-at phps-mode-lexer--any-char)) (lambda nil (signal 'phps-lexer-error 
(list (format "Unexpected character at %d" (match-beginning 0)) 
(match-beginning 0)) quote (((lambda nil (looking-at (concat "#!.* [...]
-[   ]*" phps-mode-lexer--heredoc-label) nil t))) (if string-start (let* 
((start (match-beginning 0)) (end (match-end 0)) (_data 
(buffer-substring-no-properties start end))) 
(phps-mode-lexer--return-token-with-val 'T_ENCAPSED_AND_WHITESPACE 
phps-mode-lexer--generated-new-tokens-index start) (search-forward-regexp "[
]*") (phps-mode-lexer--begin 'ST_END_HEREDOC)) (progn (signal 
'phps-lexer-error (list (format "Found no ending of nowdoc starting at %d" 
start) start)))
+[   ]*\\(" phps-mode-lexer--heredoc-label "\\)\\|\\$" 
phps-mode-lexer--label "\\|{\\$" phps-mode-lexer--label "\\|\\${" 
phps-mode-lexer--label "\\)") nil t))) (if string-start (let* ((start 
(match-beginning 0)) (end (match-end 0)) (data (match-string 0))) (cond 
((string-match-p (concat "
+[   ]*" phps-mode-lexer--heredoc-label) data) (setq start (match-beginning 
2)) (setq end (match-beginning 2)) (phps-mode-lexer--return-token-with-val 
'T_ENCAPSED_AND_WHITESPACE old-end start) (phps-mode-lexer--begin 
'ST_END_HEREDOC)) (t (phps-mode-lexer--return-token-with-val 
'T_ENCAPSED_AND_WHITESPACE old-end start (progn (signal 'phps-lexer-error 
(list (format "Found no ending of heredoc starting at %d" old-start) 
old-start) ST_LOOKING_FOR_VARNAME (((lambda nil (looking-at ( [...]
+
'#]"))) (lambda nil (phps-mode-lexer--yyless 0) 
(phps-mode-lexer--yy-pop-state) (phps-mode-lexer--return-token-with-val 
'T_ENCAPSED_AND_WHITESPACE))) ((lambda nil (looking-at phps-mode-lexer--label)) 
(lambda nil (phps-mode-lexer--return-token-with-str '

[elpa] externals/exwm e8e4a66094 6/6: Merge branch 'j4m3s-s.github.com/master' into externals/exwm

[ELPA Syncer]

branch: externals/exwm
commit e8e4a66094c7edee5de9917fecead23c09ade7d1
Merge: feebdf827b 0a2c03ed59
Author: Adrián Medraño Calvo 
Commit: Adrián Medraño Calvo 

Merge branch 'j4m3s-s.github.com/master' into externals/exwm
---
 exwm-workspace.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index fc68e1b070..12319958ca 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -444,7 +444,7 @@ NIL if FRAME is not a workspace"
 
 (defun exwm-workspace--set-active (frame active)
   "Make frame FRAME active on its monitor."
-  (exwm--log "active=%s; frame=%s" frame active)
+  (exwm--log "active=%s; frame=%s" active frame)
   (set-frame-parameter frame 'exwm-active active)
   (if active
   (exwm-workspace--set-fullscreen frame)

[elpa] externals/exwm ce2191c444 2/6: Focus workspace frames upon _NET_ACTIVE_WINDOW

[ELPA Syncer]

branch: externals/exwm
commit ce2191c444ae29edf669790a1002238b8fc90ac4
Author: Manuel Giraud 
Commit: Adrián Medraño Calvo 

Focus workspace frames upon _NET_ACTIVE_WINDOW

* exwm.el (exwm--on-ClientMessage): Take care of focusing
workspace frames when a _NET_ACTIVE_WINDOW message is received for
a workspace frame.  This is responsibility of the window manager
when it advertises _NET_ACTIVE_WINDOW support, which we do.
Emacs versions before 29 took care of setting the input focus to
the frame.

Thanks-to: Po Lu for the work on Emacs and assistance with this
   issue.
---
 exwm.el | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/exwm.el b/exwm.el
index b025f6b49a..1bfeb3638a 100644
--- a/exwm.el
+++ b/exwm.el
@@ -420,8 +420,8 @@
 (setq type (slot-value obj 'type)
   id (slot-value obj 'window)
   data (slot-value (slot-value obj 'data) 'data32))
-(exwm--log "atom=%s(%s)" (x-get-atom-name type exwm-workspace--current)
-   type)
+(exwm--log "atom=%s(%s) id=#x%x data=%s" (x-get-atom-name type 
exwm-workspace--current)
+   type (or id 0) data)
 (cond
  ;; _NET_NUMBER_OF_DESKTOPS.
  ((= type xcb:Atom:_NET_NUMBER_OF_DESKTOPS)
@@ -443,7 +443,8 @@
  ((= type xcb:Atom:_NET_ACTIVE_WINDOW)
   (let ((buffer (exwm--id->buffer id))
 iconic window)
-(when (buffer-live-p buffer)
+(if (buffer-live-p buffer)
+  ;; Either an `exwm-mode' buffer (an X window) or a floating frame.
   (with-current-buffer buffer
 (when (eq exwm--frame exwm-workspace--current)
   (if exwm--floating-frame
@@ -457,7 +458,11 @@
 (setq window (get-buffer-window nil t))
 (when (or iconic
   (not (eq window (selected-window
-  (select-window window
+  (select-window window)
+  ;; A workspace.
+  (dolist (f exwm-workspace--list)
+(when (eq id (frame-parameter f 'exwm-outer-id))
+  (x-focus-frame f t))
  ;; _NET_CLOSE_WINDOW.
  ((= type xcb:Atom:_NET_CLOSE_WINDOW)
   (let ((buffer (exwm--id->buffer id)))

[elpa] externals/exwm e042832b2b 1/6: Hide tab-bar on floating windows

[ELPA Syncer]

branch: externals/exwm
commit e042832b2b598336bdec0acb12fc34aefcd18564
Author: Steven Allen 
Commit: Steven Allen 

Hide tab-bar on floating windows

Floating windows are dedicated to a specific buffer anyways.

* exwm-floating.el (exwm-floating--set-floating): Hide the tab bar.
---
 exwm-floating.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/exwm-floating.el b/exwm-floating.el
index a9f9315b71..69e86a24e8 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -161,6 +161,8 @@ context of the corresponding buffer."
   (get-buffer "*scratch*")))
   (make-frame
`((minibuffer . ,(minibuffer-window exwm--frame))
+ (tab-bar-lines . 0)
+ (tab-bar-lines-keep-state . t)
  (left . ,(* window-min-width -1))
  (top . ,(* window-min-height -1))
  (width . ,window-min-width)

[elpa] externals/exwm 0a2c03ed59 4/6: Fix logging order in exwm-workspace--set-active

[ELPA Syncer]

branch: externals/exwm
commit 0a2c03ed597a27ff1ab06751b39618018f6d9deb
Author: James 
Commit: Adrián Medraño Calvo 

Fix logging order in exwm-workspace--set-active

* exwm-workspace.el (exwm-workspace--set-active): Swap logging
  arguments to match message.

Copyright-paperwork-exempt: yes
---
 exwm-workspace.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index fc68e1b070..12319958ca 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -444,7 +444,7 @@ NIL if FRAME is not a workspace"
 
 (defun exwm-workspace--set-active (frame active)
   "Make frame FRAME active on its monitor."
-  (exwm--log "active=%s; frame=%s" frame active)
+  (exwm--log "active=%s; frame=%s" active frame)
   (set-frame-parameter frame 'exwm-active active)
   (if active
   (exwm-workspace--set-fullscreen frame)

[elpa] externals/exwm updated (e43bd78258 -> e8e4a66094)

[ELPA Syncer]

elpasync pushed a change to branch externals/exwm.

  from  e43bd78258 Use 32-bit visual for frame containers
   new  e042832b2b Hide tab-bar on floating windows
   new  4c0b9bb5c2 Merge branch 
'stebalien.github.com/fix/hide-floating-tabs' into externals/exwm
   new  ce2191c444 Focus workspace frames upon _NET_ACTIVE_WINDOW
   new  feebdf827b Merge branch 'mgi.github.com/mgi/fix' into externals/exwm
   new  0a2c03ed59 Fix logging order in exwm-workspace--set-active
   new  e8e4a66094 Merge branch 'j4m3s-s.github.com/master' into 
externals/exwm


Summary of changes:
 exwm-floating.el  |  2 ++
 exwm-workspace.el |  2 +-
 exwm.el   | 13 +
 3 files changed, 12 insertions(+), 5 deletions(-)

[elpa] externals/exwm 4c0b9bb5c2 3/6: Merge branch 'stebalien.github.com/fix/hide-floating-tabs' into externals/exwm

[ELPA Syncer]

branch: externals/exwm
commit 4c0b9bb5c216cae36908fd6192a92b7e714ee5b2
Merge: e43bd78258 e042832b2b
Author: Adrián Medraño Calvo 
Commit: Adrián Medraño Calvo 

Merge branch 'stebalien.github.com/fix/hide-floating-tabs' into 
externals/exwm
---
 exwm-floating.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/exwm-floating.el b/exwm-floating.el
index a9f9315b71..69e86a24e8 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -161,6 +161,8 @@ context of the corresponding buffer."
   (get-buffer "*scratch*")))
   (make-frame
`((minibuffer . ,(minibuffer-window exwm--frame))
+ (tab-bar-lines . 0)
+ (tab-bar-lines-keep-state . t)
  (left . ,(* window-min-width -1))
  (top . ,(* window-min-height -1))
  (width . ,window-min-width)

[elpa] externals/exwm feebdf827b 5/6: Merge branch 'mgi.github.com/mgi/fix' into externals/exwm

[ELPA Syncer]

branch: externals/exwm
commit feebdf827b98b53d7ea8045de3446757e0fe7e36
Merge: 4c0b9bb5c2 ce2191c444
Author: Adrián Medraño Calvo 
Commit: Adrián Medraño Calvo 

Merge branch 'mgi.github.com/mgi/fix' into externals/exwm
---
 exwm.el | 13 +
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/exwm.el b/exwm.el
index b025f6b49a..1bfeb3638a 100644
--- a/exwm.el
+++ b/exwm.el
@@ -420,8 +420,8 @@
 (setq type (slot-value obj 'type)
   id (slot-value obj 'window)
   data (slot-value (slot-value obj 'data) 'data32))
-(exwm--log "atom=%s(%s)" (x-get-atom-name type exwm-workspace--current)
-   type)
+(exwm--log "atom=%s(%s) id=#x%x data=%s" (x-get-atom-name type 
exwm-workspace--current)
+   type (or id 0) data)
 (cond
  ;; _NET_NUMBER_OF_DESKTOPS.
  ((= type xcb:Atom:_NET_NUMBER_OF_DESKTOPS)
@@ -443,7 +443,8 @@
  ((= type xcb:Atom:_NET_ACTIVE_WINDOW)
   (let ((buffer (exwm--id->buffer id))
 iconic window)
-(when (buffer-live-p buffer)
+(if (buffer-live-p buffer)
+  ;; Either an `exwm-mode' buffer (an X window) or a floating frame.
   (with-current-buffer buffer
 (when (eq exwm--frame exwm-workspace--current)
   (if exwm--floating-frame
@@ -457,7 +458,11 @@
 (setq window (get-buffer-window nil t))
 (when (or iconic
   (not (eq window (selected-window
-  (select-window window
+  (select-window window)
+  ;; A workspace.
+  (dolist (f exwm-workspace--list)
+(when (eq id (frame-parameter f 'exwm-outer-id))
+  (x-focus-frame f t))
  ;; _NET_CLOSE_WINDOW.
  ((= type xcb:Atom:_NET_CLOSE_WINDOW)
   (let ((buffer (exwm--id->buffer id)))

[nongnu] elpa/evil c59f2c09c6: gp & gP linewise & blockwise

[ELPA Syncer]

branch: elpa/evil
commit c59f2c09c63de5f001c19f8513a19dfc72858e75
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

gp & gP linewise & blockwise
---
 evil-commands.el | 22 --
 evil-common.el   | 13 -
 evil-tests.el| 11 ++-
 evil-vars.el |  3 +++
 4 files changed, 37 insertions(+), 12 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index fca933be18..57dc58bf19 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -2206,6 +2206,11 @@ The return value is the yanked text."
 (when (and evil-move-cursor-back
(> (length text) 0))
   (backward-char
+(when evil--cursor-after
+  (if (eq 'evil-yank-line-handler yank-handler)
+  (ignore-errors (evil-next-line-first-non-blank 1))
+(evil-forward-char 1 nil t))
+  (setq evil--cursor-after nil))
 ;; no paste-pop after pasting from a register
 (when register
   (setq evil-last-paste nil))
@@ -2258,6 +2263,11 @@ The return value is the yanked text."
   (evil-set-marker ?\] (1- (point)))
   (when (evil-normal-state-p)
 (evil-move-cursor-back)
+(when evil--cursor-after
+  (if (eq 'evil-yank-line-handler yank-handler)
+  (ignore-errors (evil-next-line-first-non-blank 1))
+(evil-forward-char 1 nil t))
+  (setq evil--cursor-after nil))
 (when register
   (setq evil-last-paste nil))
 (and (> (length text) 0) text)
@@ -2268,9 +2278,9 @@ The return value is the yanked text."
 leave the cursor just after the new text."
   :suppress-operator t
   (interactive "*P")
-  (setq count (prefix-numeric-value count))
-  (evil-paste-before count register yank-handler)
-  (evil-forward-char 1 nil t))
+  (setq count (prefix-numeric-value count)
+evil--cursor-after t)
+  (evil-paste-before count register yank-handler))
 
 (evil-define-command evil-paste-after-cursor-after
   (count &optional register yank-handler)
@@ -2278,9 +2288,9 @@ leave the cursor just after the new text."
 leave the cursor just after the new text."
   :suppress-operator t
   (interactive "*P")
-  (setq count (prefix-numeric-value count))
-  (evil-paste-after count register yank-handler)
-  (evil-forward-char 1 nil t))
+  (setq count (prefix-numeric-value count)
+evil--cursor-after t)
+  (evil-paste-after count register yank-handler))
 
 (defun evil-insert-for-yank-at-col (startcol _endcol string count)
   "Insert STRING at STARTCOL."
diff --git a/evil-common.el b/evil-common.el
index 349deff15a..ba9f1374dc 100644
--- a/evil-common.el
+++ b/evil-common.el
@@ -2687,7 +2687,8 @@ The tracked insertion is set to `evil-last-insertion'."
   (mark t)
   (point)))
   (evil-move-mark (1+ (mark t)))
-  (evil-exchange-point-and-mark)
+  (unless evil--cursor-after
+(evil-exchange-point-and-mark))
   (back-to-indentation))
  (t
   (insert text)
@@ -2738,10 +2739,12 @@ The tracked insertion is set to `evil-last-insertion'."
 (* count (length (car lines) ; number of colums
 (evil-set-marker ?\[ opoint)
 (evil-set-marker ?\] (1- epoint))
-(goto-char opoint)
-(when (and (eq this-command 'evil-paste-after)
-   (not (eolp)))
-  (forward-char
+(if evil--cursor-after
+(goto-char (1- epoint))
+  (goto-char opoint)
+  (when (and (eq this-command 'evil-paste-after)
+ (not (eolp)))
+(forward-char)
 
 (defun evil-delete-yanked-rectangle (nrows ncols)
   "Special function to delete the block yanked by a previous paste command.
diff --git a/evil-tests.el b/evil-tests.el
index 2e069af49d..276eb7b3a8 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -3154,7 +3154,16 @@ word3[]"))
   ("2F " "gP")
   "alphaalpha[ ]bravo alphacharlie"
   ("l" "ve" "gp")
-  "alphaalpha alpha[ ]alphacharlie")))
+  "alphaalpha alpha[ ]alphacharlie"))
+  (ert-info ("gp linewise")
+(evil-test-buffer
+  "[a]lpha line\nbravo line\ncharlie line\ndelta line\necho line"
+  ("2yy" "2j")
+  "alpha line\nbravo line\n[c]harlie line\ndelta line\necho line"
+  ("gp")
+  "alpha line\nbravo line\ncharlie line\nalpha line\nbravo line\n[d]elta 
line\necho line"
+  (".")
+  "alpha line\nbravo line\ncharlie line\nalpha line\nbravo line\ndelta 
line\nalpha line\nbravo line\necho line")))
 
 (ert-deftest evil-test-ex-put ()
   "evil-ex-put inserts text linewise, regardless of yank-handler"
diff --git a/evil-vars.el b/evil-vars.el
index 74aeb518e1..c8ec51a866 100644
--- a/evil-vars.el
+++ b/evil-vars.el
@@ -1683,6 +1683,9 @@ not deleted and not yanked to a specific register.")
 (defvar evil-paste-count nil
   "The count argument of the current paste command.")
 
+(defvar evil--cursor-after nil
+  "Internal flag for gp &

[nongnu] elpa/markdown-mode 8f53f62c4e 1/2: Change dev version string to match Emacs expected format.

[ELPA Syncer]

branch: elpa/markdown-mode
commit 8f53f62c4e808ba5aabe16714c18093ade7511a6
Author: Allen Li 
Commit: Allen Li 

Change dev version string to match Emacs expected format.

https://github.com/jrblevin/markdown-mode/issues/734
---
 markdown-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index ae6dc47988..4e59afaf16 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -6,7 +6,7 @@
 ;; Author: Jason R. Blevins 
 ;; Maintainer: Jason R. Blevins 
 ;; Created: May 24, 2007
-;; Version: 2.6-dev
+;; Version: 2.6-alpha
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: Markdown, GitHub Flavored Markdown, itex
 ;; URL: https://jblevins.org/projects/markdown-mode/
@@ -55,7 +55,7 @@
 
 ;;; Constants =
 
-(defconst markdown-mode-version "2.6-dev"
+(defconst markdown-mode-version "2.6-alpha"
   "Markdown mode version number.")
 
 (defconst markdown-output-buffer-name "*markdown-output*"

[nongnu] elpa/markdown-mode c338cdff80 2/2: Merge pull request #735 from darkfeline/version

[ELPA Syncer]

branch: elpa/markdown-mode
commit c338cdff80012893e64ba62a199281f430db7021
Merge: 7030c72f87 8f53f62c4e
Author: Shohei YOSHIDA 
Commit: GitHub 

Merge pull request #735 from darkfeline/version

Change dev version string to match Emacs expected format.
---
 markdown-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/markdown-mode.el b/markdown-mode.el
index ae6dc47988..4e59afaf16 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -6,7 +6,7 @@
 ;; Author: Jason R. Blevins 
 ;; Maintainer: Jason R. Blevins 
 ;; Created: May 24, 2007
-;; Version: 2.6-dev
+;; Version: 2.6-alpha
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: Markdown, GitHub Flavored Markdown, itex
 ;; URL: https://jblevins.org/projects/markdown-mode/
@@ -55,7 +55,7 @@
 
 ;;; Constants =
 
-(defconst markdown-mode-version "2.6-dev"
+(defconst markdown-mode-version "2.6-alpha"
   "Markdown mode version number.")
 
 (defconst markdown-output-buffer-name "*markdown-output*"

[elpa] externals/ef-themes 03759bf1c0: ef-deuteranopia-dark: tweak bg-region-intense

[ELPA Syncer]

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

ef-deuteranopia-dark: tweak bg-region-intense
---
 ef-deuteranopia-dark-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index 1695b9547d..8ec026978b 100644
--- a/ef-deuteranopia-dark-theme.el
+++ b/ef-deuteranopia-dark-theme.el
@@ -148,7 +148,7 @@
   (underline-info"#22cff2")
 
   ;; Conditional hues
-  (bg-region-intense "#1f1f70")
+  (bg-region-intense "#1f2f70")
 
   ;; Mappings
   (err yellow-warmer)

[elpa] externals/org a3b9bb8faa 3/4: org-lint: Fix #+INCLUDE keyword parsing

[ELPA Syncer]

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

org-lint: Fix #+INCLUDE keyword parsing

* lisp/org-lint.el (org-lint-wrong-include-link-parameter): Use
non-greedy regexp to parse included file name.

Reported-by: gerard.vermeu...@posteo.net
Link: https://orgmode.org/list/ceef41267fcb44cdcbd7986f599bf...@posteo.net
---
 lisp/org-lint.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 351f92b162..ff2999cb8f 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -652,7 +652,7 @@ in description"
   (when (equal (org-element-property :key k) "INCLUDE")
 (let* ((value (org-element-property :value k))
(path
-(and (string-match "^\\(\".+\"\\|\\S-+\\)[ \t]*" value)
+(and (string-match "^\\(\".+?\"\\|\\S-+\\)[ \t]*" value)
  (save-match-data
(org-strip-quotes (match-string 1 value))
   (if (not path)

[elpa] externals/org 0d60013f0e 2/4: org-attach-attach: Fix when `org-attach-store-link-p' is t

[ELPA Syncer]

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

org-attach-attach: Fix when `org-attach-store-link-p' is t

* lisp/org-attach.el (org-attach-attach): Store link to the original
file location when `org-attach-store-link-p' is set to t, as promised
by the variable docstring.
---
 lisp/org-attach.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index 8673ddd88d..ef183474e7 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -551,8 +551,8 @@ METHOD may be `cp', `mv', `ln', `lns' or `url' default 
taken from
 (file-name-nondirectory attach-file))
   org-stored-links))
 ((eq org-attach-store-link-p t)
- (push (list (concat "file:" attach-file)
-(file-name-nondirectory attach-file))
+ (push (list (concat "file:" file)
+(file-name-nondirectory file))
   org-stored-links))
((eq org-attach-store-link-p 'file)
 (push (list (concat "file:" attach-file)

[elpa] externals/org 094ee4490d 1/4: org-attach-store-link-p: Explain all the values in the docstring

[ELPA Syncer]

branch: externals/org
commit 094ee4490d366bec3a8496fd609e175f12684c7e
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-attach-store-link-p: Explain all the values in the docstring

* lisp/org-attach.el (org-attach-store-link-p): Detail what each of
the allowed values mean, in addition to the :type tags.
---
 lisp/org-attach.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index 6af8364fc7..8673ddd88d 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -139,7 +139,10 @@ Selective means to respect the inheritance setting in
  (const :tag "Respect org-use-property-inheritance" selective)))
 
 (defcustom org-attach-store-link-p nil
-  "Non-nil means store a link to a file when attaching it."
+  "Non-nil means store a link to a file when attaching it.
+When t, store the link to original file location.
+When `file', store link to the attached file location.
+When `attached', store attach: link to the attached file."
   :group 'org-attach
   :version "24.1"
   :type '(choice

[elpa] externals/org f5c89ba5f9 4/4: org-manual: Clarify :results file graphics header argument meaning

[ELPA Syncer]

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

org-manual: Clarify :results file graphics header argument meaning

* doc/org-manual.org (Format): Clarify the difference between
:results file and :results file graphics.  Update the example to
something that can be tried locally.
---
 doc/org-manual.org | 12 
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index dc2fc57cdf..b3071ec6dc 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -18408,13 +18408,17 @@ follows from the type specified above.
 
   When used along with =file= type, the result is a link to the file
   specified in =:file= header argument.  However, unlike plain =file=
-  type, nothing is written to the disk.  The block is used for its
-  side-effects only, as in the following example:
+  type, code block output is not written to the disk.  The block is
+  expected to generate the file by its side-effects only, as in the
+  following example:
 
   #+begin_example
-  ,#+begin_src shell :results file link :file "download.tar.gz"
-  wget -c "https://example.com/download.tar.gz";
+  ,#+begin_src shell :results file link :file "org-mode-unicorn.svg"
+wget -c "https://orgmode.org/resources/img/org-mode-unicorn.svg";
   ,#+end_src
+
+  ,#+RESULTS:
+  [[file:org-mode-unicorn.svg]]
   #+end_example
 
 - =org= ::

[elpa] externals/org updated (f7b16402e6 -> f5c89ba5f9)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  f7b16402e6 org-babel: Never throw away standard error
   new  094ee4490d org-attach-store-link-p: Explain all the values in the 
docstring
   new  0d60013f0e org-attach-attach: Fix when `org-attach-store-link-p' is 
t
   new  a3b9bb8faa org-lint: Fix #+INCLUDE keyword parsing
   new  f5c89ba5f9 org-manual: Clarify :results file graphics header 
argument meaning


Summary of changes:
 doc/org-manual.org | 12 
 lisp/org-attach.el |  9 ++---
 lisp/org-lint.el   |  2 +-
 3 files changed, 15 insertions(+), 8 deletions(-)

[elpa] externals/org 3e010d81dc: org-element-adopt-elements: Skip nil children

[ELPA Syncer]

branch: externals/org
commit 3e010d81dcabafcdd97199b8122491a74ad9cbed
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element-adopt-elements: Skip nil children

* lisp/org-element.el (org-element-adopt-elements): Ignore nil
children instead of throwing an error.

Reported-by: alain.coch...@unistra.fr
Link: https://orgmode.org/list/25445.34286.700495.260...@gargle.gargle.howl
---
 lisp/org-element.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 020ec59b0f..c389cce635 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -603,7 +603,8 @@ Return parent element."
 ;; Link every child to PARENT. If PARENT is nil, it is a secondary
 ;; string: parent is the list itself.
 (dolist (child children)
-  (org-element-put-property child :parent (or parent children)))
+  (when child
+(org-element-put-property child :parent (or parent children
 ;; Add CHILDREN at the end of PARENT contents.
 (when parent
   (apply #'org-element-set-contents

[elpa] externals/denote aced22dbac: Make attempt to simplify keyword sorting

[ELPA Syncer]

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

Make attempt to simplify keyword sorting

This is being discussed with Florian on the mailing list:

.
---
 denote.el | 16 +---
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/denote.el b/denote.el
index d73fb6f2a7..91de774d0b 100644
--- a/denote.el
+++ b/denote.el
@@ -763,8 +763,8 @@ In the case of multiple entries, those are separated by the
 `crm-sepator', which typically is a comma.  In such a case, the
 output is sorted with `string-lessp'.
 
-To sort the return value, use `denote-keywords-sort'."
-  (denote--keywords-crm (denote-keywords)))
+Process the return value with `denote-keywords-sort'."
+  (denote-keywords-sort (denote--keywords-crm (denote-keywords
 
 (defun denote-keywords-sort (keywords)
   "Sort KEYWORDS if `denote-sort-keywords' is non-nil.
@@ -1496,7 +1496,9 @@ When called from Lisp, all arguments are optional.
  (append args nil)))
   (let* ((title (or title ""))
  (file-type (denote--valid-file-type (or file-type denote-file-type)))
- (kws (denote-keywords-sort keywords))
+ (kws (if (called-interactively-p 'interactive)
+  keywords
+(denote-keywords-sort keywords)))
  (date (if (or (null date) (string-empty-p date))
(current-time)
  (denote--valid-date date)))
@@ -1735,7 +1737,7 @@ When called from Lisp, KEYWORDS is a list of strings.
 
 Rename the file without further prompt so that its name reflects
 the new front matter, per `denote-rename-file-using-front-matter'."
-  (interactive (list (denote-keywords-sort (denote-keywords-prompt
+  (interactive (list (denote-keywords-prompt)))
   ;; A combination of if-let and let, as we need to take into account
   ;; the scenario in which there are no keywords yet.
   (if-let* ((file (buffer-file-name))
@@ -2093,7 +2095,7 @@ The operation does the following:
   the user option `denote-file-type')."
   (interactive nil dired-mode)
   (if-let ((marks (dired-get-marked-files)))
-  (let ((keywords (denote-keywords-sort (denote-keywords-prompt
+  (let ((keywords (denote-keywords-prompt)))
 (when (yes-or-no-p "Add front matter or rewrite front matter of 
keywords (buffers are not saved)?")
   (progn
 (dolist (file marks)
@@ -2238,7 +2240,7 @@ relevant front matter."
(list
 (buffer-file-name)
 (denote-title-prompt)
-(denote-keywords-sort (denote-keywords-prompt
+(denote-keywords-prompt)))
   (when (denote-file-is-writable-and-supported-p file)
 (denote--add-front-matter
  file title keywords
@@ -3139,7 +3141,7 @@ arbitrary text).
 
 Consult the manual for template samples."
   (let* ((title (denote-title-prompt))
- (keywords (denote-keywords-sort (denote-keywords-prompt)))
+ (keywords (denote-keywords-prompt))
  (front-matter (denote--format-front-matter
 title (denote--date nil 'org) keywords
 (format-time-string denote-id-format nil) 'org)))

[elpa] externals/ef-themes 94d0c9913f: Change markup to render "nil" properly in texinfo

[ELPA Syncer]

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

Change markup to render "nil" properly in texinfo

This is to ensure that "nil" becomes @code{nil}.

In practice, this is not needed for the package, though it is the
style followed by upstream Org and Emacs.  I also use it for my
modus-themes, which are built into Emacs.
---
 README.org | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index b29f38ea98..ce82045639 100644
--- a/README.org
+++ b/README.org
@@ -238,11 +238,11 @@ The user option ~ef-themes-mixed-fonts~ controls whether 
strictly
 spacing-sensitive constructs inherit from ~fixed-pitch~ (a monospaced
 font family).
 
-By default (a nil value for this user option) no face inherits from
+By default (a ~nil~ value for this user option) no face inherits from
 ~fixed-pitch~: they all use the default font family, regardless of
 whether it is monospaced or not.
 
-When ~ef-themes-mixed-fonts~ is set to a non-nil value, faces such as
+When ~ef-themes-mixed-fonts~ is set to a non-~nil~ value, faces such as
 Org tables, inline code, code blocks, and the like, are rendered in a
 monospaced font at all times.  The user can thus set their default font
 family to a proportionately spaced font without worrying about breaking
@@ -265,8 +265,8 @@ Protesilaos) can be helpful in that regard.
 #+vindex: ef-themes-variable-pitch-ui
 The user option ~ef-themes-variable-pitch-ui~ controls whether the
 elements of the User Interface (UI) use a proportionately spaced font.
-By default (a nil value), all UI elements use the default font family.
-When this user option is set to a non-nil value, all UI elements will
+By default (a ~nil~ value), all UI elements use the default font family.
+When this user option is set to a non-~nil~ value, all UI elements will
 inherit the face ~variable-pitch~ instead thus rendering them in a
 proportionately spaced font.
 
@@ -310,7 +310,7 @@ available properties:
 (t . (variable-pitch
 #+end_src
 
-By default (a =nil= value for this variable), all headings have a bold
+By default (a ~nil~ value for this variable), all headings have a bold
 typographic weight, a font family that is the same as the ~default~ face
 (typically monospaced), and a height that is equal to the ~default~
 face's height.
@@ -356,7 +356,7 @@ In user configuration files the form may look like this:
 #+end_src
 
 When defining the styles per heading level, it is possible to
-pass a non-nil value (t) instead of a list of properties.  This
+pass a non-~nil~ value (t) instead of a list of properties.  This
 will retain the original aesthetic for that level.  For example:
 
 #+begin_src emacs-lisp
@@ -881,7 +881,7 @@ Users who were used to the previous design and who 
generally do not
 configure the user options of =org-modern= may thus notice a change in
 how clocktables (or generally tables with timestamps) are aligned.  The
 simplest solution is to instruct the mode to not prettify timestamps, by
-setting the user option ~org-modern-timestamp~ to nil.  For example, by
+setting the user option ~org-modern-timestamp~ to ~nil~.  For example, by
 adding this to the init file:
 
 #+begin_src emacs-lisp
@@ -915,7 +915,7 @@ consider including this in their setup:
   goto-address-mail-mouse-face 'highlight)
 #+end_src
 
-My personal preference is to set ~goto-address-mail-face~ to nil,
+My personal preference is to set ~goto-address-mail-face~ to ~nil~,
 because it otherwise adds too much visual noise to the buffer (email
 addresses stand out more, due to the use of the uncommon =@= caharacter
 but also because they are often enclosed in angled brackets).