[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/gnuplot 6a192ef 176/184: Fix more deprecated functions.
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/gnuplot 6a192ef 176/184: Fix more deprecated functions. |
Date: |
Sun, 29 Aug 2021 11:03:40 -0400 (EDT) |
branch: elpa/gnuplot
commit 6a192efca961b6c494c3f5ebaf1b1cecf30a5d63
Author: mtreca <maxime.treca@gmail.com>
Commit: mtreca <maxime.treca@gmail.com>
Fix more deprecated functions.
---
gnuplot-context.el | 24 ++++++++++++------------
gnuplot-test-context.el | 6 +++---
gnuplot-tests.el | 4 ++--
3 files changed, 17 insertions(+), 17 deletions(-)
diff --git a/gnuplot-context.el b/gnuplot-context.el
index 26df87c..a81639b 100644
--- a/gnuplot-context.el
+++ b/gnuplot-context.el
@@ -447,7 +447,7 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
;; Symbols match token types or calls to other patterns
((symbolp pat)
- (case pat
+ (cl-case pat
((any) `((any)))
((name number string separator) `((token-type ,pat)))
(t `((call ,pat)))))
@@ -460,11 +460,11 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
;; Other forms combine simpler patterns
(t
(let ((type (car pat)))
- (case type
+ (cl-case type
;; (sequence...): concatenate patterns, with optional eldoc
;; and info strings
((sequence)
- (destructuring-bind
+ (cl-destructuring-bind
(subpats eldoc info)
(gnuplot-filter-arg-list (cdr pat))
(let ((eldoc-push '()) (eldoc-pop '())
@@ -542,7 +542,7 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
;; keywords
((kw)
- (destructuring-bind (regex name)
+ (cl-destructuring-bind (regex name)
(gnuplot-keyword-helper (cdr pat))
`((keyword ,regex ,name))))
@@ -579,7 +579,7 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
(eldoc nil) (info nil))
(dolist (item args)
(let ((type (car-safe item)))
- (case type
+ (cl-case type
((:eldoc) (setq eldoc (cadr item)))
((:no-info) (setq info :no-info)) ; inhibit stack scanning
((:info) (setq info (cadr item)))
@@ -641,7 +641,7 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
(let ((name (car chunk))
(code (cdr chunk)))
(setf (aref object-code i) `(label ,name))
- (incf i)
+ (cl-incf i)
(puthash name i name->offset)
(while code
(setf (aref object-code i) (car code)
@@ -654,7 +654,7 @@ name; otherwise continues tokenizing up to the token at
point. FIXME."
(let ((pattern-name nil))
(dotimes (i (length object-code))
(let ((inst (aref object-code i)))
- (case (car inst)
+ (cl-case (car inst)
((label)
(setq pattern-name (cadr inst)))
@@ -1800,8 +1800,8 @@ there."
(when start-symbol ; HACK FIXME
(let ((look-for `(label ,start-symbol)))
(while (not (equal (aref instructions pc) look-for))
- (incf pc))
- (incf pc)))
+ (cl-incf pc))
+ (cl-incf pc)))
(setq gnuplot-completions nil
gnuplot-eldoc nil
@@ -1823,7 +1823,7 @@ there."
(end-of-tokens (null tokens)))
(gnuplot-trace "%s\t%s\t%s\n" pc inst (and token (gnuplot-token-id
token)))
- (case opcode
+ (cl-case opcode
;; (literal LITERAL NO-COMPLETE)
((literal)
(let ((expect (cadr inst))
@@ -1981,7 +1981,7 @@ there."
(when (and end-of-tokens (not completing-p))
(gnuplot-scan-stack stack tokens))
- (destructuring-bind
+ (cl-destructuring-bind
(bt-stack bt-tokens bt-pc bt-captures bt-progress)
(pop backtrack)
(setq stack bt-stack
@@ -2006,7 +2006,7 @@ there."
(position (caddr item))) ; must progress by at least one token
(if (and (memq type '(info eldoc no-scan))
(not (eq position tokens)))
- (case type
+ (cl-case type
((no-scan)
(throw 'no-scan nil))
diff --git a/gnuplot-test-context.el b/gnuplot-test-context.el
index 961114f..2efe7c1 100644
--- a/gnuplot-test-context.el
+++ b/gnuplot-test-context.el
@@ -380,7 +380,7 @@
(insert-file-contents fname)
(gnuplot-mode)
(message "Testing on file %s of %s: %s..."
- (incf n) n-files fname)
+ (cl-incf n) n-files fname)
(condition-case err
(gnuplot-test-parse-buffer (current-buffer) fname)
(error
@@ -419,9 +419,9 @@
(gnuplot-match-pattern
gnuplot-compiled-grammar
tokens nil)))
- (incf gnuplot-test-count)
+ (cl-incf gnuplot-test-count)
(if (equal result '(nil))
- (incf gnuplot-test-success-count)
+ (cl-incf gnuplot-test-success-count)
(let ((cmd
(buffer-substring
(gnuplot-point-at-beginning-of-command)
diff --git a/gnuplot-tests.el b/gnuplot-tests.el
index 4c3b011..46b5962 100644
--- a/gnuplot-tests.el
+++ b/gnuplot-tests.el
@@ -42,7 +42,7 @@ represented by a format-string with a single %s placeholder.
Returns non-nil if STRING is correctly recognised as a single
string by `scan-sexps'."
- (destructuring-bind (prologue epilogue)
+ (cl-destructuring-bind (prologue epilogue)
(split-string context "%s")
(with-temp-buffer
(gnuplot-mode)
@@ -189,7 +189,7 @@ comment
(defun gnuplot-test-comment-in-context (comment context)
"Non-nil if COMMENT is correctly recognised within CONTEXT in gnuplot-mode."
- (destructuring-bind (prologue epilogue)
+ (cl-destructuring-bind (prologue epilogue)
(split-string context "%s")
(with-temp-buffer
(gnuplot-mode)
- [nongnu] elpa/gnuplot 9894505 153/184: Ignore backward-sexp error when get completion, (continued)
- [nongnu] elpa/gnuplot 9894505 153/184: Ignore backward-sexp error when get completion, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 2c6137c 159/184: Merge pull request #53 from conao3/add-github-actions, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 496c6e4 145/184: Change LICENSE; GPLv2 -> GPLv3, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 290c332 162/184: Revert "[WIP] Remove Xemacs support", ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot f73abe1 165/184: Merge pull request #57 from dkogan/fix-comint-process-echoes, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot fc302fd 167/184: set fail-fast strategy as false, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot ac8ab77 173/184: Move changelog to a dedicated org file., ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 1488629 174/184: Fix font-lock not loading., ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 5fd785c 178/184: Fix test runner, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 65b58b2 175/184: Fix cl deprecation (#68), ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 6a192ef 176/184: Fix more deprecated functions.,
ELPA Syncer <=
- [nongnu] elpa/gnuplot 58a1cf5 024/184: Fixed horrible bug in gnuplot-in-string/gnuplot-in-comment, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 0d9c0af 025/184: Better method for scanning strings/comments., ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 84933f0 029/184: Allow single quoted strings to include '' as an escape for ', ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot c97f028 078/184: use a defsubst instead of defmacro in debug-context, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot f710394 057/184: Add keys C-M-x (evaluate region) and C-j (evaluate line and newline), ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 54f3882 070/184: Silence another compiler warning by using with-current-buffer, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 35f3f8d 080/184: Avoid having text syntax-property changes mark buffer as modified, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot fdd3e1e 101/184: * README.org: update installation section for el-get users., ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 35a8a19 108/184: Check for `syntax-propertize-function' when defining syntax-table, ELPA Syncer, 2021/08/29
- [nongnu] elpa/gnuplot 4cd89ab 109/184: Replace ad-hoc scanning with syntax-propertize-rules, ELPA Syncer, 2021/08/29