emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/auctex 59f9440 26/35: Fix void-function error occuring


From: Tassilo Horn
Subject: [elpa] externals/auctex 59f9440 26/35: Fix void-function error occuring if cl is not loaded
Date: Sun, 22 Mar 2015 09:27:07 +0000

branch: externals/auctex
commit 59f94402ecdcb8a02a3a0d9ab62bb2de01057f3f
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Fix void-function error occuring if cl is not loaded
    
    * tex.el (TeX-style-path): Replace `pushnew' with equivalent code
    since defcustom init-forms don't seem to get compiled.
---
 ChangeLog |    3 +++
 tex.el    |    4 +++-
 2 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 704ad0c..a53574a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2015-03-10  Tassilo Horn  <address@hidden>
 
+       * tex.el (TeX-style-path): Replace `pushnew' with equivalent code
+       since defcustom init-forms don't seem to get compiled.
+
        * doc/auctex.texi (Modes and Hooks): Document
        TeX-after-TeX-LaTeX-command-finished-hook.
 
diff --git a/tex.el b/tex.el
index 609a1e4..88e2336 100644
--- a/tex.el
+++ b/tex.el
@@ -2440,7 +2440,9 @@ These correspond to the personal TeX macros."
   (let ((path))
     ;; Put directories in an order where the more local files can
     ;; override the more global ones.
-    (mapc (lambda (file) (when file (pushnew file path)))
+    (mapc (lambda (file)
+           (when (and file (not (member file path)))
+             (setq path (cons file path))))
           (append (list TeX-auto-global TeX-style-global)
                   TeX-auto-private TeX-style-private
                   (list TeX-auto-local TeX-style-local)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]