# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1267024337 18000
# Node ID 5b5e4a97bbce0548b995f47cf53be5c0738f271c
# Parent  a41886cf38903f7a357ce3211351d406142f283d
* javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr
and use c(ad)r of cddr (Bug#5640).

diff -r a41886cf3890 -r 5b5e4a97bbce lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Feb 23 19:12:54 2010 -0800
+++ b/lisp/ChangeLog	Wed Feb 24 10:12:17 2010 -0500
@@ -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 -r a41886cf3890 -r 5b5e4a97bbce lisp/cedet/semantic/wisent/javascript.el
--- a/lisp/cedet/semantic/wisent/javascript.el	Tue Feb 23 19:12:54 2010 -0800
+++ b/lisp/cedet/semantic/wisent/javascript.el	Wed Feb 24 10:12:17 2010 -0500
@@ -48,8 +48,8 @@
               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)