Mercurial > emacs
changeset 107215:5b5e4a97bbce
* javascript.el (wisent-javascript-jv-expand-tag): Avoid c(ad)ddr
and use c(ad)r of cddr (Bug#5640).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 24 Feb 2010 10:12:17 -0500 |
| parents | a41886cf3890 |
| children | f824258be7d1 |
| files | lisp/ChangeLog lisp/cedet/semantic/wisent/javascript.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)