Fixing cl deprecation warningsHEADmaster

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'.