projects / elisp / riece.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ed2dc9e)
Fixed a typo.
authorueno <ueno>
Thu, 18 Jan 2007 23:26:24 +0000 (23:26 +0000)
committerueno <ueno>
Thu, 18 Jan 2007 23:26:24 +0000 (23:26 +0000)
lisp/riece-mcat.el patch | blob | history

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index e1b5cbb..99cfc9e 100644 (file)
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -38,7 +38,7 @@
     (while pointer
       (if (equal (car pointer)
                 (nth 1 pointer))
     (while pointer
       (if (equal (car pointer)
                 (nth 1 pointer))
-         (setcdr pointer (nth 2 pointer))
+         (setcdr pointer (nthcdr 2 pointer))
        (unless (assoc (car pointer) alist)
          (setq alist (cons (list (car pointer)) alist))))
       (setq pointer (cdr pointer)))
        (unless (assoc (car pointer) alist)
          (setq alist (cons (list (car pointer)) alist))))
       (setq pointer (cdr pointer)))