[AUCTeX-diffs] [elpa] externals/auctex a16a510 22/48: Replace another cl function with cl-lib

[Tassilo Horn]

branch: externals/auctex
commit a16a5107845aee83e6e52dd6d8cfbbe90bd6303d
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Replace another cl function with cl-lib
    
    * style/pstricks.el (eval-when-compile): Require cl-lib.
    (LaTeX-pst-cleanup): Replace `caddr' with `cl-caddr'.
---
 style/pstricks.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/style/pstricks.el b/style/pstricks.el
index e14b55b..9762b68 100644
--- a/style/pstricks.el
+++ b/style/pstricks.el
@@ -1,6 +1,7 @@
 ;;; pstricks.el --- AUCTeX style for the `pstricks' package.
 
-;; Copyright (C) 2007, 2009, 2013-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2009, 2013-2015,
+;;               2018  Free Software Foundation, Inc.
 
 ;; Author: Holger Sparr <address@hidden>
 ;; Maintainer: address@hidden
@@ -60,6 +61,9 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (require 'cl-lib))
+
 ;;; General Functions
 
 (defun TeX-arg-compl-list (list &optional prompt hist)
@@ -681,7 +685,7 @@ package PNAME"
        (cond ((string= type "object")
               (setq TeX-auto-symbol
                     (cons (list (nth 1 list)
-                                (caddr (assoc (nth 2 list)
+                                (cl-caddr (assoc (nth 2 list)
                                               (TeX-symbol-list))))
                           TeX-auto-symbol)))
              ((string= type "fontdot")