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

index e1b5cbb..99cfc9e 100644 (file)
@@ -38,7 +38,7 @@
     (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)))