[elpa] externals/js2-mode d187305 2/2: Merge pull request #579 from DamienCassou/configure-mocha-blocks

[ELPA Syncer]

branch: externals/js2-mode
commit d18730505e4ab57ec2b036980a62f6c6a60381e9
Merge: d2636f9 f7751b4
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #579 from DamienCassou/configure-mocha-blocks

Make it possible to configure mocha node names for Imenu
---
 js2-imenu-extras.el  | 21 ++---
 tests/imenu-mocha.el | 36 
 2 files changed, 54 insertions(+), 3 deletions(-)

diff --git a/js2-imenu-extras.el b/js2-imenu-extras.el
index 458c57f..3ec1ba8 100644
--- a/js2-imenu-extras.el
+++ b/js2-imenu-extras.el
@@ -124,6 +124,21 @@ Currently used for jQuery widgets, Dojo and Enyo 
declarations."
   :type 'boolean
   :group 'js2-imenu)
 
+(defcustom js2-imenu-mocha-describe-node-names '("describe" "describe.only" 
"fdescribe")
+  "List of strings starting a describe() node."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
+(defcustom js2-imenu-mocha-it-node-names '("it" "it.only" "fit")
+  "List of strings starting a it() node."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
+(defcustom js2-imenu-mocha-hook-node-names '("beforeEach" "afterEach" 
"beforeAll" "afterAll")
+  "List of strings starting a hook node (e.g., before and after hooks)."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
 ;;;###autoload
 (defun js2-imenu-extras-setup ()
   (when js2-imenu-enabled-frameworks
@@ -300,17 +315,17 @@ describe() block."
 (defun js2-imenu-extras--mocha-describe-node-p (node)
   "Return non-nil if NODE is a mocha describe() block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("describe" "describe.only" "fdescribe"
+(member name js2-imenu-mocha-describe-node-names)))
 
 (defun js2-imenu-extras--mocha-it-node-p (node)
   "Return non-nil if NODE is a mocha it() block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("it" "it.only" "fit"
+(member name js2-imenu-mocha-it-node-names)))
 
 (defun js2-imenu-extras--mocha-before-after-node-p (node)
   "Return non-nil if NODE is a `{before,after}{Each,All}' block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("beforeEach" "afterEach" "beforeAll" "afterAll"
+(member name js2-imenu-mocha-hook-node-names)))
 
 (defun js2-imenu-extras--mocha-named-function-node-p (node)
   "Return non-nil if NODE is a function definition."
diff --git a/tests/imenu-mocha.el b/tests/imenu-mocha.el
index aeae912..13df3df 100644
--- a/tests/imenu-mocha.el
+++ b/tests/imenu-mocha.el
@@ -152,3 +152,39 @@
 '(("top-level"
("" . 1)
("foo" . 33
+
+(ert-deftest js2-imenu-mocha-customize-describe-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(\"sub\", () => {})"
+"});")
+   (let* ((js2-imenu-mocha-describe-node-names '("describe" "fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("sub" . 33
+
+(ert-deftest js2-imenu-mocha-customize-it-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(\"sub\", () => {})"
+"});")
+   (let* ((js2-imenu-mocha-it-node-names '("fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("sub" . 33
+
+(ert-deftest js2-imenu-mocha-customize-hook-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(() => {})"
+"});")
+   (let* ((js2-imenu-mocha-hook-node-names '("fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("fooBar" . 33

[elpa] externals/js2-mode f7751b4 1/2: Make it possible to configure mocha node names for Imenu

[ELPA Syncer]

branch: externals/js2-mode
commit f7751b45bf6efcbfae2779f3966ed4634ae3dc90
Author: Damien Cassou 
Commit: Damien Cassou 

Make it possible to configure mocha node names for Imenu
---
 js2-imenu-extras.el  | 21 ++---
 tests/imenu-mocha.el | 36 
 2 files changed, 54 insertions(+), 3 deletions(-)

diff --git a/js2-imenu-extras.el b/js2-imenu-extras.el
index 458c57f..3ec1ba8 100644
--- a/js2-imenu-extras.el
+++ b/js2-imenu-extras.el
@@ -124,6 +124,21 @@ Currently used for jQuery widgets, Dojo and Enyo 
declarations."
   :type 'boolean
   :group 'js2-imenu)
 
+(defcustom js2-imenu-mocha-describe-node-names '("describe" "describe.only" 
"fdescribe")
+  "List of strings starting a describe() node."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
+(defcustom js2-imenu-mocha-it-node-names '("it" "it.only" "fit")
+  "List of strings starting a it() node."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
+(defcustom js2-imenu-mocha-hook-node-names '("beforeEach" "afterEach" 
"beforeAll" "afterAll")
+  "List of strings starting a hook node (e.g., before and after hooks)."
+  :type '(repeat string)
+  :group 'js2-imenu)
+
 ;;;###autoload
 (defun js2-imenu-extras-setup ()
   (when js2-imenu-enabled-frameworks
@@ -300,17 +315,17 @@ describe() block."
 (defun js2-imenu-extras--mocha-describe-node-p (node)
   "Return non-nil if NODE is a mocha describe() block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("describe" "describe.only" "fdescribe"
+(member name js2-imenu-mocha-describe-node-names)))
 
 (defun js2-imenu-extras--mocha-it-node-p (node)
   "Return non-nil if NODE is a mocha it() block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("it" "it.only" "fit"
+(member name js2-imenu-mocha-it-node-names)))
 
 (defun js2-imenu-extras--mocha-before-after-node-p (node)
   "Return non-nil if NODE is a `{before,after}{Each,All}' block."
   (when-let ((name (js2-imenu-extras--call-target-name node)))
-(member name '("beforeEach" "afterEach" "beforeAll" "afterAll"
+(member name js2-imenu-mocha-hook-node-names)))
 
 (defun js2-imenu-extras--mocha-named-function-node-p (node)
   "Return non-nil if NODE is a function definition."
diff --git a/tests/imenu-mocha.el b/tests/imenu-mocha.el
index aeae912..13df3df 100644
--- a/tests/imenu-mocha.el
+++ b/tests/imenu-mocha.el
@@ -152,3 +152,39 @@
 '(("top-level"
("" . 1)
("foo" . 33
+
+(ert-deftest js2-imenu-mocha-customize-describe-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(\"sub\", () => {})"
+"});")
+   (let* ((js2-imenu-mocha-describe-node-names '("describe" "fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("sub" . 33
+
+(ert-deftest js2-imenu-mocha-customize-it-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(\"sub\", () => {})"
+"});")
+   (let* ((js2-imenu-mocha-it-node-names '("fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("sub" . 33
+
+(ert-deftest js2-imenu-mocha-customize-hook-node-name ()
+  (js2-imenu-mocha-create-buffer
+   ("describe(\"top-level\", () => {"
+"  fooBar(() => {})"
+"});")
+   (let* ((js2-imenu-mocha-hook-node-names '("fooBar"))
+  (result (js2-mode-create-imenu-index)))
+ (should (equal result
+'(("top-level"
+   ("" . 1)
+   ("fooBar" . 33

[elpa] main 801d621: * elpa-packages (vertico): Include extensions

[monnier--- via]

branch: main
commit 801d6210806853787adad0284d1fda1d514fba58
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-packages (vertico): Include extensions
---
 elpa-packages | 9 +++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index e35a495..2f806bd 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -383,7 +383,11 @@
  ;; FIXME: Waiting for copyright paperwork.
  ;; ("phpinspect"  :url "https://git.sr.ht/~hugot/phpinspect.el";
  ;;  :auto-sync t)
- ("phps-mode"  :url "https://github.com/cjohansson/emacs-phps-mode";)
+ ("phps-mode"  :url "https://github.com/cjohansson/emacs-phps-mode";
+  ;; Christian Johansson works on a private Git and pushes to both Github
+  ;; and elpa.git anyway, so there's no need to auto-sync.
+  :auto-sync nil
+  )
  ("pinentry"   :url "https://github.com/ueno/pinentry-el.git";)
  ("poker"  :url nil)
  ("posframe"
@@ -518,7 +522,8 @@
  ("vertico"
   :url "https://github.com/minad/vertico";
   :doc "README.org"
-  :ignored-files ("extensions" "*.svg")
+  :ignored-files ("*.svg")
+  :renames (("extensions/" ""))
   :auto-sync t)
  ("vertico-posframe"
   :url "https://github.com/tumashu/vertico-posframe";

[elpa] externals/org ed53355 2/2: lint: Reorder file

[ELPA Syncer]

branch: externals/org
commit ed5335545e03bdc4e1d3dad84c7b9b0e91117ef2
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

lint: Reorder file

Checkers definition are last because this is the part usually expanded.
---
 lisp/org-lint.el | 376 +++
 1 file changed, 188 insertions(+), 188 deletions(-)

diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index 6e03cec..dd0759b 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -154,6 +154,194 @@ checker.  Currently, two properties are supported:
   org-lint--checkers
 
 
+;;; Reports UI
+
+(defvar org-lint--report-mode-map
+  (let ((map (make-sparse-keymap)))
+(set-keymap-parent map tabulated-list-mode-map)
+(define-key map (kbd "RET") 'org-lint--jump-to-source)
+(define-key map (kbd "TAB") 'org-lint--show-source)
+(define-key map (kbd "C-j") 'org-lint--show-source)
+(define-key map (kbd "h") 'org-lint--hide-checker)
+(define-key map (kbd "i") 'org-lint--ignore-checker)
+map)
+  "Local keymap for `org-lint--report-mode' buffers.")
+
+(define-derived-mode org-lint--report-mode tabulated-list-mode "OrgLint"
+  "Major mode used to display reports emitted during linting.
+\\{org-lint--report-mode-map}"
+  (setf tabulated-list-format
+   `[("Line" 6
+  (lambda (a b)
+(< (string-to-number (aref (cadr a) 0))
+   (string-to-number (aref (cadr b) 0
+  :right-align t)
+ ("Trust" 5 t)
+ ("Warning" 0 t)])
+  (tabulated-list-init-header))
+
+(defun org-lint--generate-reports (buffer checkers)
+  "Generate linting report for BUFFER.
+
+CHECKERS is the list of checkers used.
+
+Return an alist (ID [LINE TRUST DESCRIPTION CHECKER]), suitable
+for `tabulated-list-printer'."
+  (with-current-buffer buffer
+(save-excursion
+  (goto-char (point-min))
+  (let ((ast (org-element-parse-buffer))
+   (id 0)
+   (last-line 1)
+   (last-pos 1))
+   ;; Insert unique ID for each report.  Replace buffer positions
+   ;; with line numbers.
+   (mapcar
+(lambda (report)
+  (list
+   (cl-incf id)
+   (apply #'vector
+  (cons
+   (progn
+ (goto-char (car report))
+ (beginning-of-line)
+ (prog1 (number-to-string
+ (cl-incf last-line
+  (count-lines last-pos (point
+   (setf last-pos (point
+   (cdr report)
+;; Insert trust level in generated reports.  Also sort them
+;; by buffer position in order to optimize lines computation.
+(sort (cl-mapcan
+   (lambda (c)
+ (let ((trust (symbol-name (org-lint-checker-trust c
+   (mapcar
+(lambda (report)
+  (list (car report) trust (nth 1 report) c))
+(save-excursion
+  (funcall (org-lint-checker-function c)
+   ast)
+   checkers)
+  #'car-less-than-car))
+
+(defvar-local org-lint--source-buffer nil
+  "Source buffer associated to current report buffer.")
+
+(defvar-local org-lint--local-checkers nil
+  "List of checkers used to build current report.")
+
+(defun org-lint--refresh-reports ()
+  (setq tabulated-list-entries
+   (org-lint--generate-reports org-lint--source-buffer
+   org-lint--local-checkers))
+  (tabulated-list-print))
+
+(defun org-lint--current-line ()
+  "Return current report line, as a number."
+  (string-to-number (aref (tabulated-list-get-entry) 0)))
+
+(defun org-lint--current-checker (&optional entry)
+  "Return current report checker.
+When optional argument ENTRY is non-nil, use this entry instead
+of current one."
+  (aref (if entry (nth 1 entry) (tabulated-list-get-entry)) 3))
+
+(defun org-lint--display-reports (source checkers)
+  "Display linting reports for buffer SOURCE.
+CHECKERS is the list of checkers used."
+  (let ((buffer (get-buffer-create "*Org Lint*")))
+(with-current-buffer buffer
+  (org-lint--report-mode)
+  (setf org-lint--source-buffer source)
+  (setf org-lint--local-checkers checkers)
+  (org-lint--refresh-reports)
+  (add-hook 'tabulated-list-revert-hook #'org-lint--refresh-reports nil t))
+(pop-to-buffer buffer)))
+
+(defun org-lint--jump-to-source ()
+  "Move to source line that generated the report at point."
+  (interactive)
+  (let ((l (org-lint--current-line)))
+(switch-to-buffer-other-window org-lint--source-buffer)
+(org-goto-line l)
+(org-show-set-visibility 'local)
+(recenter)))
+
+(defun org-lint--show-source ()
+  "Show source line that generated the report at point."
+  (interactive)
+  (let ((buffer (current-buffer)))
+(org-lint--jump-to-sour

[elpa] externals/org b4acde3 1/2: lint: Allow user-defined checkers during linting

[ELPA Syncer]

branch: externals/org
commit b4acde37baea6c68a8405665af525922502b7f7a
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

lint: Allow user-defined checkers during linting

* lisp/org-lint.el (org-lint-add-checker): New function.
(org-lint--generate-reports): Checker function now must be specified.
It is not deduced anymore from the name of the checker.
* testing/lisp/test-org-lint.el (test-org-lint/add-checker): New test.
---
 etc/ORG-NEWS  |   5 +
 lisp/org-lint.el  | 612 +++---
 testing/lisp/test-org-lint.el |  20 ++
 3 files changed, 359 insertions(+), 278 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index e618feb..eb5a5d4 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -97,6 +97,11 @@ argument.
 
 ** Miscellaneous
 
+*** Users can add checkers to the linting process
+
+The function ~org-lint-add-checker~ allows one to add personal checks
+when calling ~org-lint~.   See its docstring for more information.
+
 *** New =transparent-image-converter= property for =dvipng=
 
 The =dvipng= option in ~org-preview-latex-process-alist~ has a new
diff --git a/lisp/org-lint.el b/lisp/org-lint.el
index a35aed8..6e03cec 100644
--- a/lisp/org-lint.el
+++ b/lisp/org-lint.el
@@ -22,89 +22,65 @@
 
 ;;; Commentary:
 
-;; This library implements linting for Org syntax.  The sole public
-;; function is `org-lint', which see.
+;; This library implements linting for Org syntax.  The process is
+;; started by calling `org-lint' command, which see.
 
-;; Internally, the library defines a new structure:
-;; `org-lint-checker', with the following slots:
-
-;;   - NAME: Unique check identifier, as a non-nil symbol that doesn't
-;; start with an hyphen.
-;;
-;; The check is done calling the function `org-lint-NAME' with one
-;; mandatory argument, the parse tree describing the current Org
-;; buffer.  Such function calls are wrapped within
-;; a `save-excursion' and point is always at `point-min'.  Its
-;; return value has to be an alist (POSITION MESSAGE) when
-;; POSITION refer to the buffer position of the error, as an
-;; integer, and MESSAGE is a string describing the error.
-
-;;   - DESCRIPTION: Summary about the check, as a string.
-
-;;   - CATEGORIES: Categories relative to the check, as a list of
-;; symbol.  They are used for filtering when calling `org-lint'.
-;; Checkers not explicitly associated to a category are collected
-;; in the `default' one.
-
-;;   - TRUST: The trust level one can have in the check.  It is either
-;; `low' or `high', depending on the heuristics implemented and
-;; the nature of the check.  This has an indicative value only and
-;; is displayed along reports.
-
-;; All checks have to be listed in `org-lint--checkers'.
+;; New checkers are added by `org-lint-add-checker' function.
+;; Internally, all checks are listed in `org-lint--checkers'.
 
 ;; Results are displayed in a special "*Org Lint*" buffer with
 ;; a dedicated major mode, derived from `tabulated-list-mode'.
-;;
 ;; In addition to the usual key-bindings inherited from it, "C-j" and
 ;; "TAB" display problematic line reported under point whereas "RET"
 ;; jumps to it.  Also, "h" hides all reports similar to the current
 ;; one.  Additionally, "i" removes them from subsequent reports.
 
-;; Checks currently implemented are:
-
-;;   - duplicate CUSTOM_ID properties
-;;   - duplicate NAME values
-;;   - duplicate targets
-;;   - duplicate footnote definitions
-;;   - orphaned affiliated keywords
-;;   - obsolete affiliated keywords
-;;   - missing language in source blocks
-;;   - missing back-end in export blocks
-;;   - invalid Babel call blocks
-;;   - NAME values with a colon
-;;   - deprecated export block syntax
-;;   - deprecated Babel header properties
-;;   - wrong header arguments in source blocks
-;;   - misuse of CATEGORY keyword
-;;   - "coderef" links with unknown destination
-;;   - "custom-id" links with unknown destination
-;;   - "fuzzy" links with unknown destination
-;;   - "id" links with unknown destination
-;;   - links to non-existent local files
-;;   - SETUPFILE keywords with non-existent file parameter
-;;   - INCLUDE keywords with wrong link parameter
-;;   - obsolete markup in INCLUDE keyword
-;;   - unknown items in OPTIONS keyword
-;;   - spurious macro arguments or invalid macro templates
-;;   - special properties in properties drawer
-;;   - obsolete syntax for PROPERTIES drawers
-;;   - Invalid EFFORT property value
-;;   - missing definition for footnote references
-;;   - missing reference for footnote definitions
-;;   - non-footnote definitions in footnote section
-;;   - probable invalid keywords
-;;   - invalid blocks
-;;   - misplaced planning info line
-;;   - incomplete drawers
-;;   - indented diary-sexps
-;;   - obsolete QUOTE section
-;;   - obsolete "file+application" link
-;;   - spurious colons in tags
-;;   - non-existent bibliography f

[elpa] externals/org updated (6766c45 -> ed53355)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  6766c45   org-lint: Add checkers for citations and related
   new  b4acde3   lint: Allow user-defined checkers during linting
   new  ed53355   lint: Reorder file


Summary of changes:
 etc/ORG-NEWS  |   5 +
 lisp/org-lint.el  | 980 ++
 testing/lisp/test-org-lint.el |  20 +
 3 files changed, 543 insertions(+), 462 deletions(-)

[elpa] externals/elisp-benchmarks 02c4c41: * elisp-benchmarks.el (elisp-benchmarks-run): Fix for non-native emacs

[Andrea Corallo]

branch: externals/elisp-benchmarks
commit 02c4c41a61b169e380f6b207084700d7376648b4
Author: Andrea Corallo 
Commit: Andrea Corallo 

* elisp-benchmarks.el (elisp-benchmarks-run): Fix for non-native emacs
---
 elisp-benchmarks.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp-benchmarks.el b/elisp-benchmarks.el
index ad79247..90e0642 100644
--- a/elisp-benchmarks.el
+++ b/elisp-benchmarks.el
@@ -4,7 +4,7 @@
 
 ;; Author: Andrea Corallo 
 ;; Maintainer: Andrea Corallo 
-;; Version: 1.12
+;; Version: 1.13
 ;; Keywords: languages, lisp
 ;; Package-Type: multi
 ;; Created: 2019-01-12
@@ -92,7 +92,7 @@ RECOMPILE all the benchmark folder when non nil."
(when current-prefix-arg
  (list (read-regexp "Run benchmark matching: "
   (let* ((native-comp-speed elb-speed)
-(compile-function (if (fboundp 'native-compile)
+(compile-function (if (featurep 'native-compile)
   #'native-compile
 #'byte-compile-file))
 (res (make-hash-table :test #'equal))

[elpa] externals/mct cb7179b: Tweak some doc strings and internal functions

[ELPA Syncer]

branch: externals/mct
commit cb7179babceba6793309037af1c241237faef8f9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak some doc strings and internal functions
---
 mct.el | 28 +++-
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/mct.el b/mct.el
index 7756c6d..f7a7e05 100644
--- a/mct.el
+++ b/mct.el
@@ -302,12 +302,17 @@ Meant to be added to `after-change-functions'."
   (buffer-local-value 'mct--active buf)))
 
 (defun mct--display-completion-list-advice (&rest app)
+  "Prepare advice around `display-completion-list'.
+Apply APP by first let binding the `completions-format' to
+`mct-completions-format'."
   (if (mct--active-p)
   (let ((completions-format mct-completions-format))
 (apply app))
 (apply app)))
 
 (defun mct--completing-read-advice (&rest app)
+  "Prepare advice around `completing-read-default'.
+Apply APP by first setting up the minibuffer to work with Mct."
   (minibuffer-with-setup-hook
   (lambda ()
 (setq-local resize-mini-windows t
@@ -843,11 +848,10 @@ this command is then required to abort the session."
 
 ;; Thanks to Omar Antolín Camarena for providing the messageless and
 ;; stealthily.  Source: .
-(defun mct--messageless (fn &rest args)
-  "Set `minibuffer-message-timeout' to 0.
-Meant as advice around minibuffer completion FN with ARGS."
+(defun mct--messageless (&rest app)
+  "Set `minibuffer-message-timeout' to 0 while applying APP."
   (let ((minibuffer-message-timeout 0))
-(apply fn args)))
+(apply app)))
 
 ;; Copied from Daniel Mendler's `vertico' library:
 ;; .
@@ -857,21 +861,18 @@ Meant as advice around minibuffer completion FN with 
ARGS."
 
 ;; Adapted from Omar Antolín Camarena's live-completions library:
 ;; .
-(defun mct--honor-inhibit-message (fn &rest args)
-  "Skip applying FN to ARGS if `inhibit-message' is t.
-Meant as `:around' advice for `minibuffer-message', which does
-not honor minibuffer message."
+(defun mct--honor-inhibit-message (&rest app)
+  "Honor `inhibit-message' while applying APP."
   (unless inhibit-message
-(apply fn args)))
+(apply app)))
 
 ;; Note that this solves bug#45686:
 ;; 
-(defun mct--stealthily (fn &rest args)
+(defun mct--stealthily (&rest app)
   "Prevent minibuffer default from counting as a modification.
-Meant as advice for FN `minibuf-eldef-setup-minibuffer' with rest
-ARGS."
+Apply APP while inhibiting modification hooks."
   (let ((inhibit-modification-hooks t))
-(apply fn args)))
+(apply app)))
 
 (defun mct--setup-appearance ()
   "Set up variables for the appearance of the Completions' buffer."
@@ -1025,6 +1026,7 @@ region.")
(current-local-map)
 
 (defun mct--setup-completion-list ()
+  "Set up the completion-list for Mct."
   (when (mct--active-p)
 (setq-local completion-show-help nil)
 (mct--setup-clean-completions)

[elpa] externals/vertico b99ce0c: Version 0.17

[ELPA Syncer]

branch: externals/vertico
commit b99ce0cd6ff646a47c261df85a53843baf637b97
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.17

This release includes the extensions as part of the ELPA package.
---
 extensions/vertico-buffer.el| 2 +-
 extensions/vertico-directory.el | 2 +-
 extensions/vertico-flat.el  | 2 +-
 extensions/vertico-grid.el  | 2 +-
 extensions/vertico-indexed.el   | 2 +-
 extensions/vertico-mouse.el | 2 +-
 extensions/vertico-quick.el | 2 +-
 extensions/vertico-repeat.el| 2 +-
 extensions/vertico-reverse.el   | 2 +-
 vertico.el  | 2 +-
 10 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index 3d5d350..9885ba4 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index b2b6973..f31f165 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index d537dae..8b36a76 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 6aa2d82..6be32a4 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-indexed.el b/extensions/vertico-indexed.el
index 10030e8..304651d 100644
--- a/extensions/vertico-indexed.el
+++ b/extensions/vertico-indexed.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-mouse.el b/extensions/vertico-mouse.el
index 6047243..3193aaa 100644
--- a/extensions/vertico-mouse.el
+++ b/extensions/vertico-mouse.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-quick.el b/extensions/vertico-quick.el
index c87ce51..298cc4a 100644
--- a/extensions/vertico-quick.el
+++ b/extensions/vertico-quick.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index cd43657..4fbb72c 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/extensions/vertico-reverse.el b/extensions/vertico-reverse.el
index 335a568..79e6c54 100644
--- a/extensions/vertico-reverse.el
+++ b/extensions/vertico-reverse.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
 ;; Version: 0.1
-;; Package-Requires: ((emacs "27.1") (vertico "0.16"))
+;; Package-Requires: ((emacs "27.1") (vertico "0.17"))
 ;; Homepage: https://github.com/minad/vertico
 
 ;; This file is part of GNU Emacs.
diff --git a/vertico.el b/vertico.el
index 305bb1c..35be6a5 100644
--- a/vertico.el
+++ b/vertico.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.16
+;; Version: 0.17
 ;; Package-Requires: 

[nongnu] elpa/git-commit fd5b9ea: magit-fetch-modules: With prefix argument act as transient prefix

[ELPA Syncer]

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

magit-fetch-modules: With prefix argument act as transient prefix
---
 lisp/magit-fetch.el | 58 +
 1 file changed, 36 insertions(+), 22 deletions(-)

diff --git a/lisp/magit-fetch.el b/lisp/magit-fetch.el
index e400615..ec808f4 100644
--- a/lisp/magit-fetch.el
+++ b/lisp/magit-fetch.el
@@ -31,14 +31,11 @@
 
 (require 'magit)
 
-;;; Options
-
-(defcustom magit-fetch-modules-jobs 4
-  "Number of submodules to fetch in parallel.
-Ignored for Git versions before v2.8.0."
-  :package-version '(magit . "2.12.0")
-  :group 'magit-commands
-  :type '(choice (const :tag "one at a time" nil) number))
+(defvar magit-fetch-modules-jobs nil)
+(make-obsolete-variable
+ 'magit-fetch-modules-jobs
+ "invoke `magit-fetch-modules' with a prefix argument instead."
+ "Magit 3.0.0")
 
 ;;; Commands
 
@@ -167,22 +164,39 @@ removed on the respective remote."
   (run-hooks 'magit-credential-hook)
   (magit-run-git-async "remote" "update"))
 
-;;;###autoload
-(defun magit-fetch-modules (&optional all)
+;;;###autoload (autoload 'magit-fetch-modules "magit-fetch" nil t)
+(transient-define-prefix magit-fetch-modules (&optional transient args)
   "Fetch all submodules.
 
-Option `magit-fetch-modules-jobs' controls how many submodules
-are being fetched in parallel.  Also fetch the super-repository,
-because `git-fetch' does not support not doing that.  With a
-prefix argument fetch all remotes."
-  (interactive "P")
-  (magit-with-toplevel
-(magit-run-git-async
- "fetch" "--verbose" "--recurse-submodules"
- (and magit-fetch-modules-jobs
-  (version<= "2.8.0" (magit-git-version))
-  (list "-j" (number-to-string magit-fetch-modules-jobs)))
- (and all "--all"
+Fetching is done using \"git fetch --recurse-submodules\", which
+means that the super-repository and recursively all submodules
+are also fetched.
+
+To set and potentially save other arguments invoke this command
+with a prefix argument."
+  :man-page "git-fetch"
+  :value (list "--verbose"
+   (cond (magit-fetch-modules-jobs
+  (format "--jobs=%s" magit-fetch-modules-jobs))
+ (t "--jobs=4")))
+  ["Arguments"
+   ("-v" "verbose""--verbose")
+   ("-a" "all remotes""--all")
+   ("-j" "number of jobs" "--jobs=" :reader transient-read-number-N+)]
+  ["Action"
+   ("m" "fetch modules" magit-fetch-modules)]
+  (interactive (if current-prefix-arg
+   (list t)
+ (list nil (transient-args 'magit-fetch-modules
+  (if transient
+  (transient-setup 'magit-fetch-modules)
+(let ((git-version (magit-git-version)))
+  (when (version<= "2.8.0" git-version)
+(when-let ((value (transient-arg-value "--jobs=" args)))
+  (message "Dropping --jobs; not supported by Git v%s" git-version)
+  (setq args (remove (format "--jobs=%s" value) args)
+(magit-with-toplevel
+  (magit-run-git-async "fetch" "--recurse-submodules" args
 
 ;;; _
 (provide 'magit-fetch)

[nongnu] elpa/magit updated (84104e8 -> fd5b9ea)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  84104e8   manual: Correct face name
  adds  fd5b9ea   magit-fetch-modules: With prefix argument act as 
transient prefix

No new revisions were added by this update.

Summary of changes:
 lisp/magit-fetch.el | 58 +
 1 file changed, 36 insertions(+), 22 deletions(-)

[nongnu] elpa/magit-section updated (84104e8 -> fd5b9ea)

[ELPA Syncer]

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

  from  84104e8   manual: Correct face name
  adds  fd5b9ea   magit-fetch-modules: With prefix argument act as 
transient prefix

No new revisions were added by this update.

Summary of changes:
 lisp/magit-fetch.el | 58 +
 1 file changed, 36 insertions(+), 22 deletions(-)

[elpa] main b023942: * copyright_exceptions (parser-generator): New exception

[monnier--- via]

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

* copyright_exceptions (parser-generator): New exception
---
 copyright_exceptions | 1 +
 elpa-packages| 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/copyright_exceptions b/copyright_exceptions
index c02ea5f..9ae0612 100644
--- a/copyright_exceptions
+++ b/copyright_exceptions
@@ -44,6 +44,7 @@ hyperbole/kotl/kotl-autoloads.el
 mmm-mode/mmm-noweb.el:;; Copyright 1995 by Thorsten.Ohl @ 
Physik.TH-Darmstadt.de
 mmm-mode/mmm-noweb.el:;; Copyright 2003, 2004  Joe Kelsey 

 mmm-mode/mmm-rpm.el:;; Copyright (C) 2000 by Marcus Harnisch 

+parser-generator/parser-generator-lr-export.el:  ;; Optional copyright
 python/python.el:   ;; copyright, license, credits, quit and exit are 
added by the site
 realgud/realgud-recursive-autoloads.el
 rudel/rudel-loaddefs.el
diff --git a/elpa-packages b/elpa-packages
index 2f806bd..a8f074c 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -519,8 +519,7 @@
  ("visual-fill":url nil)
  ("vlf":url "https://github.com/m00natic/vlfi";)
  ("verilog-mode":core "lisp/progmodes/verilog-mode.el")
- ("vertico"
-  :url "https://github.com/minad/vertico";
+ ("vertico":url "https://github.com/minad/vertico";
   :doc "README.org"
   :ignored-files ("*.svg")
   :renames (("extensions/" ""))

[nongnu] elpa/git-commit 2039619: magit-remote-at-point: For branch section check type of parent

[ELPA Syncer]

branch: elpa/git-commit
commit 2039619696bafeeebff245e316af640c19d5cf1c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-remote-at-point: For branch section check type of parent
---
 lisp/magit-git.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index dba75b6..8fbeab9 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1394,7 +1394,7 @@ to, or to some other symbolic-ref that points to the same 
ref."
 (defun magit-remote-at-point ()
   (magit-section-case
 (remote (oref it value))
-(branch (magit-section-parent-value it
+([branch remote] (magit-section-parent-value it
 
 (defun magit-module-at-point (&optional predicate)
   (when (magit-section-match 'magit-module-section)

[nongnu] elpa/magit-section updated (fd5b9ea -> 2039619)

[ELPA Syncer]

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

  from  fd5b9ea   magit-fetch-modules: With prefix argument act as 
transient prefix
  adds  2039619   magit-remote-at-point: For branch section check type of 
parent

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

[nongnu] elpa/magit updated (fd5b9ea -> 2039619)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  fd5b9ea   magit-fetch-modules: With prefix argument act as 
transient prefix
  adds  2039619   magit-remote-at-point: For branch section check type of 
parent

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

[elpa] externals/company updated (6abb232 -> 8b58e58)

[ELPA Syncer]

elpasync pushed a change to branch externals/company.

  from  6abb232   Merge pull request #1261 from vatai/master
   new  4dda76f   Fix docstrings
   new  b180aa3   Merge pull request #1272 from yugaego/docstr
   new  ac35ff9   Rename tooltip scrollbar faces
   new  8b58e58   Merge pull request #1271 from yugaego/scrollbar


Summary of changes:
 NEWS.md|  3 +++
 company.el | 33 ++---
 2 files changed, 25 insertions(+), 11 deletions(-)

[elpa] externals/company b180aa3 3/4: Merge pull request #1272 from yugaego/docstr

[ELPA Syncer]

branch: externals/company
commit b180aa38e0b950c004795fbadd15ee6104c63fb1
Merge: 6abb232 4dda76f
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1272 from yugaego/docstr

Fix docstrings
---
 company.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/company.el b/company.el
index 6216455..d5d843b 100644
--- a/company.el
+++ b/company.el
@@ -1659,14 +1659,15 @@ The only mandatory element in CONF is ICON, you can 
omit both the FG and BG
 fields without issue.
 
 When BG is omitted and `company-text-icons-add-background' is non-nil, a BG
-color will be generated using a gradient between the active tooltip color and
+color is generated using a gradient between the active tooltip color and
 the FG color."
   :type 'list)
 
 (defcustom company-text-face-extra-attributes '(:weight bold)
-  "Additional attributes to add to text icons' faces.
-If non-nil, an anonymous face will be generated.
-Only affects `company-text-icons-margin'."
+  "Additional attributes to add to text/dot icons faces.
+If non-nil, an anonymous face is generated.
+
+Affects `company-text-icons-margin' and `company-dot-icons-margin'."
   :type 'list)
 
 (defcustom company-text-icons-format " %s "
@@ -1674,7 +1675,7 @@ Only affects `company-text-icons-margin'."
   :type 'string)
 
 (defcustom company-text-icons-add-background nil
-  "When non-nil, generate a background color for text icons when none is given.
+  "Generate a background color for text/dot icons when none is given.
 See `company-text-icons-mapping'."
   :type 'boolean)
 

[elpa] externals/company ac35ff9 1/4: Rename tooltip scrollbar faces

[ELPA Syncer]

branch: externals/company
commit ac35ff99a22c76e517474bc3b5f3b7eaef26fb73
Author: YugaEgo 
Commit: YugaEgo 

Rename tooltip scrollbar faces
---
 NEWS.md|  3 +++
 company.el | 22 --
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index f5004ef..3c98ac6 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,9 @@
 
 ## Next
 
+* Faces `company-scrollbar-fg` and `company-scrollbar-bg` have been renamed to
+  `company-tooltip-scrollbar-thumb` and `company-tooltip-scrollbar-track`
+  respectively.
 * Better compatibility with `visual-line-mdoe`
   ([#1257](https://github.com/company-mode/company-mode/issues/1257)).
 * Better compatibility with `org-indent-mode`
diff --git a/company.el b/company.el
index 6216455..0461c25 100644
--- a/company.el
+++ b/company.el
@@ -140,19 +140,29 @@
   "Face used for the selected quick-access hints shown in the tooltip."
   :package-version '(company . "0.9.14"))
 
-(defface company-scrollbar-fg
+(define-obsolete-face-alias
+ 'company-scrollbar-fg
+ 'company-tooltip-scrollbar-thumb
+ "0.9.14")
+
+(defface company-tooltip-scrollbar-thumb
   'background light))
  :background "darkred")
 (((background dark))
  :background "gray33"))
-  "Face used for the tooltip scrollbar thumb.")
+  "Face used for the tooltip scrollbar thumb (bar).")
+
+(define-obsolete-face-alias
+ 'company-scrollbar-bg
+ 'company-tooltip-scrollbar-track
+ "0.9.14")
 
-(defface company-scrollbar-bg
+(defface company-tooltip-scrollbar-track
   'background light))
  :background "wheat")
 (((background dark))
  :background "gray28"))
-  "Face used for the tooltip scrollbar background.")
+  "Face used for the tooltip scrollbar track (trough).")
 
 (defface company-preview
   '((default :inherit (company-tooltip-selection company-tooltip)))
@@ -3383,8 +3393,8 @@ but adjust the expected values appropriately."
 (defun company--scrollbar (i bounds)
   (propertize " " 'face
   (if (and (>= i (car bounds)) (<= i (cdr bounds)))
-  'company-scrollbar-fg
-'company-scrollbar-bg)))
+  'company-tooltip-scrollbar-thumb
+'company-tooltip-scrollbar-track)))
 
 (defun company--scrollpos-line (text width fancy-margin-width)
   (propertize (concat (company-space-string company-tooltip-margin)

[elpa] externals/company 4dda76f 2/4: Fix docstrings

[ELPA Syncer]

branch: externals/company
commit 4dda76f9fca9aad8fc7e4fd7d315e1d8077369fe
Author: YugaEgo 
Commit: YugaEgo 

Fix docstrings
---
 company.el | 11 ++-
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/company.el b/company.el
index 6216455..d5d843b 100644
--- a/company.el
+++ b/company.el
@@ -1659,14 +1659,15 @@ The only mandatory element in CONF is ICON, you can 
omit both the FG and BG
 fields without issue.
 
 When BG is omitted and `company-text-icons-add-background' is non-nil, a BG
-color will be generated using a gradient between the active tooltip color and
+color is generated using a gradient between the active tooltip color and
 the FG color."
   :type 'list)
 
 (defcustom company-text-face-extra-attributes '(:weight bold)
-  "Additional attributes to add to text icons' faces.
-If non-nil, an anonymous face will be generated.
-Only affects `company-text-icons-margin'."
+  "Additional attributes to add to text/dot icons faces.
+If non-nil, an anonymous face is generated.
+
+Affects `company-text-icons-margin' and `company-dot-icons-margin'."
   :type 'list)
 
 (defcustom company-text-icons-format " %s "
@@ -1674,7 +1675,7 @@ Only affects `company-text-icons-margin'."
   :type 'string)
 
 (defcustom company-text-icons-add-background nil
-  "When non-nil, generate a background color for text icons when none is given.
+  "Generate a background color for text/dot icons when none is given.
 See `company-text-icons-mapping'."
   :type 'boolean)
 

[elpa] externals/company 8b58e58 4/4: Merge pull request #1271 from yugaego/scrollbar

[ELPA Syncer]

branch: externals/company
commit 8b58e5895c2eaf8686de0e25c807b00fdb205c7a
Merge: b180aa3 ac35ff9
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1271 from yugaego/scrollbar

Rename tooltip scrollbar faces
---
 NEWS.md|  3 +++
 company.el | 22 --
 2 files changed, 19 insertions(+), 6 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index f5004ef..3c98ac6 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,9 @@
 
 ## Next
 
+* Faces `company-scrollbar-fg` and `company-scrollbar-bg` have been renamed to
+  `company-tooltip-scrollbar-thumb` and `company-tooltip-scrollbar-track`
+  respectively.
 * Better compatibility with `visual-line-mdoe`
   ([#1257](https://github.com/company-mode/company-mode/issues/1257)).
 * Better compatibility with `org-indent-mode`
diff --git a/company.el b/company.el
index d5d843b..0809414 100644
--- a/company.el
+++ b/company.el
@@ -140,19 +140,29 @@
   "Face used for the selected quick-access hints shown in the tooltip."
   :package-version '(company . "0.9.14"))
 
-(defface company-scrollbar-fg
+(define-obsolete-face-alias
+ 'company-scrollbar-fg
+ 'company-tooltip-scrollbar-thumb
+ "0.9.14")
+
+(defface company-tooltip-scrollbar-thumb
   'background light))
  :background "darkred")
 (((background dark))
  :background "gray33"))
-  "Face used for the tooltip scrollbar thumb.")
+  "Face used for the tooltip scrollbar thumb (bar).")
+
+(define-obsolete-face-alias
+ 'company-scrollbar-bg
+ 'company-tooltip-scrollbar-track
+ "0.9.14")
 
-(defface company-scrollbar-bg
+(defface company-tooltip-scrollbar-track
   'background light))
  :background "wheat")
 (((background dark))
  :background "gray28"))
-  "Face used for the tooltip scrollbar background.")
+  "Face used for the tooltip scrollbar track (trough).")
 
 (defface company-preview
   '((default :inherit (company-tooltip-selection company-tooltip)))
@@ -3384,8 +3394,8 @@ but adjust the expected values appropriately."
 (defun company--scrollbar (i bounds)
   (propertize " " 'face
   (if (and (>= i (car bounds)) (<= i (cdr bounds)))
-  'company-scrollbar-fg
-'company-scrollbar-bg)))
+  'company-tooltip-scrollbar-thumb
+'company-tooltip-scrollbar-track)))
 
 (defun company--scrollpos-line (text width fancy-margin-width)
   (propertize (concat (company-space-string company-tooltip-margin)

[elpa] externals/org b170b23: Update adadb5b55 for Emacs 26

[ELPA Syncer]

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

Update adadb5b55 for Emacs 26
---
 lisp/org-element.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index b784b47..f42fa2a 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5880,7 +5880,7 @@ updated before current modification are actually 
submitted."
 ;; Note: 4 is a footprint for
 ;; (let ((inhibit-modification-hooks t))
 ;; (insert "blah"))
-'(1 3 6 7 8
+'(1 3 6 7 8 9
   (and (boundp 'org-batch-test) org-batch-test))
   (org-element--cache-warn "Unregistered buffer modifications 
detected. Resetting.
 If this warning appears regularly, please report it to Org mode mailing list 
(M-x org-submit-bug-report).

[elpa] externals/org 328be6d: org-element--parse-to: Fix skipping sibling optimisation

[ELPA Syncer]

branch: externals/org
commit 328be6df40368ddfc7572b6d99f55c76abfa611c
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-element--parse-to: Fix skipping sibling optimisation

* lisp/org-element.el (org-element--parse-to): Fallback to normal
parsing when there are no siblings between POS and ELEM-END.

Reported in
https://github.com/yantar92/org/issues/38#issuecomment-982830497
---
 lisp/org-element.el | 20 
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index f42fa2a..84c1b72 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6420,14 +6420,18 @@ If you observe Emacs hangs frequently, please report 
this to Org mode mailing li
;; may exist though.  Parse starting from the
;; last sibling or from ELEM-END if there are
;; no other siblings.
-   (goto-char pos)
-   (re-search-backward
-(rx-to-string
- `(and bol (repeat ,(let ((level (org-element-property 
:level element)))
-  (if org-odd-levels-only (1- (* 
level 2)) level))
-   "*")
-   " "))
-elem-end t
+   (let ((p (point)))
+ (goto-char pos)
+ (unless
+ (re-search-backward
+  (rx-to-string
+   `(and bol (repeat ,(let ((level 
(org-element-property :level element)))
+(if org-odd-levels-only 
(1- (* level 2)) level))
+ "*")
+ " "))
+  elem-end t)
+   ;; Roll-back to normal parsing.
+   (goto-char p))
 (setq mode (org-element--next-mode mode type nil)))
;; A non-greater element contains point: return it.
((not (memq type org-element-greater-elements))

[elpa] externals/pyim 88aae7b: * pyim-page.el (pyim-page-refresh): 在 minibuffer 中可以使用 posframe.

[ELPA Syncer]

branch: externals/pyim
commit 88aae7b84afa02ca8e365db65064cd0185b6eaa5
Author: Feng Shu 
Commit: Feng Shu 

* pyim-page.el (pyim-page-refresh): 在 minibuffer 中可以使用 posframe.
---
 pyim-page.el | 41 +++--
 1 file changed, 23 insertions(+), 18 deletions(-)

diff --git a/pyim-page.el b/pyim-page.el
index 5ebc340..d91e56e 100644
--- a/pyim-page.el
+++ b/pyim-page.el
@@ -203,28 +203,33 @@ page 的概念，比如，上面的 “nihao” 的 *待选词列表* 就可以
 ;; Show page.
 (when (and (null unread-command-events)
(null unread-post-input-method-events))
-  (if (eq (selected-window) (minibuffer-window))
+  (let ((message-log-max nil))
+(cond
+ ((and (eq (selected-window) (minibuffer-window))
+   ;; posframe 可以用到 minibuffer 中，效果良好，popup 效果不好，
+   ;; 会导致 minibuffer 莫名其妙的变大。
+   (not (and (eq pyim-page-tooltip 'posframe)
+ (functionp 'posframe-workable-p)
+ (posframe-workable-p
   ;; 在 minibuffer 中输入中文时，使用当前输入的
   ;; 下一行来显示候选词。
   (pyim-page-minibuffer-message
(concat pyim-page-minibuffer-separator
-   (pyim-page-style:minibuffer page-info)))
-;; 在普通 buffer 中输入中文时，使用 `pyim-page-tooltip'
-;; 指定的方式来显示候选词。
-(let ((message-log-max nil))
-  (cond
-   ((pyim-probe-exwm-environment)
-;; when exwm-xim is used, page should be showed
-;; in minibuffer.
-(message (pyim-page-style:exwm page-info)))
-   (pyim-page-tooltip
-(pyim-page-tooltip-show
- (let ((func (intern (format "pyim-page-style:%S" 
pyim-page-style
-   (if (functionp func)
-   (funcall func page-info)
- (pyim-page-style:two-lines page-info)))
- (overlay-start pyim-preview-overlay)))
-   (t (message (pyim-page-style:minibuffer page-info)
+   (pyim-page-style:minibuffer page-info
+ ((pyim-probe-exwm-environment)
+  ;; when exwm-xim is used, page should be showed
+  ;; in minibuffer.
+  (message (pyim-page-style:exwm page-info)))
+ ;; 在普通 buffer 中输入中文时，使用 `pyim-page-tooltip'
+ ;; 指定的方式来显示候选词。
+ (pyim-page-tooltip
+  (pyim-page-tooltip-show
+   (let ((func (intern (format "pyim-page-style:%S" pyim-page-style
+ (if (functionp func)
+ (funcall func page-info)
+   (pyim-page-style:two-lines page-info)))
+   (overlay-start pyim-preview-overlay)))
+ (t (message (pyim-page-style:minibuffer page-info
 
 (declare-function pyim-process-terminate "pyim-process")
 

[elpa] externals/vertico-posframe updated (bfccdd5 -> 609d86a)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico-posframe.

  from  bfccdd5   v0.4.1
   new  4b82c7e   Remove vertico-posframe--advice.
   new  65744eb   Remove vertico-posframe--post-command-function.
   new  609d86a   v0.4.2


Summary of changes:
 vertico-posframe.el | 73 +++--
 1 file changed, 21 insertions(+), 52 deletions(-)