From cf38c80755d422f9b159a1cac2d38f21a1869279 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 9 Jun 2023 16:18:04 +1000 Subject: Fixing cl deprecation warnings --- connection.el | 2 +- dictionary.el | 6 +++--- link.el | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/connection.el b/connection.el index 42790f4..6f12d79 100644 --- a/connection.el +++ b/connection.el @@ -29,7 +29,7 @@ ;;; Code: (eval-when-compile - (require 'cl)) + (require 'cl-lib)) (defmacro connection-p (connection) "Returns non-nil if `connection' is a connection object" diff --git a/dictionary.el b/dictionary.el index 25f3514..4c16d5d 100644 --- a/dictionary.el +++ b/dictionary.el @@ -35,7 +35,7 @@ ;;; Code: (eval-when-compile - (require 'cl)) + (require 'cl-lib)) (require 'easymenu) (require 'custom) @@ -351,7 +351,7 @@ by the choice value: " (unless (eq major-mode 'dictionary-mode) - (incf dictionary-instances)) + (cl-incf dictionary-instances)) (kill-all-local-variables) (buffer-disable-undo) @@ -519,7 +519,7 @@ by the choice value: (if (eq major-mode 'dictionary-mode) (progn (setq major-mode nil) - (if (<= (decf dictionary-instances) 0) + (if (<= (cl-decf dictionary-instances) 0) (connection-close dictionary-connection)) (let ((configuration dictionary-window-configuration) (selected-window dictionary-selected-window)) diff --git a/link.el b/link.el index 30eadb1..c7f0449 100644 --- a/link.el +++ b/link.el @@ -37,7 +37,7 @@ ;;; Code: (eval-when-compile - (require 'cl)) + (require 'cl-lib)) (defun link-create-link (start end face function &optional data help) "Create a link in the current buffer starting from `start' going to `end'. -- cgit v1.2.3