From 8b07def2de860cbb4f4a28991572fb34b45a9941 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Fri, 27 Mar 2020 23:13:37 +0100 Subject: Use cl-lib instead of cl Starting with Emacs 27 cl is fully deprecated, including at compile-time. --- elisp/geiser-company.el | 4 ++-- elisp/geiser-syntax.el | 14 +++++++------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el index 814fbbd..a7595f1 100644 --- a/elisp/geiser-company.el +++ b/elisp/geiser-company.el @@ -18,7 +18,7 @@ (require 'geiser-base) (require 'geiser-doc) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) ;;; Helpers: @@ -120,7 +120,7 @@ (defun geiser-company-backend (command &optional arg &rest ignored) "A `company-mode' completion back-end for `geiser-mode'." (interactive (list 'interactive)) - (case command + (cl-case command ('interactive (company-begin-backend 'geiser-company-backend)) ('prefix (geiser-company--prefix-at-point)) ('candidates (geiser-company--candidates arg)) diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 53c2c74..c0c379a 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -18,7 +18,7 @@ (require 'scheme) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) ;;; Indentation: @@ -197,14 +197,14 @@ implementation-specific entries for font-lock-keywords.") (defun geiser-syntax--read/next-token () (skip-syntax-forward "->") (if (geiser-syntax--read/eos) '(eob) - (case (char-after) + (cl-case (char-after) (?\; (geiser-syntax--read/skip-comment)) ((?\( ?\[) (geiser-syntax--read/token 'lparen)) ((?\) ?\]) (geiser-syntax--read/token 'rparen)) (?. (if (memq (car (syntax-after (1+ (point)))) '(0 11 12)) (geiser-syntax--read/token 'dot) (cons 'atom (geiser-syntax--read/elisp)))) - (?\# (case (geiser-syntax--read/next-char) + (?\# (cl-case (geiser-syntax--read/next-char) ('nil '(eob)) (?| (geiser-syntax--read/skip-comment)) (?: (if (geiser-syntax--read/next-char) @@ -219,7 +219,7 @@ implementation-specific entries for font-lock-keywords.") ((equal (symbol-name tok) "f") '(boolean . :f)) (tok (cons 'atom tok)) (t (geiser-syntax--read/next-token))))))) - (?| (case (geiser-syntax--read/next-char) ;; gambit style block comments + (?| (cl-case (geiser-syntax--read/next-char) ;; gambit style block comments ('nil '(eob)) (?# (geiser-syntax--read/skip-comment)) (t (let ((tok (geiser-syntax--read/symbol))) @@ -267,7 +267,7 @@ implementation-specific entries for font-lock-keywords.") (defun geiser-syntax--read () (let ((token (geiser-syntax--read/next-token)) (max-lisp-eval-depth (max max-lisp-eval-depth 3000))) - (case (car token) + (cl-case (car token) (eob nil) (lparen (geiser-syntax--read/list)) (vectorb (apply 'vector (geiser-syntax--read/list))) @@ -294,7 +294,7 @@ implementation-specific entries for font-lock-keywords.") (defsubst geiser-syntax--form-after-point (&optional boundary) (let ((geiser-syntax--read/buffer-limit (and (numberp boundary) boundary))) - (save-excursion (values (geiser-syntax--read) (point))))) + (save-excursion (list (geiser-syntax--read) (point))))) (defun geiser-syntax--mapconcat (fun lst sep) (cond ((null lst) "") @@ -453,7 +453,7 @@ implementation-specific entries for font-lock-keywords.") (let ((boundary (point)) (nesting (geiser-syntax--nesting-level))) (geiser-syntax--pop-to-top) - (multiple-value-bind (form end) + (cl-destructuring-bind (form end) (geiser-syntax--form-after-point boundary) (delete sym (geiser-syntax--scan-locals bfs -- cgit v1.2.3