[nongnu] elpa/helm 7810a986c7 3/3: Filter out vc packages from "Others" and fix helm-packages buffer name
branch: elpa/helm
commit 7810a986c7666ff048cf692613f1c359e69c8b31
Author: Thierry Volpiatto
Commit: Thierry Volpiatto
Filter out vc packages from "Others" and fix helm-packages buffer name
---
helm-packages.el | 6 --
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 6640badf28..777e44d558 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -162,7 +162,7 @@ as dependencies."
for status = (package-desc-status id)
unless (or (and id (member
status
- '("installed"
"dependency")))
+ '("installed"
"dependency" "source")))
(and id (assoc sym
package--builtins)))
nconc (list (car p)))
:coerce #'helm-symbolify
@@ -175,6 +175,8 @@ as dependencies."
("Install packages(s)" .
helm-packages-install)))
(helm-build-in-buffer-source "Available built-in packages"
:data (cl-loop for p in package--builtins
+ ;; Show only builtins that are available
as
+ ;; well on (m)elpa.
when (package-desc-p
(package-get-descriptor (car p)))
collect (car p))
:coerce #'helm-symbolify
@@ -185,7 +187,7 @@ as dependencies."
:action '(("Describe package" . helm-packages-describe)
("Visit homepage" .
helm-packages-visit-homepage)
("Install packages(s)" .
helm-packages-install
- :buffer "*helm test*")))
+ :buffer "*helm packages*")))
(provide 'helm-packages)
[nongnu] elpa/helm 37b12535f1 1/3: Add package built-in source for helm-packages
branch: elpa/helm
commit 37b12535f1090fce6b200340b5b4d4c18a85dc1b
Author: Thierry Volpiatto
Commit: Thierry Volpiatto
Add package built-in source for helm-packages
---
helm-packages.el | 12
1 file changed, 12 insertions(+)
diff --git a/helm-packages.el b/helm-packages.el
index 44fe66920d..900bb7f4c9 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -167,6 +167,18 @@ as dependencies."
nconc (list (car p)))
:coerce #'helm-symbolify
:filtered-candidate-transformer
+ '(helm-packages-transformer
+(lambda (candidates _source)
+ (sort candidates #'helm-generic-sort-fn)))
+ :action '(("Describe package" . helm-packages-describe)
+("Visit homepage" .
helm-packages-visit-homepage)
+("Install packages(s)" .
helm-packages-install)))
+(helm-build-in-buffer-source "Built-in packages"
+ :data (cl-loop for p in package--builtins
+ when (package-desc-p
(package-get-descriptor (car p)))
+ collect (car p))
+ :coerce #'helm-symbolify
+ :filtered-candidate-transformer
'(helm-packages-transformer
(lambda (candidates _source)
(sort candidates #'helm-generic-sort-fn)))
[nongnu] elpa/helm 5281fbfb44 2/3: Change title of helm-packages sources
branch: elpa/helm
commit 5281fbfb44c514e1534fe80c54b358d4b930df93
Author: Thierry Volpiatto
Commit: Thierry Volpiatto
Change title of helm-packages sources
---
helm-packages.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 900bb7f4c9..6640badf28 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -155,7 +155,7 @@ as dependencies."
("Reinstall package(s)" .
helm-packages-package-reinstall)
("Recompile package(s)" .
helm-packages-recompile)
("Uninstall package(s)" .
helm-packages-uninstall)))
-(helm-build-in-buffer-source "Other packages"
+(helm-build-in-buffer-source "Available external packages"
:data (cl-loop for p in package-archive-contents
for sym = (car p)
for id = (package-get-descriptor sym)
@@ -173,7 +173,7 @@ as dependencies."
:action '(("Describe package" . helm-packages-describe)
("Visit homepage" .
helm-packages-visit-homepage)
("Install packages(s)" .
helm-packages-install)))
-(helm-build-in-buffer-source "Built-in packages"
+(helm-build-in-buffer-source "Available built-in packages"
:data (cl-loop for p in package--builtins
when (package-desc-p
(package-get-descriptor (car p)))
collect (car p))
[nongnu] elpa/helm-core updated (90ce35979a -> 7810a986c7)
elpasync pushed a change to branch elpa/helm-core. from 90ce35979a Add missing docstrings adds 37b12535f1 Add package built-in source for helm-packages adds 5281fbfb44 Change title of helm-packages sources adds 7810a986c7 Filter out vc packages from "Others" and fix helm-packages buffer name No new revisions were added by this update. Summary of changes: helm-packages.el | 20 +--- 1 file changed, 17 insertions(+), 3 deletions(-)
[nongnu] elpa/helm updated (90ce35979a -> 7810a986c7)
elpasync pushed a change to branch elpa/helm. from 90ce35979a Add missing docstrings new 37b12535f1 Add package built-in source for helm-packages new 5281fbfb44 Change title of helm-packages sources new 7810a986c7 Filter out vc packages from "Others" and fix helm-packages buffer name Summary of changes: helm-packages.el | 20 +--- 1 file changed, 17 insertions(+), 3 deletions(-)
[elpa] externals/org updated (cc435cba71 -> f78a3c2bdc)
elpasync pushed a change to branch externals/org. from cc435cba71 lisp/ob-core.el: Fix some docstrings that do not detail all the arguments new 4cf0b0433d org-id-find-id-in-file: Prefer using temporary buffer new 2cf245810b org-lint-invalid-id-link: Improve performance new b2e34474f5 org-lint: Allow jumping outside narrowing when jumping to source new f78a3c2bdc lisp/ob-lilypond.el: Prevent full page results in basic-mode Summary of changes: lisp/ob-lilypond.el | 32 ++-- lisp/org-id.el | 13 ++--- lisp/org-lint.el| 8 +++- 3 files changed, 43 insertions(+), 10 deletions(-)
[elpa] externals/org 4cf0b0433d 1/4: org-id-find-id-in-file: Prefer using temporary buffer
branch: externals/org commit 4cf0b0433d8ea892d3a086360e318c1cd5781829 Author: Ihor Radchenko Commit: Ihor Radchenko org-id-find-id-in-file: Prefer using temporary buffer * lisp/org-id.el (org-id-find-id-in-file): Use a temporary throwaway Org buffer to lookup IDs when we do not need to keep the buffer. This speeds up updating IDs. --- lisp/org-id.el | 13 ++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/org-id.el b/lisp/org-id.el index be8c0bd33e..a2c452b440 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -675,16 +675,23 @@ optional argument MARKERP, return the position as a new marker." ((not (file-exists-p file)) nil) (t (let* ((visiting (find-buffer-visiting file)) - (buffer (or visiting (find-file-noselect file + (buffer (or visiting + (if markerp (find-file-noselect file) + (get-buffer-create " *Org ID temp*" t) (unwind-protect (with-current-buffer buffer +(unless (derived-mode-p 'org-mode) (org-mode)) +(unless (or visiting markerp) + (buffer-disable-undo) + (insert-file-contents file nil nil nil 'replace)) (let ((pos (org-find-entry-with-id id))) (cond ((null pos) nil) (markerp (move-marker (make-marker) pos buffer)) (t (cons file pos) - ;; Remove opened buffer in the process. - (unless (or visiting markerp) (kill-buffer buffer))) + ;; Clean temporarily buffer if we don't need to keep it. + (unless (or visiting markerp) + (with-current-buffer buffer (erase-buffer ;; id link type
[elpa] externals/org f78a3c2bdc 4/4: lisp/ob-lilypond.el: Prevent full page results in basic-mode
branch: externals/org
commit f78a3c2bdcc9c88bcfb8a4aed7f7b4378534afac
Author: Jonathan Gregory
Commit: Ihor Radchenko
lisp/ob-lilypond.el: Prevent full page results in basic-mode
* ob-lilypond.el (org-babel-lilypond-paper-settings): New variable.
* lisp/ob-lilypond.el (org-babel-lilypond-process-basic): Pass the new
variable value to correctly set paper size on the generated transcript.
Link: https://list.orgmode.org/87a5w15jur.fsf@localhost/
TINYCHANGE
---
lisp/ob-lilypond.el | 32 ++--
1 file changed, 26 insertions(+), 6 deletions(-)
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index a4fab00e04..8b2bd231fd 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -173,31 +173,51 @@ specific arguments to =org-babel-tangle=."
(if (org-babel-tangle nil "yes" "lilypond")
(org-babel-lilypond-execute-tangled-ly) nil))
+;; https://lilypond.org/doc/v2.24/Documentation/usage/other-programs
+(defvar org-babel-lilypond-paper-settings
+ "#(if (ly:get-option 'use-paper-size-for-page)
+(begin (ly:set-option 'use-paper-size-for-page #f)
+ (ly:set-option 'tall-page-formats '%s)))
+\\paper {
+ indent=0\\mm
+ tagline=\"\"
+ oddFooterMarkup=##f
+ oddHeaderMarkup=##f
+ bookTitleMarkup=##f
+ scoreTitleMarkup=##f
+}\n"
+ "The paper settings required to generate music fragments.
+They are needed for mixing music and text in basic-mode.")
+
(defun org-babel-lilypond-process-basic (body params)
"Execute a lilypond block in basic mode."
(let* ((out-file (cdr (assq :file params)))
+ (file-type (file-name-extension out-file))
(cmdline (or (cdr (assq :cmdline params))
""))
(in-file (org-babel-temp-file "lilypond-")))
(with-temp-file in-file
- (insert (org-babel-expand-body:generic body params)))
+ (insert
+ (format org-babel-lilypond-paper-settings file-type)
+ (org-babel-expand-body:generic body params)))
(org-babel-eval
(concat
org-babel-lilypond-ly-command
" -dbackend=eps "
"-dno-gs-load-fonts "
"-dinclude-eps-fonts "
- (or (cdr (assoc (file-name-extension out-file)
- '(("pdf" . "--pdf ")
- ("ps" . "--ps ")
- ("png" . "--png "
+ (or (assoc-default file-type
+ '(("pdf" . "--pdf ")
+ ("eps" . "--eps ")))
"--png ")
"--output="
(file-name-sans-extension out-file)
" "
cmdline
- in-file) "")) nil)
+ in-file)
+ ""))
+ nil)
(defun org-babel-prep-session:lilypond (_session _params)
"Return an error because LilyPond exporter does not support sessions."
[elpa] externals/org b2e34474f5 3/4: org-lint: Allow jumping outside narrowing when jumping to source
branch: externals/org commit b2e34474f5930dbe6e5449d3b017b4d7c983af3d Author: Ihor Radchenko Commit: Ihor Radchenko org-lint: Allow jumping outside narrowing when jumping to source * lisp/org-lint.el (org-lint--jump-to-source): When buffer is narrowed and the location to jump is outside the narrowing, widen. --- lisp/org-lint.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/org-lint.el b/lisp/org-lint.el index 0e0bbea66d..d0f6994215 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -274,6 +274,7 @@ CHECKERS is the list of checkers used." (interactive) (let ((mk (org-lint--current-marker))) (switch-to-buffer-other-window org-lint--source-buffer) +(unless (<= (point-min) mk (point-max)) (widen)) (goto-char mk) (org-fold-show-set-visibility 'local) (recenter)))
[elpa] externals/org 2cf245810b 2/4: org-lint-invalid-id-link: Improve performance
branch: externals/org commit 2cf245810b7df0d7dcf0717cb78de11930bd Author: Ihor Radchenko Commit: Ihor Radchenko org-lint-invalid-id-link: Improve performance * lisp/org-lint.el (org-lint-invalid-id-link): Do not try to search for exact position of every ID. Instead, sync all the ID locations once and then make use of the up-to-date locations state to query if an ID is present. --- lisp/org-lint.el | 7 ++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/org-lint.el b/lisp/org-lint.el index bb8e7c7c21..0e0bbea66d 100644 --- a/lisp/org-lint.el +++ b/lisp/org-lint.el @@ -584,11 +584,16 @@ Use :header-args: instead" path) (defun org-lint-invalid-id-link (ast) + (org-id-update-id-locations nil t) (org-element-map ast 'link (lambda (link) (let ((id (org-element-property :path link))) (and (equal (org-element-property :type link) "id") -(not (org-id-find id)) + ;; The locations are up-to-date with file changes after + ;; the call to `org-id-update-id-locations'. We do not + ;; need to double-check if recorded ID is still present + ;; in the file. +(not (org-id-find-id-file id)) (list (org-element-begin link) (format "Unknown ID \"%s\"" id)))
[elpa] externals/phpinspect 52e1254001 2/2: Use compile scripts in makefile + add bytecomp step to native comp script
branch: externals/phpinspect commit 52e1254001480c83075bc96f8128c2bba89625fb Author: Hugo Thunnissen Commit: Hugo Thunnissen Use compile scripts in makefile + add bytecomp step to native comp script --- Makefile| 8 +--- native-compile.bash | 13 +++-- 2 files changed, 16 insertions(+), 5 deletions(-) diff --git a/Makefile b/Makefile index a1a03a5743..c237cb4c98 100644 --- a/Makefile +++ b/Makefile @@ -10,9 +10,11 @@ cask: $(CASK_DIR) .PHONY: compile compile: cask - cask emacs -batch -L . -L test \ - -f batch-byte-compile $$(cask files); \ - (ret=$$? ; cask clean-elc && exit $$ret) + bash ./compile.bash + +.PHONY: compile-native +compile-native: cask + bash ./native-compile.bash .PHONY: test test: compile diff --git a/native-compile.bash b/native-compile.bash index 3e88f3d35e..ac5d6e249a 100644 --- a/native-compile.bash +++ b/native-compile.bash @@ -1,11 +1,20 @@ #!/bin/bash +rm ./**/*.elc +rm *.elc + for file in ./*.el; do echo 'Compiling '"$file"' ...' -cask emacs -batch -L . --eval '(setq native-compile-error-on-warn t)' -f batch-native-compile "$file" || break +cask emacs -batch -L . --eval '(progn '"(require 'comp)"' (setq byte-compile-error-on-warn t native-compile-target-directory (car native-comp-eln-load-path)) (nreverse native-comp-eln-load-path))' -f batch-byte+native-compile "$file" || break done for file in ./**/*.el; do echo 'Compiling '"$file"' ...' -cask emacs -batch -L . --eval '(setq byte-compile-error-on-warn t)' -f batch-native-compile "$file" || break +cask emacs -batch -L . --eval '(progn '"(require 'comp)"' (setq byte-compile-error-on-warn t native-compile-target-directory (car native-comp-eln-load-path)) (nreverse native-comp-eln-load-path))' -f batch-byte+native-compile "$file" || break done + + +if [[ -z $NO_REMOVE_ELC ]]; then +rm ./**/*.elc +rm *.elc +fi
[elpa] externals/phpinspect 4a75cd350c 1/2: Insert closing parenthesis when function does not take any arguments
branch: externals/phpinspect
commit 4a75cd350c4070ea4ea1ee8f70dfcb93c2cc2bb3
Author: Hugo Thunnissen
Commit: Hugo Thunnissen
Insert closing parenthesis when function does not take any arguments
---
phpinspect-completion.el | 18 +-
1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/phpinspect-completion.el b/phpinspect-completion.el
index 469275021d..5f4e5ae519 100644
--- a/phpinspect-completion.el
+++ b/phpinspect-completion.el
@@ -35,6 +35,9 @@
(cl-defstruct (phpinspect--completion
(:constructor phpinspect--construct-completion))
"Contains a possible completion value with all it's attributes."
+ (target nil
+ :documentation
+ "The object that this completion is aimed at/completing towards")
(value nil :type string)
(meta nil :type string)
(annotation nil :type string)
@@ -244,6 +247,7 @@ Returns list of `phpinspect--completion'."
:annotation (concat " "
(phpinspect--type-bare-name
(phpinspect--function-return-type
completion-candidate)))
+ :target completion-candidate
:kind 'function))
(cl-defmethod phpinspect--make-completion
@@ -253,6 +257,7 @@ Returns list of `phpinspect--completion'."
:meta (phpinspect--format-type-name
(or (phpinspect--variable-type completion-candidate)
phpinspect--null-type))
+ :target completion-candidate
:annotation (concat " "
(phpinspect--type-bare-name
(or (phpinspect--variable-type completion-candidate)
@@ -286,12 +291,15 @@ Returns list of `phpinspect--completion'."
(nreverse affixated)))
:exit-function
(lambda (comp-name state)
+ (let ((comp (phpinspect--completion-list-get-metadata
+ phpinspect--last-completion-list
+ comp-name)))
(when (and (eq 'finished state)
-(eq 'function (phpinspect--completion-kind
-
(phpinspect--completion-list-get-metadata
-phpinspect--last-completion-list
-comp-name
- (insert "(")))
+(eq 'function (phpinspect--completion-kind comp)))
+ (insert "(")
+ (when (= 0 (length (phpinspect--function-arguments
+ (phpinspect--completion-target comp
+ (insert ")")
:company-kind (lambda (comp-name)
(phpinspect--completion-kind
(phpinspect--completion-list-get-metadata
[elpa] externals/phpinspect updated (d806c4ef4a -> 52e1254001)
elpasync pushed a change to branch externals/phpinspect. from d806c4ef4a Use class-keyword handler regexp when extracting class name from declaration new 4a75cd350c Insert closing parenthesis when function does not take any arguments new 52e1254001 Use compile scripts in makefile + add bytecomp step to native comp script Summary of changes: Makefile | 8 +--- native-compile.bash | 13 +++-- phpinspect-completion.el | 18 +- 3 files changed, 29 insertions(+), 10 deletions(-)
[elpa] externals/vertico 6f2172da72: Improve keymap setup
branch: externals/vertico commit 6f2172da72dc168750dda717baa0b3d514487ac1 Author: Daniel Mendler Commit: Daniel Mendler Improve keymap setup Remove keymap based on object identity instead of equality. --- extensions/vertico-flat.el | 6 +++--- extensions/vertico-grid.el | 6 +++--- extensions/vertico-multiform.el | 6 +++--- extensions/vertico-reverse.el | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el index 8395aeb6ee..3eb66d57cc 100644 --- a/extensions/vertico-flat.el +++ b/extensions/vertico-flat.el @@ -78,9 +78,9 @@ (when-let (win (active-minibuffer-window)) (unless (frame-root-window-p win) (window-resize win (- (window-pixel-height win)) nil nil 'pixelwise))) - (if vertico-flat-mode - (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-flat-map)) -(setq minor-mode-map-alist (delete `(vertico--input . ,vertico-flat-map) minor-mode-map-alist + (setq minor-mode-map-alist (rassq-delete-all vertico-flat-map minor-mode-map-alist)) + (when vertico-flat-mode +(push `(vertico--input . ,vertico-flat-map) minor-mode-map-alist))) (cl-defmethod vertico--display-candidates (candidates &context (vertico-flat-mode (eql t))) (setq-local truncate-lines nil diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el index ef299571b3..adb7708b9e 100644 --- a/extensions/vertico-grid.el +++ b/extensions/vertico-grid.el @@ -112,9 +112,9 @@ When scrolling beyond this limit, candidates may be truncated." (when-let (win (active-minibuffer-window)) (unless (frame-root-window-p win) (window-resize win (- (window-pixel-height win)) nil nil 'pixelwise))) - (if vertico-grid-mode - (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-grid-map)) -(setq minor-mode-map-alist (delete `(vertico--input . ,vertico-grid-map) minor-mode-map-alist + (setq minor-mode-map-alist (rassq-delete-all vertico-grid-map minor-mode-map-alist)) + (when vertico-grid-mode +(push `(vertico--input . ,vertico-grid-map) minor-mode-map-alist))) (cl-defmethod vertico--arrange-candidates (&context (vertico-grid-mode (eql t))) (when (<= vertico--index 0) diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el index 6b06ae4ab4..ab81d7ffa6 100644 --- a/extensions/vertico-multiform.el +++ b/extensions/vertico-multiform.el @@ -154,9 +154,9 @@ The keys in LIST can be symbols or regexps." (when vertico-multiform--stack (warn "vertico-multiform state is inconsistent") (setq vertico-multiform--stack nil)) - (if vertico-multiform-mode - (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-multiform-map)) -(setq minor-mode-map-alist (delete `(vertico--input . ,vertico-multiform-map) minor-mode-map-alist + (setq minor-mode-map-alist (rassq-delete-all vertico-multiform-map minor-mode-map-alist)) + (when vertico-multiform-mode +(push `(vertico--input . ,vertico-multiform-map) minor-mode-map-alist))) (cl-defmethod vertico--advice (&context (vertico-multiform-mode (eql t)) &rest app) (unwind-protect diff --git a/extensions/vertico-reverse.el b/extensions/vertico-reverse.el index df9bfd0d09..c3aa0fd5cd 100644 --- a/extensions/vertico-reverse.el +++ b/extensions/vertico-reverse.el @@ -60,9 +60,9 @@ (dolist (buf (buffer-list)) (when-let (ov (buffer-local-value 'vertico--candidates-ov buf)) (overlay-put ov 'before-string nil))) - (if vertico-reverse-mode - (add-to-list 'minor-mode-map-alist `(vertico--input . ,vertico-reverse-map)) -(setq minor-mode-map-alist (delete `(vertico--input . ,vertico-reverse-map) minor-mode-map-alist + (setq minor-mode-map-alist (rassq-delete-all vertico-reverse-map minor-mode-map-alist)) + (when vertico-reverse-mode +(push `(vertico--input . ,vertico-reverse-map) minor-mode-map-alist))) (cl-defmethod vertico--display-candidates (lines &context (vertico-reverse-mode (eql t))) (move-overlay vertico--candidates-ov (point-min) (point-min))
[nongnu] elpa/markdown-mode b76404d7ef 3/3: Update Changelog
branch: elpa/markdown-mode commit b76404d7ef71ef5a5137415e2235a426749eb3ac Author: Shohei YOSHIDA Commit: Shohei YOSHIDA Update Changelog --- CHANGES.md | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/CHANGES.md b/CHANGES.md index 8d3186bc69..6e09580bec 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -27,6 +27,7 @@ - Don't load major-mode if it isn't in `auto-mode-alist`[GH-761][] - Improve `markdown-insert-table` prompt message [GH-771][] - Consider `major-mode-remap-alist` to determine major-mode for code blocks [GH-787][] +- Set marker after footnote reference [GH-793][] * Bug fixes: - Don't override table faces by link faces [GH-716][] @@ -37,7 +38,7 @@ - HTML-escape title in `markdown-add-xhtml-header-and-footer` [markdown-xwidget-issue-9](https://github.com/cfclrk/markdown-xwidget/issues/9) - Fix wrong inline link parsing that has link title[GH-762][] - Don't treat backslashes as escapes inside literal blocks[GH-766][] [GH-768][] -- Fix `markdown-enter-key` doesn't delete empty checkbox list[GH-786] +- Fix `markdown-enter-key` doesn't delete empty checkbox list[GH-786][] [gh-377]: https://github.com/jrblevin/markdown-mode/issues/377 [gh-572]: https://github.com/jrblevin/markdown-mode/issues/572 @@ -59,6 +60,7 @@ [gh-778]: https://github.com/jrblevin/markdown-mode/issues/778 [gh-786]: https://github.com/jrblevin/markdown-mode/pull/786 [gh-787]: https://github.com/jrblevin/markdown-mode/issues/787 + [gh-793]: https://github.com/jrblevin/markdown-mode/pull/793 # Markdown Mode 2.5
[nongnu] elpa/markdown-mode bc0c0b9c38 2/3: Merge pull request #793 from slotThe/feat/footnote-mark
branch: elpa/markdown-mode commit bc0c0b9c38223ab3f95c6430ced08292e6b0 Merge: f8a91fef75 f298e65292 Author: Shohei YOSHIDA Commit: GitHub Merge pull request #793 from slotThe/feat/footnote-mark Push mark before jumping to footnote --- markdown-mode.el | 1 + 1 file changed, 1 insertion(+) diff --git a/markdown-mode.el b/markdown-mode.el index 4af2fd568f..4bb1a57dcb 100644 --- a/markdown-mode.el +++ b/markdown-mode.el @@ -4665,6 +4665,7 @@ element. More details here https://developer.mozilla.org/en-US/docs/Web/HTML/Ele (interactive) (let ((fn (markdown-footnote-counter-inc))) (insert (format "[^%d]" fn)) +(push-mark (point) t) (markdown-footnote-text-find-new-location) (markdown-ensure-blank-line-before) (unless (markdown-cur-line-blank-p)
[nongnu] elpa/markdown-mode f298e65292 1/3: Push mark before jumping to footnote
branch: elpa/markdown-mode commit f298e652920bd6330d9816d621394af18229588a Author: Tony Zorman Commit: Tony Zorman Push mark before jumping to footnote When inserting a small footnote, it is often very convenient to jump back to the main text with C-u C-SPC instead of using `markdown-footnote-return'. However, this can only be done if `markdown-insert-footnote' pushes to the mark ring before jumping, so do that. --- markdown-mode.el | 1 + 1 file changed, 1 insertion(+) diff --git a/markdown-mode.el b/markdown-mode.el index 4af2fd568f..4bb1a57dcb 100644 --- a/markdown-mode.el +++ b/markdown-mode.el @@ -4665,6 +4665,7 @@ element. More details here https://developer.mozilla.org/en-US/docs/Web/HTML/Ele (interactive) (let ((fn (markdown-footnote-counter-inc))) (insert (format "[^%d]" fn)) +(push-mark (point) t) (markdown-footnote-text-find-new-location) (markdown-ensure-blank-line-before) (unless (markdown-cur-line-blank-p)
[nongnu] elpa/markdown-mode updated (f8a91fef75 -> b76404d7ef)
elpasync pushed a change to branch elpa/markdown-mode. from f8a91fef75 Merge pull request #790 from kuranari/remove-redundant-test new f298e65292 Push mark before jumping to footnote new bc0c0b9c38 Merge pull request #793 from slotThe/feat/footnote-mark new b76404d7ef Update Changelog Summary of changes: CHANGES.md | 4 +++- markdown-mode.el | 1 + 2 files changed, 4 insertions(+), 1 deletion(-)
[nongnu] scratch/evil 491c8a752d 2/3: evil-pkg.el: Remove file
branch: scratch/evil commit 491c8a752ddeff1518ebe0580fd95261b7bb4aa7 Author: Stefan Monnier Commit: Stefan Monnier evil-pkg.el: Remove file This file is auto-generated from headers in `evil.el` anyway. * evil.el: Synchronize metadata with what was in `evil-pkg.el`. * .gitignore: Add `evil-pkg.el`. --- .gitignore | 3 ++- evil-pkg.el | 7 --- evil.el | 2 +- 3 files changed, 3 insertions(+), 9 deletions(-) diff --git a/.gitignore b/.gitignore index 02299d9b1b..ed3918e244 100644 --- a/.gitignore +++ b/.gitignore @@ -4,7 +4,8 @@ *.pg *.tp .depend -evil-autoloads.el +/evil-autoloads.el +/evil-pkg.el test-results.txt typescript diff --git a/evil-pkg.el b/evil-pkg.el deleted file mode 100644 index 0ab78cb335..00 --- a/evil-pkg.el +++ /dev/null @@ -1,7 +0,0 @@ -(define-package - "evil" - "1.15.0" - "Extensible Vi layer for Emacs." - '((emacs "24.1") -(goto-chg "1.6") -(cl-lib "0.5"))) diff --git a/evil.el b/evil.el index e5d7e45991..009b25f9eb 100644 --- a/evil.el +++ b/evil.el @@ -1,4 +1,4 @@ -;;; evil.el --- Extensible vi layer -*- lexical-binding: t; -*- +;;; evil.el --- Extensible Vi layer for Emacs -*- lexical-binding: t; -*- ;; The following list of authors was kept up to date until the beginning of ;; 2017, when evil moved under new maintainers. For authors since then, please
[nongnu] branch scratch/evil deleted (was 556d4926d2)
monnier pushed a change to branch scratch/evil. was 556d4926d2 Replace uses of `defadvice` with `advice-add` This change permanently discards the following revisions: discards 556d4926d2 Replace uses of `defadvice` with `advice-add` discards dfb3dcc602 evil-pkg.el: Remove file
[nongnu] scratch/evil 11ab822b1b 3/3: Replace uses of `defadvice` with `advice-add`
branch: scratch/evil commit 11ab822b1b297ca5cdaaff1f8c3046021177119b Author: Stefan Monnier Commit: Stefan Monnier Replace uses of `defadvice` with `advice-add` This either requires a dependency on the `nadvice` package, or bumping the minimum Emacs version to 24.4. I went with the `nadvice` package, but maybe bumping up to 24.4 would be better. * evil.el: Require `nadvice`. * evil-core.el (evil--advice-list): New var. (evil-mode): Use it instead of `ad-dis/enable`. (evil--advice-add): New function. (set-window-buffer, select-window, toggle-input-method, use-global-map): * evil-search.el (isearch-message-prefix, isearch-delete-char) (isearch-lazy-highlight-search): * evil-integration.el (keyboard-quit, wdired-change-to-dired-mode) (show-paren-function, quail-show-key, describe-char, ace-jump-done): Use `evail--advice-add` insyead of `defadvice`. (preceding-sexp, pp-last-sexp): Remove old code for when `advice-add` is not available. * evil-repeat.el (evil--read-key-sequence-advice): Adapt to use in `advice-add`. (read-key-sequence, read-key-sequence-vector): Use `evail--advice-add`. * evil-keybindings.el (elp-results): Use `evil--advice-add` and move outside of `eval-after-load`. --- evil-core.el| 43 +-- evil-integration.el | 85 ++--- evil-keybindings.el | 6 ++-- evil-repeat.el | 8 ++--- evil-search.el | 18 +++- evil.el | 2 +- 6 files changed, 79 insertions(+), 83 deletions(-) diff --git a/evil-core.el b/evil-core.el index 23937e7d30..5aacde79ef 100644 --- a/evil-core.el +++ b/evil-core.el @@ -168,6 +168,8 @@ To enable Evil globally, do (evil-mode)." (defalias 'evil--fundamental-mode #'fundamental-mode) +(defvar evil--advice-list nil) + ;;;###autoload (autoload 'evil-mode "evil" nil t) (define-globalized-minor-mode evil-mode evil-local-mode evil-initialize @@ -181,15 +183,21 @@ To enable Evil globally, do (evil-mode)." (and (eval-when-compile (version< emacs-version "26.1")) (eq (default-value 'major-mode) 'fundamental-mode) (setq-default major-mode 'evil--fundamental-mode)) -(ad-enable-regexp "^evil") -(ad-activate-regexp "^evil") +(pcase-dolist (advice evil--advice-list) + (apply #'advice-add advice)) (evil-esc-mode 1)) (when (eq (default-value 'major-mode) 'evil--fundamental-mode) (setq-default major-mode 'fundamental-mode)) -(ad-disable-regexp "^evil") -(ad-update-regexp "^evil") +(pcase-dolist (`(,funname ,_where ,adfun) evil--advice-list) + (advice-remove funname adfun)) (evil-esc-mode -1))) +(defun evil--advice-add (&rest args) + "Like `advice-add' but only records them for later use. +The pieces of advice are activated/deactivated by `evil-mode'." + (when evil-mode (apply #'advice-add args)) + (add-to-list 'evil--advice-list args)) + (defun evil-change-state (state &optional message) "Change the state to STATE. If STATE is nil, disable all states." @@ -328,17 +336,20 @@ then this function does nothing." ;; run. This is appropriate since many buffers are used for throwaway ;; purposes. Passing the buffer to `set-window-buffer' indicates ;; otherwise, though, so advise this function to initialize Evil. -(defadvice set-window-buffer (before evil) +(evil--advice-add 'set-window-buffer :before #'evil--swb-initialize) +(defun evil--swb-initialize (_window buffer &rest _) "Initialize Evil in the displayed buffer." - (when (and evil-mode (get-buffer (ad-get-arg 1))) -(with-current-buffer (ad-get-arg 1) + (when (and evil-mode (get-buffer buffer)) +(with-current-buffer buffer (unless evil-local-mode (save-match-data (evil-initialize)) ;; Refresh cursor color. ;; Cursor color can only be set for each frame but not for each buffer. +;; FIXME: Shouldn't this belong in `evil-(local-)mode'? (add-hook 'window-configuration-change-hook #'evil-refresh-cursor) -(defadvice select-window (after evil activate) +(evil--advice-add 'select-window :after #'evil--sw-refresh-cursor) +(defun evil--sw-refresh-cursor (&rest _) (evil-refresh-cursor)) (defun evil-generate-mode-line-tag (&optional state) @@ -421,16 +432,17 @@ This allows input methods to be used in normal-state." (add-hook 'input-method-activate-hook #'evil-activate-input-method nil t) (add-hook 'input-method-deactivate-hook #'evil-deactivate-input-method nil t))) -(defadvice toggle-input-method (around evil) +(evil--advice-add 'toggle-input-method :around #'evil--refresh-inpput-method) +(defun evil--refresh-inpput-method (orig-fun &rest args) "Refresh `evil-input-method'." (cond ((not evil-local-mode) -ad-do-it) +(apply orig-fun args)) ((evil-state-property evil-state :input-method) -ad-do-it) +(apply orig-fun args
[nongnu] scratch/evil 4ad8679623 1/3: Revert "Urgent revert of recent commits while evil is broken"
branch: scratch/evil commit 4ad8679623dd3cc09c25689e7471edf8e8f9c3ed Author: Stefan Monnier Commit: Stefan Monnier Revert "Urgent revert of recent commits while evil is broken" This reverts commit b7b4961a14cd1a51e9a10564fd6c741567d39891. --- README.md | 9 +- evil-command-window.el | 3 +- evil-commands.el | 370 ++--- evil-common.el | 88 +--- evil-core.el | 76 -- evil-ex.el | 52 +++ evil-jumps.el | 15 +- evil-macros.el | 4 +- evil-maps.el | 10 +- evil-search.el | 59 evil-states.el | 21 ++- evil-test-helpers.el | 8 +- evil-tests.el | 122 evil-types.el | 2 +- evil-vars.el | 9 -- evil.el| 4 +- 16 files changed, 379 insertions(+), 473 deletions(-) diff --git a/README.md b/README.md index 198b18317c..02215faf2a 100644 --- a/README.md +++ b/README.md @@ -44,10 +44,8 @@ file. * Evil requires any of the following for `C-r`: * `undo-redo` from Emacs 28 - * The [undo-tree](https://gitlab.com/tsc25/undo-tree) package -(available via GNU ELPA) - * The [undo-fu](https://gitlab.com/ideasman42/emacs-undo-fu) package -(available via MELPA) + * The [undo-tree] package (available via GNU ELPA) + * The [undo-fu] package (available via MELPA and NonGNU ELPA) * For the motions `g;` `g,` and for the last-change-register `.`, Evil requires the [goto-chg.el](https://github.com/emacs-evil/goto-chg) @@ -80,3 +78,6 @@ Visit us on `irc.libera.chat #evil-mode`. See [CONTRIBUTING.md](https://github.com/emacs-evil/evil/blob/master/CONTRIBUTING.md) for guidelines for issues and pull requests. + +[undo-tree]: https://gitlab.com/tsc25/undo-tree +[undo-fu]: https://codeberg.org/ideasman42/emacs-undo-fu diff --git a/evil-command-window.el b/evil-command-window.el index 68068a8384..c364e41868 100644 --- a/evil-command-window.el +++ b/evil-command-window.el @@ -44,8 +44,7 @@ (define-derived-mode evil-command-window-mode fundamental-mode "Evil-cmd" "Major mode for the Evil command line window." (auto-fill-mode 0) - (setq-local after-change-functions - (cons #'evil-command-window-draw-prefix after-change-functions))) + (add-hook 'after-change-functions #'evil-command-window-draw-prefix nil t)) (defun evil-command-window (history cmd-key execute-fn) "Open a command line window for HISTORY with CMD-KEY and EXECUTE-FN. diff --git a/evil-commands.el b/evil-commands.el index 45f6b596c0..7dfc1e0ae8 100644 --- a/evil-commands.el +++ b/evil-commands.el @@ -37,7 +37,6 @@ (require 'cl-lib) (require 'reveal) -(declare-function flyspell-overlay-p "flyspell") (declare-function imenu--in-alist "imenu") ;;; Motions @@ -215,10 +214,9 @@ move COUNT - 1 screen lines downward first." "Move the cursor to COUNT % of the width of the current line. If no COUNT is given, default to 50%." :type exclusive - (let ((line-length (- (line-end-position) -(line-beginning-position) + (let ((line-length (- (line-end-position) (line-beginning-position) (if evil-move-beyond-eol -1 0 -(move-to-column (truncate (* line-length (/ (or count 50) 100.0)) +(move-to-column (truncate (* line-length (or count 50)) 100 (evil-define-motion evil-first-non-blank () "Move the cursor to the first non-blank character of the current line." @@ -229,13 +227,9 @@ If no COUNT is given, default to 50%." "Move the cursor to the last non-blank character of the current line. If COUNT is given, move COUNT - 1 lines downward first." :type inclusive - (goto-char - (save-excursion - (evil-move-beginning-of-line count) - (if (re-search-forward "[ \t]*$") - (max (line-beginning-position) - (1- (match-beginning 0))) - (line-beginning-position) + (evil-move-end-of-line count) + (skip-chars-backward " \t") + (unless (bolp) (backward-char))) (evil-define-motion evil-first-non-blank-of-visual-line () "Move the cursor to the first non blank character @@ -498,30 +492,28 @@ and jump to the corresponding one." (t (let* ((open (point-max)) (close (point-max)) - (open-pair (condition-case nil - (save-excursion -;; consider the character right before eol given that -;; point may be placed there, e.g. in visual state -(when (and (eolp) (not (bolp))) - (backward-char)) -(setq open (1- (scan-lists (point) 1 -1))) -(when (< open (line-end-position)) - (goto-char open) - (forward-list) - (1- (point -(error nil))) -
[nongnu] branch scratch/evil created (now 11ab822b1b)
monnier pushed a change to branch scratch/evil. at 11ab822b1b Replace uses of `defadvice` with `advice-add` This branch includes the following new commits: new 4ad8679623 Revert "Urgent revert of recent commits while evil is broken" new 491c8a752d evil-pkg.el: Remove file new 11ab822b1b Replace uses of `defadvice` with `advice-add`
[elpa] externals/org d0c7cd48eb 4/4: org-babel-do-key-sequence-in-edit-buffer: Mention argument in docstring
branch: externals/org commit d0c7cd48eb90aab05bd3c8492160677a273c990c Author: Ihor Radchenko Commit: Ihor Radchenko org-babel-do-key-sequence-in-edit-buffer: Mention argument in docstring * lisp/ob-core.el (org-babel-do-key-sequence-in-edit-buffer): Mention argument KEY in the docstring. --- lisp/ob-core.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 8c22ca07b5..9cc267f5a2 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -1179,7 +1179,7 @@ Return t if a code block was found at point, nil otherwise." t))) (defun org-babel-do-key-sequence-in-edit-buffer (key) - "Read key sequence and execute the command in edit buffer. + "Read key sequence KEY and execute the command in edit buffer. Enter a key sequence to be executed in the language major-mode edit buffer. For example, TAB will alter the contents of the Org code block according to the effect of TAB in the language
[elpa] externals/org d1e4b93519 2/4: org-copy-subtree: Do not consider inlinetask to be a subtree of its own
branch: externals/org commit d1e4b9351941aa9241ab3aa0a34256376b7eca94 Author: Ihor Radchenko Commit: Ihor Radchenko org-copy-subtree: Do not consider inlinetask to be a subtree of its own * lisp/org.el (org-copy-subtree): Go up to parent heading when we are at or inside inlinetask. --- lisp/org.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/org.el b/lisp/org.el index c037b3ee04..6abb2db958 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7096,6 +7096,9 @@ useful if the caller implements cut-and-paste as copy-then-paste-then-cut." (if (called-interactively-p 'any) (org-back-to-heading nil); take what looks like a subtree (org-back-to-heading t)) ; take what is really there + ;; Do not consider inlinetasks as a subtree. + (when (org-element-type-p (org-element-at-point) 'inlinetask) + (org-up-element)) (setq beg (point)) (skip-chars-forward " \t\r\n") (save-match-data
[elpa] externals/org f285ae37b3 1/4: org-agenda-get-todos: Fix for todo keywords that can be interpreted as regexp
branch: externals/org
commit f285ae37b34605e60a848c72fa6eb9bb7daad7ff
Author: Ihor Radchenko
Commit: Ihor Radchenko
org-agenda-get-todos: Fix for todo keywords that can be interpreted as
regexp
* lisp/org-agenda.el (org-agenda-get-todos): Use `regexp-quote' to
match keywords.
(org-select-this-todo-keyword): Add docstring, clarifying the allowed
values.
* testing/lisp/test-org-agenda.el (test-org-agenda/todo-selector): Add
new test.
Reported-by: spookygos...@gmail.com
Link: https://orgmode.org/list/87jztuzzpl@gmail.com
---
lisp/org-agenda.el | 15 ---
testing/lisp/test-org-agenda.el | 98 +
2 files changed, 107 insertions(+), 6 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 11db80bd78..272010a257 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4940,7 +4940,10 @@ Press `\\[org-agenda-manipulate-query-add]', \
"|"))
"\n"))
-(defvar org-select-this-todo-keyword nil)
+(defvar org-select-this-todo-keyword nil
+ "Keyword selector for todo agenda.
+Should either be a keyword, \"*\", or \"|\"-separated list of todo
+keywords.")
(defvar org-last-arg nil)
(defvar crm-separator)
@@ -5637,11 +5640,11 @@ timestamp and the timestamp type relevant for the
sorting strategy in
org-todo-regexp)
(org-select-this-todo-keyword
(concat "\\("
- (mapconcat #'identity
- (org-split-string
- org-select-this-todo-keyword
- "|")
- "\\|")
+ (mapconcat #'regexp-quote
+ (org-split-string
+ org-select-this-todo-keyword
+ "|")
+ "\\|")
"\\)"))
(t org-not-done-regexp
marker priority urgency category level tags todo-state
diff --git a/testing/lisp/test-org-agenda.el b/testing/lisp/test-org-agenda.el
index 91b0fc2a8b..d9e7cca83b 100644
--- a/testing/lisp/test-org-agenda.el
+++ b/testing/lisp/test-org-agenda.el
@@ -80,6 +80,104 @@
(should (= 3 (count-lines (point-min) (point-max)
(org-test-agenda--kill-all-agendas))
+(ert-deftest test-org-agenda/todo-selector ()
+ "Test selecting keywords in `org-todo-list'."
+ (cl-assert (not org-agenda-sticky) nil "precondition violation")
+ (cl-assert (not (org-test-agenda--agenda-buffers))
+nil "precondition violation")
+ (let ((org-todo-keywords
+ '((sequence "[ ]" "[X]")
+ (sequence "TODO" "NEXT" "|" "DONE"
+(org-test-agenda-with-agenda
+ "
+* [ ] Unchecked and will appear in agenda
+* NEXT NEXT will appear in agenda
+* [X] Checked and will not appear in agenda
+* TODO Todo and will appear in agenda
+* DONE Done and will not appear in agenda
+"
+ ;; All todo keywords.
+ (org-todo-list)
+ (set-buffer org-agenda-buffer-name)
+ (should
+ (progn
+"all todo"
+(message "%S\n\n%s\n\n" org-todo-keywords (buffer-string))
+(goto-char (point-min))
+(search-forward "[ ] Unchecked and will appear in agenda" nil t)))
+ (should
+ (progn
+"all todo"
+(goto-char (point-min))
+(search-forward "NEXT NEXT will appear in agenda" nil t)))
+ (should
+ (progn
+"all todo"
+(goto-char (point-min))
+(search-forward "TODO Todo and will appear in agenda" nil t)))
+
+ ;; All todo keywords, including not done.
+ (org-todo-list "*")
+ (should
+ (progn
+"all keywords"
+(goto-char (point-min))
+(search-forward "[ ] Unchecked and will appear in agenda" nil t)))
+ (should
+ (progn
+"all keywords"
+(goto-char (point-min))
+(search-forward "[X] Checked and will not appear in agenda" nil t)))
+ (should
+ (progn
+"all keywords"
+(goto-char (point-min))
+(search-forward "DONE Done and will not appear in agenda" nil t)))
+ (should
+ (progn
+"all keywords"
+(goto-char (point-min))
+(search-forward "NEXT NEXT will appear in agenda" nil t)))
+ (should
+ (progn
+"all keywords"
+(goto-char (point-min))
+(search-forward "TODO Todo and will appear in agenda" nil t)))
+ ;; Just [ ] regexp-like entry.
+ (org-todo-list "[ ]")
+ (should
+ (progn
+"[ ] keyword"
+(goto-char (point-min))
+(search-forward "[ ] Unchecked and will appear in agenda" nil t)))
+ (should-not
+ (progn
+"[ ] keyword"
+(goto-char (p
[elpa] externals/org 1ae611c7e3 3/4: fixup! org-id-find-id-in-file: Prefer using temporary buffer
branch: externals/org commit 1ae611c7e3e453655bd3500ee8b166f2959370d2 Author: Ihor Radchenko Commit: Ihor Radchenko fixup! org-id-find-id-in-file: Prefer using temporary buffer * lisp/org-id.el (org-id-find-id-in-file): Fix Emacs 27 compatibility. Avoid modifications not captured by element cache. --- lisp/org-id.el | 8 ++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-id.el b/lisp/org-id.el index a2c452b440..d09c61b066 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -677,13 +677,17 @@ optional argument MARKERP, return the position as a new marker." (let* ((visiting (find-buffer-visiting file)) (buffer (or visiting (if markerp (find-file-noselect file) - (get-buffer-create " *Org ID temp*" t) + (if (<= 2 (cdr (func-arity #'get-buffer-create))) + (get-buffer-create " *Org ID temp*" t) + ;; Emacs 27 does not yet have second argument. + (get-buffer-create " *Org ID temp*")) (unwind-protect (with-current-buffer buffer (unless (derived-mode-p 'org-mode) (org-mode)) (unless (or visiting markerp) (buffer-disable-undo) - (insert-file-contents file nil nil nil 'replace)) + (erase-buffer) + (insert-file-contents file)) (let ((pos (org-find-entry-with-id id))) (cond ((null pos) nil)
[elpa] externals/phpinspect updated (52e1254001 -> 5eae689f09)
elpasync pushed a change to branch externals/phpinspect. from 52e1254001 Use compile scripts in makefile + add bytecomp step to native comp script new e9d547af07 Add compilation/benchmarks section to README new 5eae689f09 Add separate interactive function to refresh project autoloader Summary of changes: README.md | 46 ++ phpinspect.el | 23 ++- 2 files changed, 60 insertions(+), 9 deletions(-)
[elpa] externals/phpinspect 5eae689f09 2/2: Add separate interactive function to refresh project autoloader
branch: externals/phpinspect commit 5eae689f09e87f6ea6e8262c14732a28dfdc936e Author: Hugo Thunnissen Commit: Hugo Thunnissen Add separate interactive function to refresh project autoloader --- phpinspect.el | 23 ++- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/phpinspect.el b/phpinspect.el index 411b892cc3..8cb19b4904 100644 --- a/phpinspect.el +++ b/phpinspect.el @@ -344,13 +344,11 @@ before the search is executed." (phpinspect-current-project-root (phpinspect-project-get-type-filepath project class index-new))) -(defun phpinspect-index-current-project () - "Index all available FQNs in the current project." - (interactive) - (let* ((project (phpinspect--cache-get-project-create - (phpinspect--get-or-create-global-cache) - (phpinspect-current-project-root))) - (autoloader (phpinspect-project-autoload project))) +(defun phpinspect-project-refresh-autoloader (project) + (interactive (list (phpinspect--cache-get-project-create + (phpinspect--get-or-create-global-cache) + (phpinspect-current-project-root + (let* ((autoloader (phpinspect-project-autoload project))) ;; Update display so that it is clear to the user that emacs is ;; responsive. Otherwise the autoloader refresh thread hogging the cpu will ;; make it look like emacs is not responsive, especially when M-x uses some @@ -358,9 +356,16 @@ before the search is executed." ;; appear frozen while the thread is executing. (redisplay) -(phpinspect-autoloader-refresh autoloader) -(phpinspect-project-enqueue-include-dirs project))) +(phpinspect-autoloader-refresh autoloader))) +(defun phpinspect-index-current-project () + "Index all available FQNs in the current project." + (interactive) + (let* ((project (phpinspect--cache-get-project-create + (phpinspect--get-or-create-global-cache) + (phpinspect-current-project-root +(phpinspect-project-refresh-autoloader project) +(phpinspect-project-enqueue-include-dirs project))) (provide 'phpinspect) ;;; phpinspect.el ends here
[elpa] externals/org updated (f78a3c2bdc -> d0c7cd48eb)
elpasync pushed a change to branch externals/org. from f78a3c2bdc lisp/ob-lilypond.el: Prevent full page results in basic-mode new f285ae37b3 org-agenda-get-todos: Fix for todo keywords that can be interpreted as regexp new d1e4b93519 org-copy-subtree: Do not consider inlinetask to be a subtree of its own new 1ae611c7e3 fixup! org-id-find-id-in-file: Prefer using temporary buffer new d0c7cd48eb org-babel-do-key-sequence-in-edit-buffer: Mention argument in docstring Summary of changes: lisp/ob-core.el | 2 +- lisp/org-agenda.el | 15 --- lisp/org-id.el | 8 +++- lisp/org.el | 3 ++ testing/lisp/test-org-agenda.el | 98 + 5 files changed, 117 insertions(+), 9 deletions(-)
[elpa] externals/phpinspect e9d547af07 1/2: Add compilation/benchmarks section to README
branch: externals/phpinspect commit e9d547af073389efbed81b0155023aaf5a3d5eb8 Author: Hugo Thunnissen Commit: Hugo Thunnissen Add compilation/benchmarks section to README --- README.md | 46 ++ 1 file changed, 46 insertions(+) diff --git a/README.md b/README.md index 0037e5ff8e..e695c85988 100644 --- a/README.md +++ b/README.md @@ -76,6 +76,52 @@ git clone https://git.snorba.art/hugo/phpinspect.el ~/projects/phpinspect.el (require 'phpinspect) ``` +## Compilation +It is highly recommended to byte- or native compile phpinspect. Aside from the +normal performance boost that this brings to most packages, it can reduce +phpinspect's parsing time by up to 90%. It especially makes a difference when +incrementally parsing edited buffers. For example: + +### benchmarks/parse-file.el uncompiled on Ryzen 5 3600 (time in seconds): +``` +Incremental parse (warmup): +Elapsed time: 0.168390 (0.019751 in 1 GC’s) +Incremental parse: +Elapsed time: 0.143811 (0.00 in 0 GC’s) +Incremental parse (no edits): +Elapsed time: 0.000284 (0.00 in 0 GC’s) +Incremental parse repeat (no edits): +Elapsed time: 0.000241 (0.00 in 0 GC’s) +Incremental parse after buffer edit: +Elapsed time: 0.012449 (0.00 in 0 GC’s) +Incremental parse after 2 more edits: +Elapsed time: 0.015839 (0.00 in 0 GC’s) +Bare (no token reuse) parse (warmup): +Elapsed time: 0.048996 (0.00 in 0 GC’s) +Bare (no token reuse) parse: +Elapsed time: 0.052495 (0.00 in 0 GC’s) +``` + +### benchmarks/parse-file.el with native compilation on Ryzen 5 3600 (time in seconds): +``` +Incremental parse (warmup): +Elapsed time: 0.023432 (0.00 in 0 GC’s) +Incremental parse: +Elapsed time: 0.018350 (0.00 in 0 GC’s) +Incremental parse (no edits): +Elapsed time: 0.76 (0.00 in 0 GC’s) +Incremental parse repeat (no edits): +Elapsed time: 0.58 (0.00 in 0 GC’s) +Incremental parse after buffer edit: +Elapsed time: 0.001212 (0.00 in 0 GC’s) +Incremental parse after 2 more edits: +Elapsed time: 0.001381 (0.00 in 0 GC’s) +Bare (no token reuse) parse (warmup): +Elapsed time: 0.013874 (0.00 in 0 GC’s) +Bare (no token reuse) parse: +Elapsed time: 0.013878 (0.00 in 0 GC’s) +``` + ## Development ### Running tests
[elpa] externals/vertico-posframe 096a2dbd8d 1/2: Respect inherited faces while getting border color.
branch: externals/vertico-posframe commit 096a2dbd8deb9c192d9d1e69a6d77de3b4511416 Author: Vincent Zhang Commit: tumashu Respect inherited faces while getting border color. --- vertico-posframe.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vertico-posframe.el b/vertico-posframe.el index fd0895930b..6ab533c739 100644 --- a/vertico-posframe.el +++ b/vertico-posframe.el @@ -307,7 +307,7 @@ minibuffer will not be hided by minibuffer-cover." (if (facep face) face face-fallback))) - :background)) + :background nil t)) (defun vertico-posframe-refposhandler-default (&optional frame) "The default posframe refposhandler used by vertico-posframe.
[elpa] externals/vertico-posframe updated (7da6d648ff -> db9fbc95bb)
elpasync pushed a change to branch externals/vertico-posframe. from 7da6d648ff vertico-posframe--show: sort argument. new 096a2dbd8d Respect inherited faces while getting border color. new db9fbc95bb v0.7.3 Summary of changes: vertico-posframe.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
[elpa] externals/vertico-posframe db9fbc95bb 2/2: v0.7.3
branch: externals/vertico-posframe commit db9fbc95bb8316165ec74e500a76d6857e6ced1a Author: Feng Shu Commit: Feng Shu v0.7.3 --- vertico-posframe.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vertico-posframe.el b/vertico-posframe.el index 6ab533c739..5c0421d906 100644 --- a/vertico-posframe.el +++ b/vertico-posframe.el @@ -5,7 +5,7 @@ ;; Author: Feng Shu ;; Maintainer: Feng Shu ;; URL: https://github.com/tumashu/vertico-posframe -;; Version: 0.7.2 +;; Version: 0.7.3 ;; Keywords: abbrev, convenience, matching, vertico ;; Package-Requires: ((emacs "26.0") (posframe "1.4.0") (vertico "1.1"))
