branch: externals/auctex
commit a16a5107845aee83e6e52dd6d8cfbbe90bd6303d
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
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 <[email protected]>
;; Maintainer: [email protected]
@@ -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")
