[Emacs-diffs] /srv/bzr/emacs/trunk r99549: * javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr

[Chong Yidong]

------------------------------------------------------------
revno: 99549
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2010-02-24 10:12:17 -0500
message:
  * javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr
  and use c(ad)r of cddr (Bug#5640).
modified:
  lisp/ChangeLog
  lisp/cedet/semantic/wisent/javascript.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-22 13:48:52 +0000
+++ b/lisp/ChangeLog    2010-02-24 15:12:17 +0000
@@ -1,3 +1,8 @@
+2010-02-24  Eduard Wiebe  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Protect

=== modified file 'lisp/cedet/semantic/wisent/javascript.el'
--- a/lisp/cedet/semantic/wisent/javascript.el  2010-01-13 08:35:10 +0000
+++ b/lisp/cedet/semantic/wisent/javascript.el  2010-02-24 15:12:17 +0000
@@ -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)