[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/js2-mode 146c1f6 32/61: Migrate off deprecated ‘cl’ li
From: |
Dmitry Gutov |
Subject: |
[elpa] externals/js2-mode 146c1f6 32/61: Migrate off deprecated ‘cl’ library. |
Date: |
Sun, 20 Dec 2020 12:20:05 -0500 (EST) |
branch: externals/js2-mode
commit 146c1f603794d02f6b1a4ae313cd44a5de006a13
Author: Philipp Stephani <phst@google.com>
Commit: Philipp Stephani <phst@google.com>
Migrate off deprecated ‘cl’ library.
‘cl’ is now deprecated even when only used at compile time.
---
js2-imenu-extras.el | 60 ++++++++++++++++++++++++++---------------------------
1 file changed, 29 insertions(+), 31 deletions(-)
diff --git a/js2-imenu-extras.el b/js2-imenu-extras.el
index dfdedc8..aaadd33 100644
--- a/js2-imenu-extras.el
+++ b/js2-imenu-extras.el
@@ -32,9 +32,7 @@
;; To customize how it works:
;; M-x customize-group RET js2-imenu RET
-(eval-when-compile
- (require 'cl))
-
+(require 'cl-lib)
(require 'js2-mode)
(defvar js2-imenu-extension-styles
@@ -126,18 +124,18 @@ Currently used for jQuery widgets, Dojo and Enyo
declarations."
(remove-hook 'js2-build-imenu-callbacks 'js2-imenu-walk-ast t))
(defun js2-imenu-record-declarations ()
- (let* ((styles (loop for style in js2-imenu-extension-styles
- when (memq (plist-get style :framework)
- js2-imenu-enabled-frameworks)
- collect style))
+ (let* ((styles (cl-loop for style in js2-imenu-extension-styles
+ when (memq (plist-get style :framework)
+ js2-imenu-enabled-frameworks)
+ collect style))
(re (mapconcat (lambda (style)
(concat "\\(" (plist-get style :call-re) "\\)"))
styles "\\|")))
(goto-char (point-min))
(while (js2-re-search-forward re nil t)
- (loop for i from 0 to (1- (length styles))
- when (match-beginning (1+ i))
- return (funcall (plist-get (nth i styles) :recorder))))))
+ (cl-loop for i from 0 to (1- (length styles))
+ when (match-beginning (1+ i))
+ return (funcall (plist-get (nth i styles) :recorder))))))
(defun js2-imenu-record-jquery-extend ()
(let ((pred (lambda (subject)
@@ -159,17 +157,17 @@ Currently used for jQuery widgets, Dojo and Enyo
declarations."
(defun js2-imenu-record-extend-first-arg (point pred qname-fn)
(let* ((node (js2-node-at-point point))
(args (js2-call-node-args node))
- (subject (first args)))
+ (subject (cl-first args)))
(when (funcall pred subject)
- (loop for arg in (cdr args)
- when (js2-object-node-p arg)
- do (js2-record-object-literal
- arg (funcall qname-fn subject) (js2-node-abs-pos arg))))))
+ (cl-loop for arg in (cdr args)
+ when (js2-object-node-p arg)
+ do (js2-record-object-literal
+ arg (funcall qname-fn subject) (js2-node-abs-pos arg))))))
(defun js2-imenu-record-backbone-or-react ()
(let* ((node (js2-node-at-point (1- (point))))
(args (js2-call-node-args node))
- (methods (first args))
+ (methods (cl-first args))
(parent (js2-node-parent node)))
(when (js2-object-node-p methods)
(let ((subject (cond ((js2-var-init-node-p parent)
@@ -188,21 +186,21 @@ Currently used for jQuery widgets, Dojo and Enyo
declarations."
(defun js2-imenu-record-enyo-kind ()
(let* ((node (js2-node-at-point (1- (point))))
(args (js2-call-node-args node))
- (options (first args)))
+ (options (cl-first args)))
(when (js2-object-node-p options)
(let ((name-value
- (loop for elem in (js2-object-node-elems options)
- thereis
- (let ((key (js2-object-prop-node-left elem))
- (value (js2-object-prop-node-right elem)))
- (when (and (equal
- (cond ((js2-name-node-p key)
- (js2-name-node-name key))
- ((js2-string-node-p key)
- (js2-string-node-value key)))
- "name")
- (js2-string-node-p value))
- (js2-string-node-value value))))))
+ (cl-loop for elem in (js2-object-node-elems options)
+ thereis
+ (let ((key (js2-object-prop-node-left elem))
+ (value (js2-object-prop-node-right elem)))
+ (when (and (equal
+ (cond ((js2-name-node-p key)
+ (js2-name-node-name key))
+ ((js2-string-node-p key)
+ (js2-string-node-value key)))
+ "name")
+ (js2-string-node-p value))
+ (js2-string-node-value value))))))
(when name-value
(js2-record-object-literal options
(if js2-imenu-split-string-identifiers
@@ -213,8 +211,8 @@ Currently used for jQuery widgets, Dojo and Enyo
declarations."
(defun js2-imenu-record-sencha-class ()
(let* ((node (js2-node-at-point (1- (point))))
(args (js2-call-node-args node))
- (name (first args))
- (methods (second args)))
+ (name (cl-first args))
+ (methods (cl-second args)))
(when (and (js2-string-node-p name) (js2-object-node-p methods))
(let ((name-value (js2-string-node-value name)))
(js2-record-object-literal methods
- [elpa] externals/js2-mode 14113fe 18/61: Remove date, (continued)
- [elpa] externals/js2-mode 14113fe 18/61: Remove date, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 8e2cdd4 19/61: Revert extra added information, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode bb73461 20/61: Revert doc changes and explain JSX options for all emacsen later, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 3a80b00 25/61: use type face for class, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 9837d78 28/61: Fix ‘huge-hex’ test for newer Emacsen., Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 515d876 27/61: Fix parsing static props without semicolons, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 61a8c91 29/61: Merge pull request #550 from phst/huge-hex, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 997d6bd 30/61: Avoid undefined behavior in indentation tests., Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 999c0e7 22/61: Merge pull request #531 from jacksonrayhamilton/jsx-documentation, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 2d2fb4b 21/61: Reference latest revision of the commentary, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 146c1f6 32/61: Migrate off deprecated ‘cl’ library.,
Dmitry Gutov <=
- [elpa] externals/js2-mode d642b7b 34/61: Remove an unused variable, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 8841175 23/61: support optional-chaining operator, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode b3841a7 24/61: Merge pull request #533 from redguardtoo/master, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 1a5dee9 38/61: Merge pull request #552 from phst/cl, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode a6e1305 41/61: Merge pull request #555 from phst/unused-arg, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 5049e54 43/61: Merge pull request #556 from ArneBab/browser-symbols, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 6b84319 44/61: Remove a few unused variables., Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode 56991f7 45/61: Merge pull request #557 from phst/unused, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode fe53814 26/61: Merge pull request #544 from wyuenho/use-type-face-for-class, Dmitry Gutov, 2020/12/20
- [elpa] externals/js2-mode e8bbfd2 31/61: Merge pull request #551 from phst/let, Dmitry Gutov, 2020/12/20