[elpa] externals/consult updated (1f64c06 -> f42741f)

2021-06-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/consult.

  from  1f64c06   Revert "README: Add consult-org-heading to example 
configuration"
   new  8a6952f   README: Fix formatting issue
   new  f42741f   Minor readme improvements


Summary of changes:
 README.org | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)



[elpa] externals/consult 8a6952f 1/2: README: Fix formatting issue

2021-06-21 Thread ELPA Syncer
branch: externals/consult
commit 8a6952f3c776e68abd051ccaf633dcacdc48707e
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Fix formatting issue
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index adda1ac..362183b 100644
--- a/README.org
+++ b/README.org
@@ -508,9 +508,9 @@ their descriptions.
  The default splitting style is configured with the variable
  ~consult-async-split-style~.
 
- For the =space=/=comma=/=semicolon= splitting styles, the first word before 
the
- space/comma/semicolon is passed to grep, the remaining string is used for
- filtering.
+ For the =space=, =comma= and =semicolon= splitting styles, the first word
+ before the space/comma/semicolon is passed to grep, the remaining string is
+ used for filtering.
 
  For the =perl= splitting style, the input string is split at a punctuation
  character, using a similar syntax as Perl regular expressions.



[elpa] externals/consult f42741f 2/2: Minor readme improvements

2021-06-21 Thread ELPA Syncer
branch: externals/consult
commit f42741f9af45242cebd69348db705be3e95b05fe
Author: Daniel Mendler 
Commit: Daniel Mendler 

Minor readme improvements
---
 README.org | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 362183b..836b59e 100644
--- a/README.org
+++ b/README.org
@@ -508,12 +508,12 @@ their descriptions.
  The default splitting style is configured with the variable
  ~consult-async-split-style~.
 
- For the =space=, =comma= and =semicolon= splitting styles, the first word
+ With the =space=, =comma= and =semicolon= splitting styles, the first word
  before the space/comma/semicolon is passed to grep, the remaining string is
  used for filtering.
 
- For the =perl= splitting style, the input string is split at a punctuation
- character, using a similar syntax as Perl regular expressions.
+ The =perl= splitting style splits the input string at a punctuation character,
+ using a similar syntax as Perl regular expressions.
 
  Examples:
 
@@ -526,9 +526,9 @@ their descriptions.
must be longer than =consult-async-min-input= characters by default.
  - =#defun -- --invert-match#=: Pass argument =--invert-match= to grep.
 
- For asynchronous processes like =find= and =grep=,
- there is an error log buffer =_*consult-async*= (note the leading space).
- The prompt has a small indicator showing the process status:
+ Asynchronous processes like =find= and =grep= create an error log buffer
+ =_*consult-async*= (note the leading space), which is useful for
+ troubleshooting. The prompt has a small indicator showing the process status:
 
  - =:= the usual prompt colon, before input is provided.
  - =*= with warning face, the process is running.



[elpa] main b628990: * elpa-packages (rt-liberation): Auto sync

2021-06-21 Thread monnier--- via
branch: main
commit b628990de26888a140e4476ba5a82facb77617f7
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-packages (rt-liberation): Auto sync
---
 elpa-packages | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 61b1549..6ff575f 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -324,7 +324,8 @@
  ("repology"   :url nil)
  ("rich-minority"  :url "https://github.com/Malabarba/rich-minority";)
  ("rnc-mode"   :url nil)
- ("rt-liberation"  :url "https://git.savannah.nongnu.org/git/rtliber";)
+ ("rt-liberation"  :url "https://git.savannah.nongnu.org/git/rtliber";
+  :auto-sync t)
  ("rudel"  :url nil) ;; Was 
bzr::bzr://rudel.bzr.sourceforge.net/bzrroot/rudel/trunk
  ("scanner":url "https://gitlab.com/rstocker/scanner.git";)
  ("scroll-restore" :url nil)



[elpa] externals/rt-liberation f46b625: * doc/developer-release.txt: docs update

2021-06-21 Thread Yoni Rabkin
branch: externals/rt-liberation
commit f46b625e1ca43be431c25b2b543fb46984d59017
Author: Yoni Rabkin 
Commit: Yoni Rabkin 

* doc/developer-release.txt: docs update
---
 doc/developer-release.txt | 12 +---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/doc/developer-release.txt b/doc/developer-release.txt
index 8dd9677..2d00f10 100644
--- a/doc/developer-release.txt
+++ b/doc/developer-release.txt
@@ -6,25 +6,26 @@ ELPA.
 * compile
 Check for and correct compile-time errors and warnings.
 
+
 * version
 In order for the ELPA system to trigger a release the version number
 in the comment header of rt-liberation.el must be incremented.
 
+
 * Good News
 Update the NEWS file to tell all of the people the Good News.
 
+
 * documentation
 Update the manual, compile it, and update the copy of the info file in
 the root directory so that ELPA can install it.
 
-Compile an HTML version of the manual and update it on the Website:
+Compile an HTML version of the manual and update the Website:
 
 $ cvs commit -m "update manual" rt-liber.html
 
 $ cvs commit -m "update website" index.html
 
-* push
-Push these updates to the git repo.
 
 * tag
 Tag the release with the ELPA version number, then push that tag to
@@ -34,6 +35,11 @@ the VCS:
 
 $ git push --tags origin "2.2"
 
+
+* push
+Push these updates to the git repo.
+
+
 * ELPA
 Merge the changes into the local externals/rt-liberation (git will
 complain) and then push the changes to externals/rt-liberation on



[elpa] externals/rt-liberation 4e1c6fe 2/2: Merge branch 'externals/rt-liberation'

2021-06-21 Thread ELPA Syncer
branch: externals/rt-liberation
commit 4e1c6fea20eebffa087bf3206e7b64a3adb8641b
Merge: ac02bc9 f46b625
Author: Yoni Rabkin 
Commit: Yoni Rabkin 

Merge branch 'externals/rt-liberation'
---
 .gitignore|  3 +++
 doc/developer-release.txt | 12 +---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 000..afeeed2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+*.elc
+rt-liberation-autoloads.el
+rt-liberation-pkg.el
diff --git a/doc/developer-release.txt b/doc/developer-release.txt
index 8dd9677..2d00f10 100644
--- a/doc/developer-release.txt
+++ b/doc/developer-release.txt
@@ -6,25 +6,26 @@ ELPA.
 * compile
 Check for and correct compile-time errors and warnings.
 
+
 * version
 In order for the ELPA system to trigger a release the version number
 in the comment header of rt-liberation.el must be incremented.
 
+
 * Good News
 Update the NEWS file to tell all of the people the Good News.
 
+
 * documentation
 Update the manual, compile it, and update the copy of the info file in
 the root directory so that ELPA can install it.
 
-Compile an HTML version of the manual and update it on the Website:
+Compile an HTML version of the manual and update the Website:
 
 $ cvs commit -m "update manual" rt-liber.html
 
 $ cvs commit -m "update website" index.html
 
-* push
-Push these updates to the git repo.
 
 * tag
 Tag the release with the ELPA version number, then push that tag to
@@ -34,6 +35,11 @@ the VCS:
 
 $ git push --tags origin "2.2"
 
+
+* push
+Push these updates to the git repo.
+
+
 * ELPA
 Merge the changes into the local externals/rt-liberation (git will
 complain) and then push the changes to externals/rt-liberation on



[elpa] externals/rt-liberation ac02bc9 1/2: * rt-liberation.el: start work on 2.4rc

2021-06-21 Thread ELPA Syncer
branch: externals/rt-liberation
commit ac02bc9d463da1ac3028b3ade5d4c89bd7d1204d
Author: Yoni Rabkin 
Commit: Yoni Rabkin 

* rt-liberation.el: start work on 2.4rc
---
 NEWS |  6 +
 rt-liberation.el | 80 +---
 2 files changed, 7 insertions(+), 79 deletions(-)

diff --git a/NEWS b/NEWS
index 3d70407..bdd429c 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,9 @@
+New in version 2.4
+
+* Versions are now in X.Y format in order to be more elpa
+  friendly.
+
+
 New in version 2.03
 
 * Bug fix: incorrect display of certain dates in the viewer.
diff --git a/rt-liberation.el b/rt-liberation.el
index 63157ff..1140eed 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -5,7 +5,7 @@
 ;; Author: Yoni Rabkin 
 ;; Authors: Aaron S. Hawley , John Sullivan 

 ;; Maintainer: Yoni Rabkin 
-;; Version: 2.3
+;; Version: 2.4rc
 ;; Keywords: rt, tickets
 ;; Package-Type: multi
 ;; url: http://www.nongnu.org/rtliber/
@@ -375,12 +375,6 @@ If POINT is nil then called on (point)."
   (let ((prev (previous-single-property-change (point) 'rt-ticket)))
 (when prev (goto-char prev
 
-(defun rt-liber-display-ticket-at-point ()
-  "Display the contents of the ticket at point."
-  (interactive)
-  (let ((ticket-alist (get-text-property (point) 'rt-ticket)))
-(rt-liber-display-ticket-history ticket-alist (current-buffer
-
 (defun rt-liber-ticket-at-point ()
   "Display the contents of the ticket at point."
   (interactive)
@@ -728,45 +722,9 @@ returned as no associated text properties."
   (rt-liber-browser-assign rt-liber-username))
 
 
-;;; 
-;;; Viewer
-;;; 
-(defun rt-liber-display-ticket-history (ticket-alist &optional assoc-browser)
-  "Display history for ticket.
-TICKET-ALIST alist of ticket data.
-ASSOC-BROWSER if non-nil should be a ticket browser."
-  (let* ((ticket-id (rt-liber-ticket-id-only ticket-alist))
-(contents (rt-liber-rest-run-ticket-history-base-query ticket-id))
-(new-ticket-buffer (get-buffer-create
-(concat "*RT Ticket #" ticket-id "*"
-(with-current-buffer new-ticket-buffer
-  (let ((inhibit-read-only t))
-   (erase-buffer)
-   (insert contents)
-   (goto-char (point-min))
-   (rt-liber-viewer-mode)
-   (set
-(make-local-variable 'rt-liber-ticket-local)
-ticket-alist)
-   (when assoc-browser
- (set
-  (make-local-variable 'rt-liber-assoc-browser)
-  assoc-browser))
-   (set-buffer-modified-p nil)
-   (setq buffer-read-only t)))
-(switch-to-buffer new-ticket-buffer)))
-
-
 ;;; --
 ;;; viewer mode functions
 ;;; --
-(defun rt-liber-refresh-ticket-history (&optional _ignore-auto _noconfirm)
-  (interactive)
-  (if rt-liber-ticket-local
-  (rt-liber-display-ticket-history rt-liber-ticket-local
-   rt-liber-assoc-browser)
-(error "not viewing a ticket")))
-
 (defun rt-liber-jump-to-latest-correspondence ()
   "Move point to the newest correspondence section."
   (interactive)
@@ -827,42 +785,6 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
 (message "no previous section"))
   (goto-char (point-at-bol)))
 
-(defconst rt-liber-viewer-mode-map
-  (let ((map (make-sparse-keymap)))
-(define-key map (kbd "q") 'rt-liber-viewer-mode-quit)
-(define-key map (kbd "n") 'rt-liber-next-section-in-viewer)
-(define-key map (kbd "N") 'rt-liber-jump-to-latest-correspondence)
-(define-key map (kbd "p") 'rt-liber-previous-section-in-viewer)
-(define-key map (kbd "V") 'rt-liber-viewer-visit-in-browser)
-(define-key map (kbd "m") 'rt-liber-viewer-answer)
-(define-key map (kbd "M") 'rt-liber-viewer-answer-this)
-(define-key map (kbd "t") 'rt-liber-viewer-answer-provisionally)
-(define-key map (kbd "T") 'rt-liber-viewer-answer-provisionally-this)
-(define-key map (kbd "F") 'rt-liber-viewer-answer-verbatim-this)
-(define-key map (kbd "c") 'rt-liber-viewer-comment)
-(define-key map (kbd "C") 'rt-liber-viewer-comment-this)
-(define-key map (kbd "g") 'revert-buffer)
-(define-key map (kbd "SPC") 'scroll-up)
-(define-key map (kbd "DEL") 'scroll-down)
-(define-key map (kbd "h") 'rt-liber-viewer-show-ticket-browser)
-map)
-  "Key map for ticket viewer.")
-
-(define-derived-mode rt-liber-viewer-mode nil
-  "RT Liberation Viewer"
-  "Major Mode for viewing RT tickets.
-\\{rt-liber-viewer-mode-map}"
-  (set
-   (make-local-variable 'font-lock-defaults)
-   '((rt-liber-viewer-font-lock-keywords)))
-  (set (make-local-variable 'revert-buffer-function)
-   #'rt-liber-refresh-ticket-history)
-  (set (make-local-variable 'buffer-stale-function)
-   (lambda (&optional

[elpa] externals/consult 51d2767: consult-narrow: Remove which-key pseudo keys (#339)

2021-06-21 Thread ELPA Syncer
branch: externals/consult
commit 51d276785d9c983271b13c8c1be43bdff37b8083
Author: Daniel Mendler 
Commit: GitHub 

consult-narrow: Remove which-key pseudo keys (#339)

Use menu items instead, which are now supported by which-key.

See https://github.com/justbur/emacs-which-key/pull/308
---
 consult.el | 21 -
 1 file changed, 4 insertions(+), 17 deletions(-)

diff --git a/consult.el b/consult.el
index e991115..d8310d6 100644
--- a/consult.el
+++ b/consult.el
@@ -804,19 +804,6 @@ Otherwise the `default-directory' is returned."
   (when (and consult-fontify-preserve jit-lock-mode)
 (jit-lock-fontify-now start end)))
 
-(defun consult--define-key (map key cmd desc)
-  "Bind CMD to KEY with DESC in MAP.
-Also create a which-key pseudo key to show the description."
-  (define-key map key (cons desc cmd))
-  ;; The which-key description is potentially fragile if something is changed 
on the side
-  ;; of which-key. Keep an eye on that. An alternative more standard-compliant 
method
-  ;; would be to use `menu-item', but this is unfortunately not yet supported 
by which-key
-  ;; and `describe-buffer-bindings'.
-  ;; See https://github.com/justbur/emacs-which-key/issues/177
-  (let ((idx (1- (length key
-(define-key map (vconcat (seq-take key idx) (vector 'which-key (elt key 
idx)))
-  `(which-key (,(copy-sequence desc))
-
 (defmacro consult--with-increased-gc (&rest body)
   "Temporarily increase the gc limit in BODY to optimize for throughput."
   (let ((overwrite (make-symbol "overwrite")))
@@ -1224,11 +1211,11 @@ to make it available for commands with narrowing."
   consult--narrow-keys settings)))
   (when consult-narrow-key
 (dolist (pair consult--narrow-keys)
-  (consult--define-key map
-   (vconcat consult-narrow-key (vector (car pair)))
-   #'consult-narrow (cdr pair
+  (define-key map
+(vconcat consult-narrow-key (vector (car pair)))
+(cons (cdr pair) #'consult-narrow
   (when-let (widen (consult--widen-key))
-(consult--define-key map widen #'consult-narrow "All")))
+(define-key map widen (cons "All" #'consult-narrow
 
  Splitting completion style
 



[elpa] externals/hyperbole 71115d6: Fix even more warnings (#100)

2021-06-21 Thread ELPA Syncer
branch: externals/hyperbole
commit 71115d6c76c08ed464edb03874a40a6d9c5845a6
Author: Mats Lidell 
Commit: GitHub 

Fix even more warnings (#100)
---
 ChangeLog | 24 
 hmouse-drv.el |  7 +++
 hsys-org.el   |  5 +
 hui-menu.el   |  2 +-
 hui-mouse.el  | 23 +++
 hui-treemacs.el   |  3 +++
 hycontrol.el  |  5 +
 kotl/kotl-mode.el |  2 +-
 8 files changed, 57 insertions(+), 14 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1430864..5ff30be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,29 @@
 2021-06-19  Mats Lidell  
 
+* hui-menu.el (hyperbole-menubar-menu): Use easy-menu-add-item.
+
+* hmouse-drv.el (window-jump, wj-vec-left, wj-vec-right, wj-vec-down)
+(wj-vec-up): Declare function and variables.
+
+* hsys-org.el (org-link): Use org-link-open-from-string.
+
+* hui-mouse.el (helm-action-buffer, helm-alive-p, helm-buffer): Declare
+helm variables.
+(company-show-doc-buffer, company-show-location)
+(company-select-mouse): Declare helm functions.
+(smart-calendar): Use calendar-scroll-left-three-months and
+calendar-scroll-right-three-months
+(smart-calendar-assist): Use calendar-scroll-left-three-months and
+calendar-scroll-right-three-months and diary-view-entries.
+
+* hui-treemacs.el (treemacs-version, aw-ignored-buffers): Declare
+variables.
+
+* hycontrol.el (ibuffer-mode-map): Declare used variable.
+
+* kotl/kotl-mode.el (kotl-mode:end-of-buffer): looking-back requires two
+args.
+
 * test/hyrolo-tests.el (hyrolo-demo-search-work)
 (hyrolo-demo-tab-jump-to-first-match, hyrolo-demo-toggle-visibility):
 Add tests for hyrolo.
diff --git a/hmouse-drv.el b/hmouse-drv.el
index b232dd7..8795039 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -126,6 +126,13 @@ This permits the Smart Keys to behave as paste keys.")
 (defvar aw-frame-size)
 (defvar aw-keys)
 
+;; window-jump
+(declare-function window-jump "ext:window-jump")
+(defvarwj-vec-left)
+(defvarwj-vec-right)
+(defvarwj-vec-down)
+(defvarwj-vec-up)
+
 ;;; 
 ;;; Private variables
 ;;; 
diff --git a/hsys-org.el b/hsys-org.el
index b1b493d..634d1ed 100644
--- a/hsys-org.el
+++ b/hsys-org.el
@@ -83,10 +83,7 @@ with different settings of this option.  For example, a nil 
value makes
   "Follows an optional Org mode LINK to its target.
 If LINK is nil, follows any link at point.  Otherwise, triggers an error."
   (if (stringp link)
-  (cond ((fboundp #'org-link-open-from-string)
-(org-link-open-from-string link))
-((fboundp #'org-open-link-from-string)
-(org-open-link-from-string link))) ;; autoloaded
+  (org-link-open-from-string link)
 (org-open-at-point))) ;; autoloaded
 
 (defact org-internal-link-target (&optional link-target)
diff --git a/hui-menu.el b/hui-menu.el
index 0c1accd..f784244 100644
--- a/hui-menu.el
+++ b/hui-menu.el
@@ -292,7 +292,7 @@ Return t if cutoff, else nil."
"Koutline")
   ((global-key-binding [menu-bar OO-Browser])
"OO-Browser"
-(add-submenu nil (infodock-hyperbole-menu t) add-before
+ (easy-menu-add-item (current-global-map) '("menu-bar") 
(infodock-hyperbole-menu t) add-before
   ;; Force a menu-bar update.
   (force-mode-line-update))
 
diff --git a/hui-mouse.el b/hui-mouse.el
index a2d7439..c844abd 100644
--- a/hui-mouse.el
+++ b/hui-mouse.el
@@ -138,6 +138,9 @@ Its default value is #'smart-scroll-down.  To disable it, 
set it to
 (declare-function helm-resume "ext:helm")
 (declare-function helm-window "ext:helm-lib")
 (declare-function with-helm-buffer "ext:helm-lib")
+(defvar helm-action-buffer)
+(defvar helm-alive-p)
+(defvar helm-buffer)
 
 (declare-function ibuffer-mark-for-delete "ibuffer")
 (declare-function ibuffer-unmark-forward "ibuffer")
@@ -152,6 +155,12 @@ Its default value is #'smart-scroll-down.  To disable it, 
set it to
 
 (declare-function gnus-topic-read-group "gnus-topic")
 
+(declare-function company-show-doc-buffer "ext:company")
+;; (declare-function company-quick-help-manual-begin "ext:company?")
+(declare-function company-show-location "ext:company")
+(declare-function company-select-mouse "ext:company")
+
+
 ;;; 
 ;;; Hyperbole context-sensitive keys dispatch table
 ;;; 
@@ -740,9 +749,9 @@ If key is pressed:
 
   (interactive)
   (cond ((eobp) (calendar-cursor-to-nearest-date)
-(scroll-calendar-left-three-months 1))
+(calendar-scroll-left-three-months 1))
((< (current-column) 5) (calendar-cursor-to-nearest-date)
-(scroll-calendar

[elpa] externals/js2-mode updated (5e9515d -> 4eaf98e)

2021-06-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/js2-mode.

  from  5e9515d   Support trailing comma in arrow function params
   new  2da8a3b   Add NEWS entry for the last change
   new  4eaf98e   Support for dynamic imports and `import.meta`


Summary of changes:
 NEWS.md | 4 
 js2-mode.el | 9 -
 tests/parser.el | 9 +
 3 files changed, 21 insertions(+), 1 deletion(-)



[elpa] externals/js2-mode 4eaf98e 2/2: Support for dynamic imports and `import.meta`

2021-06-21 Thread ELPA Syncer
branch: externals/js2-mode
commit 4eaf98e3cc3789381a37a05cd70a248db9ac8c1b
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Support for dynamic imports and `import.meta`

Resolves #547.

For future reference, Mozilla's corresponding bug reports are:

https://bugzilla.mozilla.org/show_bug.cgi?id=1427610
https://bugzilla.mozilla.org/show_bug.cgi?id=1484948

(Changes in src/frontend/Parser.cpp)

But there's little point in creating new node types for these syntax
cases for our purposes, so here goes the simpler change.
---
 NEWS.md | 2 ++
 js2-mode.el | 9 -
 tests/parser.el | 9 +
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index bf6f109..932d99d 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## Next
 
+* Support for dynamic imports and `import.meta`
+  ([#547](https://github.com/mooz/js2-mode/issues/547)).
 * Support for trailing comma in arrow function parameters
   ([#480](https://github.com/mooz/js2-mode/issues/480)).
 * Support for `for await of` syntax 
([#543](https://github.com/mooz/js2-mode/pull/543)).
diff --git a/js2-mode.el b/js2-mode.el
index 8327ca3..a3630b6 100644
--- a/js2-mode.el
+++ b/js2-mode.el
@@ -8612,7 +8612,7 @@ node are given relative start positions and correct 
lengths."
 (aset parsers js2-FOR   #'js2-parse-for)
 (aset parsers js2-FUNCTION  #'js2-parse-function-stmt)
 (aset parsers js2-IF#'js2-parse-if)
-(aset parsers js2-IMPORT#'js2-parse-import)
+(aset parsers js2-IMPORT#'js2-parse-import-declaration-or-expr)
 (aset parsers js2-LC#'js2-parse-block)
 (aset parsers js2-LET   #'js2-parse-let-stmt)
 (aset parsers js2-NAME  #'js2-parse-name-or-label)
@@ -8742,6 +8742,11 @@ Return value is a list (EXPR LP RP), with absolute paren 
positions."
 (js2-node-add-children pn (car cond) if-true if-false)
 pn))
 
+(defun js2-parse-import-declaration-or-expr ()
+  (if (memq (js2-peek-token) `(,js2-LP ,js2-DOT))
+  (js2-parse-expr-stmt)
+(js2-parse-import)))
+
 (defun js2-parse-import ()
   "Parse import statement. The current token must be js2-IMPORT."
   (unless (js2-ast-root-p js2-current-scope)
@@ -10651,6 +10656,8 @@ array-literals, array comprehensions and regular 
expressions."
   (js2-parse-attribute-access))
  ((= tt js2-NAME)
   (js2-parse-name tt))
+ ((= tt js2-IMPORT)
+  (js2-create-name-node nil nil "import"))
  ((= tt js2-NUMBER)
   (setq node (make-js2-number-node))
   (when (and js2-in-use-strict-directive
diff --git a/tests/parser.el b/tests/parser.el
index 78115f3..95d3f5d 100644
--- a/tests/parser.el
+++ b/tests/parser.el
@@ -802,6 +802,15 @@ the test."
 (js2-deftest-parse import-default-and-namespace "import robert as bob, * as 
lib from 'src/lib';")
 (js2-deftest-parse import-from-this-module "import {url} from this module;")
 
+(js2-deftest-parse import-meta
+  "console.log(import.meta);")
+
+(js2-deftest-parse import-dynamic-stmt
+  "import('/modules/my-module.js').then((module) => {});")
+
+(js2-deftest-parse import-dynamic-expr
+  "let v = import('/modules/my-module.js').then((module) => {  
module.getV();\n});")
+
 ;; Module Exports
 
 (js2-deftest export-rexport "export * from 'other/lib'"



[elpa] externals/js2-mode 2da8a3b 1/2: Add NEWS entry for the last change

2021-06-21 Thread ELPA Syncer
branch: externals/js2-mode
commit 2da8a3b6356127aa710e7785784106f285f1b44f
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Add NEWS entry for the last change
---
 NEWS.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/NEWS.md b/NEWS.md
index 51c1ab4..bf6f109 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## Next
 
+* Support for trailing comma in arrow function parameters
+  ([#480](https://github.com/mooz/js2-mode/issues/480)).
 * Support for `for await of` syntax 
([#543](https://github.com/mooz/js2-mode/pull/543)).
 
 ## 2020-12-20



[elpa] externals/consult 676d497: Reformat consult--preview-function's wide docstring (#341)

2021-06-21 Thread ELPA Syncer
branch: externals/consult
commit 676d4970fcbb768d6f8c9c0f422aa32318378dd9
Author: Omar AntolĂ­n Camarena 
Commit: GitHub 

Reformat consult--preview-function's wide docstring (#341)

Every single consult update I see a warning from the compiler about
how this docstring is over 80 characters long! :D
---
 consult.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index d8310d6..dce443d 100644
--- a/consult.el
+++ b/consult.el
@@ -452,7 +452,8 @@ should not be considered as stable as the public API.")
 
 (defvar-local consult--preview-function nil
   "Minibuffer-local variable which exposes the current preview function.
-This function can be called by custom completion systems from outside the 
minibuffer.")
+This function can be called by custom completion systems from
+outside the minibuffer.")
 
 (defconst consult--tofu-char #x10
   "Special character used to encode line prefixes for disambiguation.