From: ueno <ueno>
Date: Thu, 18 Jan 2007 23:26:24 +0000 (+0000)
Subject: Fixed a typo.
X-Git-Tag: riece-3_1_2~42
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=7362a02734101841ce1c38e30b3ef37e7462dd01

Fixed a typo.
---

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index e1b5cbb..99cfc9e 100644
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -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)))