Fix compatibility with newer versions of Emacs

arbv · Apr 19, 2022 · 17bbdcc · 17bbdcc
1 parent a84dc24
commit 17bbdcc
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/scripts/license-to-rtf.el b/scripts/license-to-rtf.el
@@ -5,7 +5,8 @@
 ;;
 ;; This file is not part of GNU Emacs.
 
-(require 'cl)
+(require 'cl-lib)
+(require 'cl-extra)
 (require 'subr-x) ; string-trim
 
 (defun read-lines (filename)
@@ -34,13 +35,13 @@
     (dolist (l lines)
       (let ((text (cleanup-string-for-rtf l)))
         (cond
-         ((and (plusp (length text))
+         ((and (cl-plusp (length text))
                (null pars))
           (push text pars))
-         ((and (plusp (length text))
+         ((and (cl-plusp (length text))
                (car pars))
-          (setcar pars (concatenate 'string (car pars) " " text)))
-         ((plusp (length text))
+          (setcar pars (cl-concatenate 'string (car pars) " " text)))
+         ((cl-plusp (length text))
           (setcar pars text))
          (t (when (car pars)
               (push nil pars))))))