[elpa] externals/auctex 5ee567c 60/78: Append entries to LaTeX-label-alist in newfloat.el.

[Tassilo Horn]

branch: externals/auctex
commit 5ee567c8043f462ecf995eef424dd5d93b51f167
Author: Mosè Giordano <m...@gnu.org>
Commit: Mosè Giordano <m...@gnu.org>

    Append entries to LaTeX-label-alist in newfloat.el.
    
    * style/newfloat.el: Do not require cl at loading time.
    (LaTeX-newfloat-auto-cleanup): Append elements to
    `LaTeX-label-alist' in order not to override possible custom
    values.
---
 ChangeLog         |    7 +++++++
 style/newfloat.el |    9 ++-------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dd1660b..8c677a2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2015-09-28  Mos� Giordano  <m...@gnu.org>
+
+       * style/newfloat.el: Do not require cl at loading time.
+       (LaTeX-newfloat-auto-cleanup): Append elements to
+       `LaTeX-label-alist' in order not to override possible custom
+       values.
+
 2015-09-27  Arash Esbati  <esb...@gmx.de>
 
        * Makefile.in (STYLESRC): Add new style.
diff --git a/style/newfloat.el b/style/newfloat.el
index 7aef15d..356fcec 100644
--- a/style/newfloat.el
+++ b/style/newfloat.el
@@ -54,9 +54,6 @@
 
 ;;; Code:
 
-;; Needed for compiling `pushnew':
-(eval-when-compile (require 'cl))
-
 ;; Needed for auto-parsing.
 (require 'tex)
 
@@ -106,15 +103,13 @@ Also define the macros \"listofENVs\" and 
\"listofENVes\"."
          (type (cadr flt-type)))
       (cond ((string-equal type "figure")
             (LaTeX-add-environments `(,flt LaTeX-env-figure))
-            (pushnew `(,flt . LaTeX-figure-label)
-                     LaTeX-label-alist :test #'equal)
+            (add-to-list 'LaTeX-label-alist `(,flt . LaTeX-figure-label) t)
             (when (fboundp 'reftex-add-label-environments)
               (reftex-add-label-environments
                `((,flt ?f ,LaTeX-figure-label "~\\ref{%s}" caption nil nil)))))
            ((string-equal type "table")
             (LaTeX-add-environments `(,flt LaTeX-env-figure))
-            (pushnew `(,flt . LaTeX-table-label)
-                     LaTeX-label-alist :test #'equal)
+            (add-to-list 'LaTeX-label-alist `(,flt . LaTeX-table-label) t)
             (when (fboundp 'reftex-add-label-environments)
               (reftex-add-label-environments
                `((,flt ?t ,LaTeX-table-label "~\\ref{%s}" caption nil nil)))))