[elpa] externals/org 67efaa739a: CONTRIBUTE: Link WORG page when explaining commit message format
branch: externals/org commit 67efaa739ae8694df8f986e4a4153259461401f0 Author: Ihor Radchenko Commit: Ihor Radchenko CONTRIBUTE: Link WORG page when explaining commit message format * CONTRIBUTE (Main contribution rules): Link relevant WORG contribute page section with extra conventions for our commit message guidelines. See https://orgmode.org/list/87r16896gh@red-bean.com --- CONTRIBUTE | 7 +-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/CONTRIBUTE b/CONTRIBUTE index 94d471a0f0..f8a81515ef 100644 --- a/CONTRIBUTE +++ b/CONTRIBUTE @@ -55,8 +55,11 @@ Org maintenance is detailed on Worg: see [[https://orgmode.org/worg/org-maintena the [[https://www.gnu.org/philosophy/kind-communication.en.html][GNU Kind Communications Guidelines]]. - Org mode no longer uses ChangeLog entries to document changes. - Instead, special commit messages are used, as described in the - `CONTRIBUTE' file in the main Emacs repository. + Instead, special commit messages are used. The commit message + format generally follows Emacs conventions, as described in the + `CONTRIBUTE' file in the main Emacs repository. Several more + Org-specific conventions are described in + [[https://orgmode.org/worg/org-contribute.html#commit-messages][worg/org-contribute#commit-messages]]. - Among other things, Org mode is widely appreciated because of its simplicity, cleanness and consistency. We should try to preserve
[nongnu] elpa/evil 48404a3368: fix C-h behavior when evil-want-C-h-delete is non-nil
branch: elpa/evil
commit 48404a336850a20ed093fcf78539037c17386235
Author: Kevin Sladowski
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>
fix C-h behavior when evil-want-C-h-delete is non-nil
---
evil-maps.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/evil-maps.el b/evil-maps.el
index 31d486e0b7..e24ea1eb19 100644
--- a/evil-maps.el
+++ b/evil-maps.el
@@ -406,7 +406,7 @@
,@(when evil-want-C-u-delete
'(("\C-u" . evil-delete-back-to-indentation)))
,@(when evil-want-C-h-delete
-'(("\C-h" . evil-delete-back-to-indentation)))
+'(("\C-h" . evil-delete-backward-char-and-join)))
([mouse-2] . mouse-yank-primary))
"Evil's bindings for insert & replace states.
Used in `evil-insert-state-map' and `evil-replace-state-map',
[nongnu] elpa/git-commit dc0b573634: ci: Clone compat
branch: elpa/git-commit
commit dc0b57363462522ead3712bf3487c14e07d916c0
Author: Jonas Bernoulli
Commit: Jonas Bernoulli
ci: Clone compat
---
.github/workflows/test.yml | 5 +
1 file changed, 5 insertions(+)
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index a38c1b649b..c9d3cf5df1 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -25,6 +25,11 @@ jobs:
uses: purcell/setup-emacs@master
with:
version: ${{ matrix.emacs_version }}
+- name: Checkout compat
+ uses: actions/checkout@v2
+ with:
+repository: https://git.sr.ht/~pkal/compat
+path: compat
- name: Checkout dash
uses: actions/checkout@v2
with:
[nongnu] elpa/magit updated (40fb3d2002 -> dc0b573634)
elpasync pushed a change to branch elpa/magit. from 40fb3d2002 make: Improve creation of autoloads file adds dc0b573634 ci: Clone compat No new revisions were added by this update. Summary of changes: .github/workflows/test.yml | 5 + 1 file changed, 5 insertions(+)
[nongnu] elpa/magit-section updated (40fb3d2002 -> dc0b573634)
elpasync pushed a change to branch elpa/magit-section. from 40fb3d2002 make: Improve creation of autoloads file adds dc0b573634 ci: Clone compat No new revisions were added by this update. Summary of changes: .github/workflows/test.yml | 5 + 1 file changed, 5 insertions(+)
[nongnu] elpa/git-commit 0194bd2708 2/2: ci: Build compat
branch: elpa/git-commit commit 0194bd27081c7a23ad7f0d1d54516022eddc7dfc Author: Jonas Bernoulli Commit: Jonas Bernoulli ci: Build compat --- .github/workflows/test.yml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index 68340d7716..eedc7af639 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -50,6 +50,8 @@ jobs: with: repository: magit/magit path: magit +- name: Build compat + run: make -C compat compile - name: Build magit run: make -C magit all - name: Test magit
[nongnu] elpa/git-commit updated (dc0b573634 -> 0194bd2708)
elpasync pushed a change to branch elpa/git-commit. from dc0b573634 ci: Clone compat new 91e6158575 ci: Clone compat from emacsmirror new 0194bd2708 ci: Build compat Summary of changes: .github/workflows/test.yml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
[nongnu] elpa/git-commit 91e6158575 1/2: ci: Clone compat from emacsmirror
branch: elpa/git-commit commit 91e6158575b0becccbcf392e0914172d7dc8a1a2 Author: Jonas Bernoulli Commit: Jonas Bernoulli ci: Clone compat from emacsmirror --- .github/workflows/test.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index c9d3cf5df1..68340d7716 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -28,7 +28,7 @@ jobs: - name: Checkout compat uses: actions/checkout@v2 with: -repository: https://git.sr.ht/~pkal/compat +repository: emacsmirror/compat path: compat - name: Checkout dash uses: actions/checkout@v2
[nongnu] elpa/magit updated (dc0b573634 -> 0194bd2708)
elpasync pushed a change to branch elpa/magit. from dc0b573634 ci: Clone compat adds 91e6158575 ci: Clone compat from emacsmirror adds 0194bd2708 ci: Build compat No new revisions were added by this update. Summary of changes: .github/workflows/test.yml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
[nongnu] elpa/magit-section updated (dc0b573634 -> 0194bd2708)
elpasync pushed a change to branch elpa/magit-section. from dc0b573634 ci: Clone compat adds 91e6158575 ci: Clone compat from emacsmirror adds 0194bd2708 ci: Build compat No new revisions were added by this update. Summary of changes: .github/workflows/test.yml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
[nongnu] elpa/git-commit 414c18c0f3 1/2: magit-stash-save: Disable external diff tools
branch: elpa/git-commit commit 414c18c0f35e51ea98d1ae0504477e8e2063fd53 Author: Aaron L. Zeng Commit: Jonas Bernoulli magit-stash-save: Disable external diff tools External diff tools may cause git to produce errors like "unrecognized input" when the output is fed back into `git apply'. Pass `--no-ext-diff' to `git diff' where necessary. --- lisp/magit-stash.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/magit-stash.el b/lisp/magit-stash.el index 9b8d3c3a65..8aee060a4c 100644 --- a/lisp/magit-stash.el +++ b/lisp/magit-stash.el @@ -317,7 +317,7 @@ current branch or `HEAD' as the start-point." (magit-stash-create message index worktree untracked)) (if (eq keep 'worktree) (with-temp-buffer - (magit-git-insert "diff" "--cached") + (magit-git-insert "diff" "--cached" "--no-ext-diff") (magit-run-git-with-input "apply" "--reverse" "--cached" "--ignore-space-change" "-") (magit-run-git-with-input
[nongnu] elpa/git-commit 9cd8e6648c 2/2: magit:--: Hint at comma being used as separator
branch: elpa/git-commit commit 9cd8e6648c34ce775f955a6a6e043278f9d0ee95 Author: Jonas Bernoulli Commit: Jonas Bernoulli magit:--: Hint at comma being used as separator --- lisp/magit-diff.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/magit-diff.el b/lisp/magit-diff.el index 2a6cb8bdbe..32e81f371a 100644 --- a/lisp/magit-diff.el +++ b/lisp/magit-diff.el @@ -943,7 +943,7 @@ and `:slant'." :class 'transient-files :key "--" :argument "--" - :prompt "Limit to file(s): " + :prompt "Limit to file,s: " :reader #'magit-read-files :multi-value t)
[nongnu] elpa/git-commit updated (0194bd2708 -> 9cd8e6648c)
elpasync pushed a change to branch elpa/git-commit. from 0194bd2708 ci: Build compat new 414c18c0f3 magit-stash-save: Disable external diff tools new 9cd8e6648c magit:--: Hint at comma being used as separator Summary of changes: lisp/magit-diff.el | 2 +- lisp/magit-stash.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-)
[nongnu] elpa/magit updated (0194bd2708 -> 9cd8e6648c)
elpasync pushed a change to branch elpa/magit. from 0194bd2708 ci: Build compat adds 414c18c0f3 magit-stash-save: Disable external diff tools adds 9cd8e6648c magit:--: Hint at comma being used as separator No new revisions were added by this update. Summary of changes: lisp/magit-diff.el | 2 +- lisp/magit-stash.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-)
[nongnu] elpa/magit-section updated (0194bd2708 -> 9cd8e6648c)
elpasync pushed a change to branch elpa/magit-section. from 0194bd2708 ci: Build compat adds 414c18c0f3 magit-stash-save: Disable external diff tools adds 9cd8e6648c magit:--: Hint at comma being used as separator No new revisions were added by this update. Summary of changes: lisp/magit-diff.el | 2 +- lisp/magit-stash.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-)
[nongnu] elpa/git-commit updated (9cd8e6648c -> b4d54d3f8e)
elpasync pushed a change to branch elpa/git-commit. from 9cd8e6648c magit:--: Hint at comma being used as separator new 697fb7ae27 AUTHORS.md: Update list of contributors new b4d54d3f8e AUTHORS.md: Drop email addresses Summary of changes: .mailmap| 1 + docs/AUTHORS.md | 724 docs/Makefile | 22 +- 3 files changed, 375 insertions(+), 372 deletions(-)
[elpa] externals/corfu aeb6697d95: Remove obsolete mode alias `corfu-global-mode`
branch: externals/corfu commit aeb6697d95fd6575b5ba76bf9af10d4e35687b08 Author: Daniel Mendler Commit: Daniel Mendler Remove obsolete mode alias `corfu-global-mode` --- corfu.el | 3 --- 1 file changed, 3 deletions(-) diff --git a/corfu.el b/corfu.el index 964b34ab51..dc29dfd135 100644 --- a/corfu.el +++ b/corfu.el @@ -1217,9 +1217,6 @@ length override, set to t for manual completion." The ORIG function takes the FUN and WHICH arguments." (if corfu-mode (corfu--capf-wrapper fun t) (funcall orig fun which))) -;;;###autoload -(define-obsolete-function-alias 'corfu-global-mode 'global-corfu-mode "0.21") - ;;;###autoload (define-globalized-minor-mode global-corfu-mode corfu-mode corfu--on :group 'corfu)
[nongnu] elpa/git-commit 697fb7ae27 1/2: AUTHORS.md: Update list of contributors
branch: elpa/git-commit commit 697fb7ae274751fbd8177aa9a56de18fc4888a66 Author: Jonas Bernoulli Commit: Jonas Bernoulli AUTHORS.md: Update list of contributors --- .mailmap| 1 + docs/AUTHORS.md | 2 ++ 2 files changed, 3 insertions(+) diff --git a/.mailmap b/.mailmap index b70b8af407..6b12a77884 100644 --- a/.mailmap +++ b/.mailmap @@ -55,6 +55,7 @@ Philippe Vaucher Raimon Grau Rémi Vanicat Rüdiger Sonderfeld +Sean Allred Seong-Kook Shin Silent Sphere Sylvain Rousseau diff --git a/docs/AUTHORS.md b/docs/AUTHORS.md index 7bee88d940..c1b00fa454 100644 --- a/docs/AUTHORS.md +++ b/docs/AUTHORS.md @@ -39,6 +39,7 @@ Contributors - Aaron Culich +- Aaron L. Zeng - Aaron Madlon-Kay - Abdo Roig-Maranges - Adam Benanti <0entr...@protonmail.com> @@ -197,6 +198,7 @@ Contributors - Jon Vanderwijk - Jordan Galby - Jordan Greenberg +- Jorge Israel Peña - Josh Elsasser - Josiah Schwab - Julien Danjou
[nongnu] elpa/magit-section updated (9cd8e6648c -> b4d54d3f8e)
elpasync pushed a change to branch elpa/magit-section. from 9cd8e6648c magit:--: Hint at comma being used as separator adds 697fb7ae27 AUTHORS.md: Update list of contributors adds b4d54d3f8e AUTHORS.md: Drop email addresses No new revisions were added by this update. Summary of changes: .mailmap| 1 + docs/AUTHORS.md | 724 docs/Makefile | 22 +- 3 files changed, 375 insertions(+), 372 deletions(-)
[nongnu] elpa/magit updated (9cd8e6648c -> b4d54d3f8e)
elpasync pushed a change to branch elpa/magit. from 9cd8e6648c magit:--: Hint at comma being used as separator adds 697fb7ae27 AUTHORS.md: Update list of contributors adds b4d54d3f8e AUTHORS.md: Drop email addresses No new revisions were added by this update. Summary of changes: .mailmap| 1 + docs/AUTHORS.md | 724 docs/Makefile | 22 +- 3 files changed, 375 insertions(+), 372 deletions(-)
[nongnu] elpa/git-commit b4d54d3f8e 2/2: AUTHORS.md: Drop email addresses
branch: elpa/git-commit commit b4d54d3f8ee047479980b6d8079f3ce1a93bb6a4 Author: Jonas Bernoulli Commit: Jonas Bernoulli AUTHORS.md: Drop email addresses --- docs/AUTHORS.md | 726 docs/Makefile | 22 +- 2 files changed, 374 insertions(+), 374 deletions(-) diff --git a/docs/AUTHORS.md b/docs/AUTHORS.md index c1b00fa454..8e553892ce 100644 --- a/docs/AUTHORS.md +++ b/docs/AUTHORS.md @@ -12,382 +12,382 @@ Names below are sorted alphabetically. Author -- -- Marius Vollmer +- Marius Vollmer Maintainer -- -- Jonas Bernoulli +- Jonas Bernoulli Developers -- -- Kyle Meyer -- Noam Postavsky +- Kyle Meyer +- Noam Postavsky Retired Maintainers and Developers -- -- Nicolas Dudebout -- Peter J. Weisberg -- Pieter Praet -- Phil Jackson -- Rémi Vanicat -- Yann Hodique +- Nicolas Dudebout +- Peter J. Weisberg +- Pieter Praet +- Phil Jackson +- Rémi Vanicat +- Yann Hodique Contributors -- Aaron Culich -- Aaron L. Zeng -- Aaron Madlon-Kay -- Abdo Roig-Maranges -- Adam Benanti <0entr...@protonmail.com> -- Adam Kruszewski -- Adam Porter -- Adam Spiers -- Adeodato Simó -- Ævar Arnfjörð Bjarmason -- Alan Falloon -- Alban Gruin -- Aleksey Uimanov -- Alexander Gramiak -- Alexander Miller -- Alex Branham -- Alex Dunn -- Alexey Voinov -- Alex Kost -- Alex Ott -- Allen Li -- Andreas Fuchs -- Andreas Liljeqvist -- Andreas Rottmann -- Andrei Chițu -- Andrew Eggenberger -- Andrew Kirkpatrick -- Andrew Psaltis -- Andrew Schwartzmeyer -- Andrey Smirnov -- Andriy Kmit' -- Andy Sawyer -- Angel de Vicente -- Aria Edmonds -- Arialdo Martini -- Arnau Roig Ninerola -- Ashlynn Anderson -- Barak A. Pearlmutter -- Bar Magal -- Bart Bakker -- Basil L. Contovounesios -- Bastian Beischer -- Bastian Beranek -- Benjamin Motz -- Ben North -- Ben Walton -- Bob Uhl -- Boruch Baum -- Bradley Wright -- Brandon W Maister -- Brennan Vincent -- Brian Leung -- Brian Warner -- Bryan Shell -- Buster Copley -- Cameron Chaparro -- Carl Lieberman -- Chillar Anand -- Chris Bernard -- Chris Done -- Chris LaRose -- Chris Moore -- Chris Ring -- Chris Shoemaker -- Christian Dietrich -- Christian Kluge -- Christophe Junke -- Christopher Monsanto -- Clément Pit-Claudel -- Cornelius Mika -- Craig Andera -- Dale Hagglund -- Damien Cassou -- Dan Davison -- Dan Erikson -- Daniel Brockman -- Daniel Farina -- Daniel Fleischer -- Daniel Gröber -- Daniel Hackney -- Daniel Kraus -- Daniel Mai -- Daniel Martín -- Daniel Nagy -- Dan Kessler -- Dan LaManna -- Danny Zhu -- Dato Simó -- David Abrahams -- David Ellison -- David Hull -- David L. Rager -- David Wallin -- Dean Kariniemi <8913263+d3...@users.noreply.github.com> -- Dennis Paskorz -- Divye Kapoor -- Dominique Quatravaux -- Duianto Vebotci -- Eli Barzilay -- Eric Davis -- Eric -- Eric Prud'hommeaux -- Eric Schulte -- Erik Anderson -- Evan Torrie -- Evgkeni Sampelnikof -- Eyal Lotem -- Fabian Wiget -- Felix Geller -- Felix Yan -- Feng Li -- Florian Ragwitz -- Franklin Delehelle -- Frédéric Giquel -- Fritz Grabo -- Fritz Stelzer -- Geoff Shannon -- George Kadianakis -- Géza Herman -- Graham Clark -- Graham Dobbins -- Greg A. Woods -- Greg Lucas -- Gregory Heytings -- Greg Sexton -- Greg Steuck -- Guillaume Martres -- Hannu Koivisto -- Hans-Peter Deifel -- Hussein Ait-Lahcen -- Ian Eure -- Ian Milligan -- Ilya Grigoriev -- Ingmar Sittl -- Ingo Lohmar -- Ioan-Adrian Ratiu -- Ivan Brennan -- Jan Tatarik -- Jasper St. Pierre -- Jeff Bellegarde -- Jeff Dairiki -- Jeremy Meng -- Jesse Alama -- Jim Blandy -- Joakim Jalap -- Johannes Altmanninger -- Johann Klähn -- John Mastro -- John Morris -- John Wiegley -- Jonas Bernoulli -- Jonas Galvão Xavier -- Jonathan Arnett -- Jonathan del Strother -- Jonathan Leech-Pepin -- Jonathan Roes -- Jonathon McKitrick -- Jon Vanderwijk -- Jordan Galby -- Jordan Greenberg -- Jorge Israel Peña -- Josh Elsasser -- Josiah Schwab -- Julien Danjou -- Justin Burkett -- Justin Caratzas -- Justin Guenther -- Justin Thomas -- Kan-Ru Chen -- Kenny Ballou -- Keshav Kini -- Kevin Brubeck Unhammer -- Kevin J. Foley -- Kévin Le Gouguec -- Kimberly Wolk -- Knut Olav Bøhmer -- Kyle Meyer -- Laurent Laffont -- Laverne Schrock -- Leandro Facchinetti -- Lele Gaifax -- Leo Liu -- Leonardo Etcheverry -- Leo Vivier -- Lingchao Xin -- Lin Sun -- Li-Yun Chang -- Lluís Vilanova -- Loic Dachary -- Louis Roché -- Luís Oliveira -- Luke Amdor -- Magnus Malm -- Mak Kolybabi -- Manuel Vázquez Acosta -- Marcel Wolf -- Marc Herbert -- Marcin Bachry -- Marco Craveiro -- Marco Wahl -- Marc Sherry -- Marian Schubert -- Mario Rodas -- Marius Vollmer -- Mark Hepburn -- Mark Karpov -- Mark Oteiza -- Martin Joerg -- Martin Polden -- Matthew Fluet -- Matthew Kraai -- Ma
[nongnu] elpa/geiser 77adf19d38: Byte-compilation warnings fixed
branch: elpa/geiser commit 77adf19d3812ecfd821d250f8bc1eb821a88ee92 Author: jao Commit: jao Byte-compilation warnings fixed And, actually, fixing bugs: the warnings weren't spurious. --- elisp/geiser-autodoc.el | 7 --- elisp/geiser-company.el | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el index 674e0dd5d6..1ce2936b86 100644 --- a/elisp/geiser-autodoc.el +++ b/elisp/geiser-autodoc.el @@ -91,6 +91,8 @@ when `geiser-autodoc-display-module-p' is on." (format "(#%s)" (car a (t (geiser-syntax--display a +(defvar geiser-autodoc--arg-face 'geiser-font-lock-autodoc-current-arg) + (defun geiser-autodoc--insert-arg-group (args current &optional pos) (when args (insert " ")) (dolist (a (geiser-autodoc--sanitize-args args)) @@ -103,8 +105,7 @@ when `geiser-autodoc-display-module-p' is on." (and (geiser-syntax--keywordp current) (listp a) (geiser-syntax--symbol-eq current (car a -(put-text-property p (point) - 'face 'geiser-font-lock-autodoc-current-arg) +(put-text-property p (point) 'face geiser-autodoc--arg-face) (setq pos nil current nil))) (insert " ")) (when args (backward-char)) @@ -134,7 +135,7 @@ when `geiser-autodoc-display-module-p' is on." (propertize str 'face 'geiser-font-lock-autodoc-identifier))) (defun geiser-autodoc--str* (full-signature) - (let ((geiser-font-lock-autodoc-current-arg 'default) + (let ((geiser-autodoc--arg-face 'default) (sign (if (listp full-signature) full-signature (list full-signature (geiser-autodoc--str (list (car sign)) sign))) diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el index 1383584354..adc3654b6a 100644 --- a/elisp/geiser-company.el +++ b/elisp/geiser-company.el @@ -36,7 +36,7 @@ (defun geiser-company--doc (id) (ignore-errors (when (not (geiser-autodoc--inhibit)) - (let ((help (geiser-autodoc--autodoc `((,id 0) + (let ((help (geiser-autodoc--autodoc `((,id 0)) nil))) (and help (substring-no-properties help)) (defun geiser-company--doc-buffer (id)
[elpa] externals/embark 16d15639c5: Call exporter before quitting minibuffer
branch: externals/embark commit 16d15639c57b6450286245798337c65a74dbcf49 Author: Omar Antolín Commit: Omar Antolín Call exporter before quitting minibuffer We discussed this over at minad/consult#557 --- embark.el | 7 +-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/embark.el b/embark.el index 4cc4f55222..d17a231c6e 100644 --- a/embark.el +++ b/embark.el @@ -2999,10 +2999,13 @@ the minibuffer contents, and, if you wish, you can rerun (let ((after embark-after-export-hook) (cmd embark--command) (name (embark--descriptive-buffer-name 'export)) - (revert (embark--revert-function #'embark-export))) + (revert (embark--revert-function #'embark-export)) + (buffer (save-excursion +(funcall exporter candidates) +(current-buffer (embark--quit-and-run (lambda () - (funcall exporter candidates) + (pop-to-buffer buffer) (rename-buffer name t) (setq-local revert-buffer-function revert) (let ((embark-after-export-hook after)
[elpa] externals/embark-consult updated (29e227f7ec -> 16d15639c5)
elpasync pushed a change to branch externals/embark-consult. from 29e227f7ec Use selected-window in xref exporter adds 16d15639c5 Call exporter before quitting minibuffer No new revisions were added by this update. Summary of changes: embark.el | 7 +-- 1 file changed, 5 insertions(+), 2 deletions(-)
[elpa] externals/embark 573f2bd12e 1/2: Revert functionality for xref export buffers
branch: externals/embark commit 573f2bd12e339e5a50ef9e464e90436d9ab9ce6e Author: Omar Antolín Commit: Omar Antolín Revert functionality for xref export buffers --- embark-consult.el | 36 +++- 1 file changed, 27 insertions(+), 9 deletions(-) diff --git a/embark-consult.el b/embark-consult.el index 2187451583..171081314c 100644 --- a/embark-consult.el +++ b/embark-consult.el @@ -218,15 +218,33 @@ This function is meant to be added to `embark-collect-mode-hook'." (defun embark-consult-export-xref (items) "Create an xref buffer listing ITEMS." - (let ((xref-items (mapcar (lambda (item) - (get-text-property 0 'consult-xref item)) -items))) -(set-buffer - (xref--show-xref-buffer - (lambda () xref-items) - `((window . ,(selected-window)) -(auto-jump . ,xref-auto-jump-to-first-xref) -(display-action)) + (cl-flet ((xref-items (items) + (mapcar (lambda (item) (get-text-property 0 'consult-xref item)) + items))) +(let ((fetcher consult-xref--fetcher) + (input (minibuffer-contents))) + (set-buffer + (xref--show-xref-buffer +(lambda () + (catch 'xref-items +(minibuffer-with-setup-hook +(lambda () + (insert input) + (add-hook 'minibuffer-exit-hook +(lambda () + (throw 'xref-items +(xref-items + (or + (plist-get + (embark--maybe-transform-candidates) + :candidates) + (user-error "No candidates for export") +nil t)) + (consult-xref fetcher +`((fetched-xrefs . ,(xref-items items)) + (window . ,(embark--target-window)) + (auto-jump . ,xref-auto-jump-to-first-xref) + (display-action))) (setf (alist-get 'consult-xref embark-exporters-alist) #'embark-consult-export-xref)
[elpa] externals/embark-consult updated (16d15639c5 -> cd40fe19c2)
elpasync pushed a change to branch externals/embark-consult. from 16d15639c5 Call exporter before quitting minibuffer adds 573f2bd12e Revert functionality for xref export buffers adds cd40fe19c2 Shorten export and collect buffer names slightly No new revisions were added by this update. Summary of changes: embark-consult.el | 36 +++- embark.el | 2 +- 2 files changed, 28 insertions(+), 10 deletions(-)
[elpa] externals/embark cd40fe19c2 2/2: Shorten export and collect buffer names slightly
branch: externals/embark commit cd40fe19c2b06eb0eae0177aaf1946410dd5e69e Author: Omar Antolín Commit: Omar Antolín Shorten export and collect buffer names slightly See discussion in #492. --- embark.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/embark.el b/embark.el index d17a231c6e..b3846bfb8c 100644 --- a/embark.el +++ b/embark.el @@ -2887,7 +2887,7 @@ TYPE should be either `collect' or `export'." (format "*Embark %s: %s*" (capitalize (symbol-name type)) (if (minibufferp) - (format "M-x %s RET %s" embark--command + (format "%s - %s" embark--command (minibuffer-contents-no-properties)) (buffer-name
[elpa] externals/embark updated (16d15639c5 -> cd40fe19c2)
elpasync pushed a change to branch externals/embark. from 16d15639c5 Call exporter before quitting minibuffer new 573f2bd12e Revert functionality for xref export buffers new cd40fe19c2 Shorten export and collect buffer names slightly Summary of changes: embark-consult.el | 36 +++- embark.el | 2 +- 2 files changed, 28 insertions(+), 10 deletions(-)
[nongnu] elpa/helm updated (7ff0b93b79 -> f9593496f5)
elpasync pushed a change to branch elpa/helm. from 7ff0b93b79 Allow configuring split-string separator in helm async output (#2503, #2450) new 123a194314 Fix helm-info for info pages with no index new abc3c89d25 Fix cl--print-table advice for emacs-28 new f9593496f5 Fix helm-M-x prefix arg after resume Summary of changes: helm-command.el | 18 ++-- helm-info.el| 85 ++--- helm-lib.el | 16 +++ helm-source.el | 10 ++- 4 files changed, 91 insertions(+), 38 deletions(-)
[nongnu] elpa/helm f9593496f5 3/3: Fix helm-M-x prefix arg after resume
branch: elpa/helm commit f9593496f592302c1228b41ee53ce0995db0c5df Author: Thierry Volpiatto Commit: Thierry Volpiatto Fix helm-M-x prefix arg after resume --- helm-command.el | 18 +++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/helm-command.el b/helm-command.el index a794c4465d..4e709a3400 100644 --- a/helm-command.el +++ b/helm-command.el @@ -249,7 +249,19 @@ algorithm." (persistent-help :initform "Describe this command") (help-message :initform 'helm-M-x-help-message) (nomark :initform t) - (keymap :initform 'helm-M-x-map))) + (cleanup :initform #'helm-M-x--unwind-forms) + (keymap :initform 'helm-M-x-map) + (resume :initform 'helm-M-x-resume-fn))) + +(defun helm-M-x-resume-fn () + (when (and helm-M-x--timer (timerp helm-M-x--timer)) +(cancel-timer helm-M-x--timer) +(setq helm-M-x--timer nil)) + (setq helm-M-x--timer (run-at-time 1 0.1 'helm-M-x--notify-prefix-arg)) + (setq helm--mode-line-display-prefarg t) + ;; Prevent displaying a wrong prefix arg when helm-resume is called + ;; from prefix arg. + (setq current-prefix-arg nil)) (defun helm-M-x-read-extended-command (collection &optional predicate history) "Read or execute action on command name in COLLECTION or HISTORY. @@ -265,8 +277,8 @@ Arg COLLECTION should be an `obarray' but can be any object suitable for `try-completion'. Arg PREDICATE is a function that default to `commandp' see also `try-completion'. Arg HISTORY default to `extended-command-history'." - (let* ((helm--mode-line-display-prefarg t) - (pred (or predicate #'commandp)) + (setq helm--mode-line-display-prefarg t) + (let* ((pred (or predicate #'commandp)) (helm-fuzzy-sort-fn (lambda (candidates _source) ;; Sort on real candidate otherwise ;; "symbol ()" is used when sorting.
[nongnu] elpa/helm 123a194314 1/3: Fix helm-info for info pages with no index
branch: elpa/helm commit 123a194314886a268237ef3246537b36b5521032 Author: Thierry Volpiatto Commit: Thierry Volpiatto Fix helm-info for info pages with no index Some info files have no index and BTW `Info-index-nodes` returns nil resulting in empty sources in many helm-info* commands, also even when fixing this the action is not working, so fixed it as well. --- helm-info.el | 85 1 file changed, 57 insertions(+), 28 deletions(-) diff --git a/helm-info.el b/helm-info.el index e3df48fedb..310d1545da 100644 --- a/helm-info.el +++ b/helm-info.el @@ -51,6 +51,9 @@ files with `helm-info-at-point'." ;;; Build info-index sources with `helm-info-source' class. (cl-defun helm-info-init (&optional (file (helm-get-attr 'info-file))) + "Initialize candidates for info FILE. +If FILE have nodes, loop through all nodes and accumulate candidates +found in each node, otherwise scan only the current info buffer." ;; Allow reinit candidate buffer when using edebug. (helm-aif (and debug-on-error (helm-candidate-buffer)) @@ -59,41 +62,67 @@ files with `helm-info-at-point'." (save-selected-window (info file " *helm info temp buffer*") (let ((tobuf (helm-candidate-buffer 'global)) -Info-history -start end line) -(cl-dolist (node (Info-index-nodes)) - (Info-goto-node node) - (goto-char (point-min)) - (while (search-forward "\n* " nil t) -(unless (search-forward "Menu:\n" (1+ (point-at-eol)) t) - (setq start (point-at-bol) -;; Fix Bug#1503 by getting the invisible -;; info displayed on next line in long strings. -;; e.g "* Foo.\n (line 12)" instead of -;; "* Foo.(line 12)" -end (or (save-excursion - (goto-char (point-at-bol)) - (re-search-forward "(line +[0-9]+)" nil t)) -(point-at-eol)) -;; Long string have a new line inserted before the -;; invisible spec, remove it. -line (replace-regexp-in-string - "\n" "" (buffer-substring start end))) - (with-current-buffer tobuf -(insert line) -(insert "\n") +Info-history) +(helm-aif (Info-index-nodes) +(cl-dolist (node it) + (Info-goto-node node) + (helm-info-scan-current-buffer tobuf)) + (helm-info-scan-current-buffer tobuf)) (bury-buffer) +(defun helm-info-scan-current-buffer (tobuf) + "Scan current info buffer and print lines to TOBUF. +Argument TOBUF is the `helm-candidate-buffer'." + (let (start end line) +(goto-char (point-min)) +(while (search-forward "\n* " nil t) + (unless (search-forward "Menu:\n" (1+ (point-at-eol)) t) +(setq start (point-at-bol) + ;; Fix Bug#1503 by getting the invisible + ;; info displayed on next line in long strings. + ;; e.g "* Foo.\n (line 12)" instead of + ;; "* Foo.(line 12)" + end (or (save-excursion +(goto-char (point-at-bol)) +(re-search-forward "(line +[0-9]+)" nil t)) + (point-at-eol)) + ;; Long string have a new line inserted before the + ;; invisible spec, remove it. + line (replace-regexp-in-string +"\n" "" (buffer-substring start end))) +(with-current-buffer tobuf + (insert line) + (insert "\n")) + (defun helm-info-goto (node-line) + "The helm-info action to jump to NODE-LINE." (Info-goto-node (car node-line)) (helm-goto-line (cdr node-line))) +(defvar helm-info--node-regexp + "^\\* +\\(.+\\):[ \\t]+\\(.*\\)\\(?:[ \\t]*\\)(line +\\([0-9]+\\))" + "A regexp that should match file name, node name and line number in +a line like this: + +\* bind: Bash Builtins. (line 21).") + (defun helm-info-display-to-real (line) - (and (string-match -;; This regexp is stolen from Info-apropos-matches -"\\* +\\([^\n]*.+[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?" line) - (cons (format "(%s)%s" (helm-get-attr 'info-file) (match-string 2 line)) - (string-to-number (or (match-string 3 line) "1") + "Transform LINE to an acceptable argument for `info'. +If line have a node use the node, otherwise use directly first name found." + (let (nodename linum) +(when (string-match helm-info--node-regexp line) + (setq nodename (match-string 2 line) +linum(match-string 3 line))) +(if nodename +(cons (format "(%s)%s" + (helm-get-attr 'info-file
[nongnu] elpa/helm-core updated (7ff0b93b79 -> f9593496f5)
elpasync pushed a change to branch elpa/helm-core. from 7ff0b93b79 Allow configuring split-string separator in helm async output (#2503, #2450) adds 123a194314 Fix helm-info for info pages with no index adds abc3c89d25 Fix cl--print-table advice for emacs-28 adds f9593496f5 Fix helm-M-x prefix arg after resume No new revisions were added by this update. Summary of changes: helm-command.el | 18 ++-- helm-info.el| 85 ++--- helm-lib.el | 16 +++ helm-source.el | 10 ++- 4 files changed, 91 insertions(+), 38 deletions(-)
[nongnu] elpa/helm abc3c89d25 2/3: Fix cl--print-table advice for emacs-28
branch: elpa/helm commit abc3c89d256119902fd1583eefda5ab1a92a9a01 Author: Thierry Volpiatto Commit: Thierry Volpiatto Fix cl--print-table advice for emacs-28 --- helm-lib.el| 16 ++-- helm-source.el | 10 +- 2 files changed, 19 insertions(+), 7 deletions(-) diff --git a/helm-lib.el b/helm-lib.el index e3e9211d2a..01b652c4a1 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -42,7 +42,8 @@ (declare-function helm-log-run-hook "helm-core.el") (declare-function helm-marked-candidates "helm-core.el") (declare-function helm-set-case-fold-search "helm-core.el") -(declare-function helm-source--cl--print-table "helm-source.el") +(declare-function helm-source--cl--print-table-27 "helm-source.el") +(declare-function helm-source--cl--print-table-28 "helm-source.el") (declare-function helm-update "helm-core.el") (declare-function org-content "org.el") (declare-function org-mark-ring-goto "org.el") @@ -1215,11 +1216,14 @@ Example: (defun helm-describe-class (class) "Display documentation of Eieio CLASS, a symbol or a string." - (advice-add 'cl--print-table :override #'helm-source--cl--print-table '((depth . 100))) - (unwind-protect - (let ((helm-describe-function-function 'describe-function)) - (helm-describe-function class)) -(advice-remove 'cl--print-table #'helm-source--cl--print-table))) + (let ((fun (if (eq emacs-major-version 28) + #'helm-source--cl--print-table-28 + #'helm-source--cl--print-table-27))) +(advice-add 'cl--print-table :override fun '((depth . 100))) +(unwind-protect + (let ((helm-describe-function-function 'describe-function)) + (helm-describe-function class)) + (advice-remove 'cl--print-table fun (defun helm-describe-function (func) "Display documentation of FUNC, a symbol or string." diff --git a/helm-source.el b/helm-source.el index d916f256e8..d528cb44d4 100644 --- a/helm-source.el +++ b/helm-source.el @@ -44,7 +44,15 @@ ;; Make Classes's docstrings more readable by removing al the ;; unnecessary crap. -(defun helm-source--cl--print-table (_header rows) +(defun helm-source--cl--print-table-27 (_header rows) + "Advice for `cl--print-table' to make readable class slots docstrings." + (let ((format "%s\n\n Initform=%s\n\n%s")) +(dolist (row rows) + (setcar row (propertize (car row) 'face 'bold)) + (setcdr row (nthcdr 1 (cdr row))) + (insert "\n* " (apply #'format format row) "\n" + +(defun helm-source--cl--print-table-28 (_header rows &optional _unused) "Advice for `cl--print-table' to make readable class slots docstrings." (let ((format "%s\n\n Initform=%s\n\n%s")) (dolist (row rows)
[elpa] externals/hyperbole 28568d13db: Make release updates (#189)
branch: externals/hyperbole commit 28568d13dbd77612e367c5cb4a39e8fcbffac086 Author: Mats Lidell Commit: GitHub Make release updates (#189) * Remove elpa target, not useful due to automatic update from savannah * Remove git-push We should be on the latest sources ensured by the package target and it is a slightly dangerous command since user can be on any branch. * Add git checks and tag release * Add comment about automatic ELPA releases * Fix spelling --- ChangeLog | 13 + Makefile | 40 +++- 2 files changed, 32 insertions(+), 21 deletions(-) diff --git a/ChangeLog b/ChangeLog index 16cc2b5e38..604d7533b1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,16 @@ +2022-04-19 Mats Lidell + +* Makefile (elpa, elpa_hypb_dir): Remove elpa target. ELPA picks up latest +master from savannah automatically. +(git-push): Not needed. package target ensures we are on the latest +sources. +(git-verify-no-update): Verify no files have changed compared to master. +(git-tag-release): Tag the relase in git and push to origin. +(package): Use git-verify-no-update and skip autoloads, it happens later. +(release): Use git-tag-release as the last step after uploading with +ftp. +Add comment about automatic ELPA releases. + 2022-04-18 Mats Lidell * test/kotl-mode-tests.el (kotl-mode--add-cell-set-fill-attribute): Verify diff --git a/Makefile b/Makefile index 61d19a4631..a0ea35ef95 100644 --- a/Makefile +++ b/Makefile @@ -3,9 +3,9 @@ # Author: Bob Weiner # # Orig-Date:15-Jun-94 at 03:42:38 -# Last-Mod: 13-Mar-22 at 10:56:50 by Bob Weiner +# Last-Mod: 19-Apr-22 at 22:43:10 by Mats Lidell # -# Copyright (C) 1994-2021 Free Software Foundation, Inc. +# Copyright (C) 1994-2022 Free Software Foundation, Inc. # See the file HY-COPY for license information. # # This file is part of GNU Hyperbole. @@ -36,10 +36,15 @@ # To build only the output formats of the Hyperbole Manual: # make doc # +# Note: Releasing to ELPA is automatic in that the +# master branch on savannah is automatically synced +# daily by ELPA. The pkg and release targets are for +# making and uploading tar ball to ftp.gnu.org. +# # To assemble a Hyperbole Emacs package for testing: # make pkg # -# To release a Hyperbole Emacs package to ELPA and ftp.gnu.org: +# To release a Hyperbole Emacs package to ftp.gnu.org: # make release # # Generate the website sources prepared for upload: @@ -113,9 +118,6 @@ TEXI2PDF = makeinfo --pdf --no-split # Where to find the parent tree of the Hyperbole source directory. id_dir = $(HOME)/sw-dev/emacs -# Where to find the local clone of the Elpa Hyperbole package repository -elpa_hypb_dir = $(id_dir)/elpa/packages/hyperbole -id_dir = $(HOME)/sw-dev/emacs # Where to find the .texi source of the user manual. man_dir := $(shell pwd)/man # Where to install the Hyperbole mouse key help file @@ -377,30 +379,26 @@ website: # Generate a Hyperbole package suitable for distribution via the Emacs package manager. pkg: package -package: git-pull doc autoloads $(pkg_dir)/hyperbole-$(HYPB_VERSION).tar.sig +package: git-pull doc git-verify-no-update $(pkg_dir)/hyperbole-$(HYPB_VERSION).tar.sig -# Generate and distribute a Hyperbole release to GNU ELPA and ftp.gnu.org. +# Generate and distribute a Hyperbole release to ftp.gnu.org. # One step in this is to generate an autoloads file for the Koutliner, kotl/kotl-autoloads.el. -release: package git-push $(pkg_dir)/hyperbole-$(HYPB_VERSION).tar.gz elpa ftp - @ echo; echo "Hyperbole $(HYPB_VERSION) released to elpa and ftp.gnu.org successfully." +release: package $(pkg_dir)/hyperbole-$(HYPB_VERSION).tar.gz ftp git-tag-release + @ echo; echo "Hyperbole $(HYPB_VERSION) released to ftp.gnu.org successfully." # Ensure local hyperbole directory is synchronized with master before building a release. git-pull: + echo "If this step fails check your work directory for not committed changes" git checkout master && git pull git diff-index --quiet master -git-push: - git push - -# Once the release version number is updated in hyperbole.el and the release is pushed to -# git, ELPA will automatically check and build its Hyperbole archive, allowing users to -# update their packages of Hyperbole. ELPA does this twice a day now. -elpa: package - cd $(elpa_hypb_dir) && git pull http://git.savannah.gnu.org/r/hyperbole.git master \ - && git tag -s hyperbole-$(HYPB_VERSION) && git push +git-verify-no-update: + echo "If this step fails check your work directory for updated docs and push these to savannah" + git diff-index --quiet master -elpa-test: package - cd $(el
[elpa] externals/embark 5ad6fe2420: Update verbose indicator's embark actions exclude list
branch: externals/embark commit 5ad6fe2420fb29e5740e8acd8136c0aaa0b12921 Author: Omar Antolín Commit: Omar Antolín Update verbose indicator's embark actions exclude list --- embark.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/embark.el b/embark.el index b3846bfb8c..7663241b26 100644 --- a/embark.el +++ b/embark.el @@ -1371,8 +1371,9 @@ matching an element of this list." :type '(choice (const :tag "Exclude nothing" nil) (const :tag "Exclude Embark general actions" - (embark-collect embark-cycle embark-export - embark-keymap-help embark-become embark-isearch)) + (embark-collect embark-live embark-export + embark-cycle embark-act-all embark-keymap-help + embark-become embark-isearch)) (repeat :tag "Other" (choice regexp symbol (defcustom embark-verbose-indicator-buffer-sections
[elpa] externals/embark-consult updated (cd40fe19c2 -> 5ad6fe2420)
elpasync pushed a change to branch externals/embark-consult. from cd40fe19c2 Shorten export and collect buffer names slightly adds 5ad6fe2420 Update verbose indicator's embark actions exclude list No new revisions were added by this update. Summary of changes: embark.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-)
[nongnu] elpa/helm 658a11bd8a 1/2: Add comment, no code change.
branch: elpa/helm commit 658a11bd8a7bfa1d3441d0120858eeda9c1acb17 Author: Thierry Volpiatto Commit: Thierry Volpiatto Add comment, no code change. --- helm-info.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/helm-info.el b/helm-info.el index 310d1545da..eb1a0cce41 100644 --- a/helm-info.el +++ b/helm-info.el @@ -283,6 +283,9 @@ Info files are made available." (defun helm-info-at-point () "Preconfigured `helm' for searching info at point." (interactive) + ;; Symbol at point is used as default as long as one of the sources + ;; in `helm-info-default-sources' is member of + ;; `helm-sources-using-default-as-input'. (cl-loop for src in helm-info-default-sources for name = (if (symbolp src) (assoc 'name (symbol-value src))
[nongnu] elpa/helm updated (f9593496f5 -> dc0c082a45)
elpasync pushed a change to branch elpa/helm. from f9593496f5 Fix helm-M-x prefix arg after resume new 658a11bd8a Add comment, no code change. new dc0c082a45 Better fix for cl--print-table advice compatibility Summary of changes: helm-info.el | 3 +++ helm-lib.el| 16 ++-- helm-source.el | 23 --- 3 files changed, 17 insertions(+), 25 deletions(-)
[nongnu] elpa/helm-core updated (f9593496f5 -> dc0c082a45)
elpasync pushed a change to branch elpa/helm-core. from f9593496f5 Fix helm-M-x prefix arg after resume adds 658a11bd8a Add comment, no code change. adds dc0c082a45 Better fix for cl--print-table advice compatibility No new revisions were added by this update. Summary of changes: helm-info.el | 3 +++ helm-lib.el| 16 ++-- helm-source.el | 23 --- 3 files changed, 17 insertions(+), 25 deletions(-)
[nongnu] elpa/helm dc0c082a45 2/2: Better fix for cl--print-table advice compatibility
branch: elpa/helm commit dc0c082a451cfe25d35ba3b9b0c0fc2766cc8319 Author: Thierry Volpiatto Commit: Thierry Volpiatto Better fix for cl--print-table advice compatibility --- helm-lib.el| 16 ++-- helm-source.el | 23 --- 2 files changed, 14 insertions(+), 25 deletions(-) diff --git a/helm-lib.el b/helm-lib.el index 01b652c4a1..e3e9211d2a 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -42,8 +42,7 @@ (declare-function helm-log-run-hook "helm-core.el") (declare-function helm-marked-candidates "helm-core.el") (declare-function helm-set-case-fold-search "helm-core.el") -(declare-function helm-source--cl--print-table-27 "helm-source.el") -(declare-function helm-source--cl--print-table-28 "helm-source.el") +(declare-function helm-source--cl--print-table "helm-source.el") (declare-function helm-update "helm-core.el") (declare-function org-content "org.el") (declare-function org-mark-ring-goto "org.el") @@ -1216,14 +1215,11 @@ Example: (defun helm-describe-class (class) "Display documentation of Eieio CLASS, a symbol or a string." - (let ((fun (if (eq emacs-major-version 28) - #'helm-source--cl--print-table-28 - #'helm-source--cl--print-table-27))) -(advice-add 'cl--print-table :override fun '((depth . 100))) -(unwind-protect - (let ((helm-describe-function-function 'describe-function)) - (helm-describe-function class)) - (advice-remove 'cl--print-table fun + (advice-add 'cl--print-table :override #'helm-source--cl--print-table '((depth . 100))) + (unwind-protect + (let ((helm-describe-function-function 'describe-function)) + (helm-describe-function class)) +(advice-remove 'cl--print-table #'helm-source--cl--print-table))) (defun helm-describe-function (func) "Display documentation of FUNC, a symbol or string." diff --git a/helm-source.el b/helm-source.el index d528cb44d4..0325598c99 100644 --- a/helm-source.el +++ b/helm-source.el @@ -44,22 +44,15 @@ ;; Make Classes's docstrings more readable by removing al the ;; unnecessary crap. -(defun helm-source--cl--print-table-27 (_header rows) +(defun helm-source--cl--print-table (&rest args) "Advice for `cl--print-table' to make readable class slots docstrings." - (let ((format "%s\n\n Initform=%s\n\n%s")) -(dolist (row rows) - (setcar row (propertize (car row) 'face 'bold)) - (setcdr row (nthcdr 1 (cdr row))) - (insert "\n* " (apply #'format format row) "\n" - -(defun helm-source--cl--print-table-28 (_header rows &optional _unused) - "Advice for `cl--print-table' to make readable class slots docstrings." - (let ((format "%s\n\n Initform=%s\n\n%s")) -(dolist (row rows) - (setcar row (propertize (car row) 'face 'bold)) - (setcdr row (nthcdr 1 (cdr row))) - (insert "\n* " (apply #'format format row) "\n" - + (cl-flet ((print-rows (rows) + (let ((format "%s\n\n Initform=%s\n\n%s")) +(dolist (row rows) + (setcar row (propertize (car row) 'face 'bold)) + (setcdr row (nthcdr 1 (cdr row))) + (insert "\n* " (apply #'format format row) "\n") +(print-rows (cadr args (cl-defgeneric helm--setup-source (source) "Prepare slots and handle slot errors before creating a helm source.")
[nongnu] elpa/telephone-line 2d8bce830b 1/2: add segment for perspective-mode
branch: elpa/telephone-line commit 2d8bce830b5fe3463185c7c9b05bcd871714fc51 Author: Mohammed Ismail Ansari Commit: GitHub add segment for perspective-mode --- telephone-line-segments.el | 4 1 file changed, 4 insertions(+) diff --git a/telephone-line-segments.el b/telephone-line-segments.el index 520c6e515f..107a5c2a0e 100644 --- a/telephone-line-segments.el +++ b/telephone-line-segments.el @@ -350,6 +350,10 @@ Configure the face group telephone-line-evil to change the colors per-mode." (when (bound-and-true-p workgroups-mode) (telephone-line-raw (wg-mode-line-string) t))) +(telephone-line-defsegment* telephone-line-perspective-segment () + (when (bound-and-true-p persp-mode) +(telephone-line-raw (persp-mode-line) t))) + (telephone-line-defsegment* telephone-line-nyan-segment () (when (bound-and-true-p nyan-mode) (nyan-create)))
[nongnu] elpa/telephone-line 6f3455a365 2/2: Merge pull request #129 from myTerminal/patch-1
branch: elpa/telephone-line commit 6f3455a365912e8f0c45a2240ea79507dee45ade Merge: 7a0ba06db8 2d8bce830b Author: Daniel Bordak Commit: GitHub Merge pull request #129 from myTerminal/patch-1 add segment for perspective-mode --- telephone-line-segments.el | 4 1 file changed, 4 insertions(+) diff --git a/telephone-line-segments.el b/telephone-line-segments.el index 520c6e515f..107a5c2a0e 100644 --- a/telephone-line-segments.el +++ b/telephone-line-segments.el @@ -350,6 +350,10 @@ Configure the face group telephone-line-evil to change the colors per-mode." (when (bound-and-true-p workgroups-mode) (telephone-line-raw (wg-mode-line-string) t))) +(telephone-line-defsegment* telephone-line-perspective-segment () + (when (bound-and-true-p persp-mode) +(telephone-line-raw (persp-mode-line) t))) + (telephone-line-defsegment* telephone-line-nyan-segment () (when (bound-and-true-p nyan-mode) (nyan-create)))
[elpa] externals/org 96529e933b: org-element-export-snippet-parser: Fix snippets without ending @@
branch: externals/org commit 96529e933b445dce52e4e904695f1d538c3e0e7f Author: Ihor Radchenko Commit: Ihor Radchenko org-element-export-snippet-parser: Fix snippets without ending @@ * lisp/org-element.el (org-element-export-snippet-parser): Do not recognise snippets without closing @@ as empty "@@backend:" snippets. Example: @@html:fo aksjdaksjd ajs d askdjas aksj daj sao@@ Reported in https://github.com/lucasvreis/org-parser/blob/master/SPEC.org#export-snippets --- lisp/org-element.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 28339c1b84..fc4e0e43a0 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3200,8 +3200,9 @@ Assume point is at the beginning of the snippet." (when (and (looking-at "@@\\([-A-Za-z0-9]+\\):") (setq contents-end (save-match-data (goto-char (match-end 0)) - (re-search-forward "@@" nil t) - (match-beginning 0 +(when + (re-search-forward "@@" nil t) + (match-beginning 0) (let* ((begin (match-beginning 0)) (back-end (match-string-no-properties 1)) (value (buffer-substring-no-properties
[nongnu] elpa/org-contrib a33dd6f117: Rename some obsolete functions to their newer names
branch: elpa/org-contrib commit a33dd6f11756e5755dfd1b3a2ded6098ae8bf872 Author: Ihor Radchenko Commit: Ihor Radchenko Rename some obsolete functions to their newer names * lisp/org-bibtex-extras.el (obe-meta-to-json): * lisp/org-choose.el (org-choose-filter-tail): * lisp/org-screenshot.el (org-screenshot-generate-file-name): (org-screenshot-rotation-init): (org-screenshot-take): (org-screenshot-do-rotate): * lisp/ox-taskjuggler.el (org-taskjuggler-format-dependencies): `incf' -> `cl-incf'; `plusp' -> `cl-plusp'. Reported in https://orgmode.org/list/875yn53r1j@gmail.com --- lisp/org-bibtex-extras.el | 2 +- lisp/org-choose.el| 2 +- lisp/org-screenshot.el| 12 ++-- lisp/ox-taskjuggler.el| 4 ++-- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/org-bibtex-extras.el b/lisp/org-bibtex-extras.el index 1374c997e9..cc53f8b6ae 100644 --- a/lisp/org-bibtex-extras.el +++ b/lisp/org-bibtex-extras.el @@ -103,7 +103,7 @@ For example, to point to your `obe-bibtex-file' use the following. (col (k) (mapcar (lambda (r) (cdr (assoc k r))) meta)) (add (lst) (dolist (el lst) (push (cons el counter) nodes)) - (incf counter))) + (cl-incf counter))) ;; build the nodes of the graph (add (col :title)) (add (remove-if (lambda (author) (string-match "others" author)) diff --git a/lisp/org-choose.el b/lisp/org-choose.el index ef5eca49d6..8491a57bb7 100644 --- a/lisp/org-choose.el +++ b/lisp/org-choose.el @@ -201,7 +201,7 @@ interpretation." (setq top-upper-range index)) ((eq type 'default-mark) (setq static-default index))) - (incf index) + (cl-incf index) (push vanilla-text all-mark-texts) (push vanilla-mark vanilla-list))) diff --git a/lisp/org-screenshot.el b/lisp/org-screenshot.el index 1e8e1e900d..35b9deef6e 100644 --- a/lisp/org-screenshot.el +++ b/lisp/org-screenshot.el @@ -182,7 +182,7 @@ times. Returns just the file, without directory part" (case-fold-search nil)) (while (and (< tries org-screenshot-max-tries) (not name)) -(incf tries) +(cl-incf tries) (let ((tmp org-screenshot-file-name-format) (seq-re "%[-0-9.]*d") (rand-re "%X+")) @@ -282,7 +282,7 @@ screenshot is done, any more `C-u' after that increases delay by ((integerp delay) delay) ((and (consp delay) (integerp (car delay)) -(plusp (car delay))) +(cl-plusp (car delay))) (let ((num 1) (limit (car delay)) (cnt 0)) @@ -307,11 +307,11 @@ screenshot is done, any more `C-u' after that increases delay by (apply 'start-process (append (list "scrot" "*scrot*" "scrot" "-s" path) - (when (plusp delay) + (when (cl-plusp delay) (list "-d" (format "%d" delay) (error "Unable to start scrot process"))) (when org-screenshot-process - (if (plusp delay) + (if (cl-plusp delay) (message "Click on a window, or select a rectangle (delay is %d sec)..." delay) (message "Click on a window, or select a rectangle...")) @@ -351,7 +351,7 @@ by most recent first" (> mtime1 mtime2))) (let ((n -1) (list org-screenshot-file-list)) (while (and list (not (equal (pop list) lastfile))) - (incf n)) + (cl-incf n)) (setq org-screenshot-rotation-index n))) (defun org-screenshot-do-rotate (dir from-continue-rotating) @@ -396,7 +396,7 @@ other direction" ;; advance one more time (when (equal oldfile newfile) (setq org-screenshot-rotation-index - (mod (+ org-screenshot-rotation-index (if (plusp dir) 1 -1)) + (mod (+ org-screenshot-rotation-index (if (cl-plusp dir) 1 -1)) (length org-screenshot-file-list)) newfile (nth org-screenshot-rotation-index org-screenshot-file-list))) diff --git a/lisp/ox-taskjuggler.el b/lisp/ox-taskjuggler.el index 50014d89f2..47978a6e15 100644 --- a/lisp/ox-taskjuggler.el +++ b/lisp/ox-taskjuggler.el @@ -608,8 +608,8 @@ doesn't include leading \"depends\"." ;; Compute number of exclamation marks by looking for the ;; common ancestor between TASK and DEP. (while (not (org-element-map parent 'headline - (lambda (hl) (eq hl dep - (incf exclamations) + (lambda (hl) (eq hl dep + (cl-incf exclamations) (setq parent (org-export-get-parent parent))) ;; Build path from DEP to PARENT. (whil
