* javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr

and use c(ad)r of cddr (Bug#5640).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 541c723de2b7662facd5975f71beb1d19a583f67..3e8e19f7cc430c84a5888e8a99df4ba315b5877a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-24  Eduard Wiebe  <usenet@pusto.de>
+
+       * javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr
+       and use c(ad)r of cddr (Bug#5640).
+
 2010-02-22  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Protect

diff --git a/lisp/cedet/semantic/wisent/javascript.el b/lisp/cedet/semantic/wisent/javascript.el
index 34afb75d62c8b1fd8c8ddfa00c993c421ddfd0d7..df3bbfecaa56c6f3ce759dccdf7cc1c040a7f00e 100644 (file)
--- a/lisp/cedet/semantic/wisent/javascript.el
+++ b/lisp/cedet/semantic/wisent/javascript.el
@@ -48,8 +48,8 @@ to this variable NAME."
               elts  (cdr elts)
               clone (semantic-tag-clone tag (car elt))
              value (car (cdr elt))
-              start (if elts  (caddr elt) (semantic-tag-start tag))
-              end   (if xpand (cdddr elt) (semantic-tag-end   tag))
+             start (if elts  (car (cddr elt)) (semantic-tag-start tag))
+             end   (if xpand (cdr (cddr elt)) (semantic-tag-end   tag))
               xpand (cons clone xpand))
        ;; Set the definition of the cloned tag
        (semantic-tag-put-attribute clone :default-value value)