From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: number-sequence Date: Thu, 20 Nov 2003 15:27:22 +0200 Organization: JURTA Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87smkji35l.fsf@mail.jurta.org> References: <200311200339.hAK3dGE07492@raven.dms.auburn.edu> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1069335280 18327 80.91.224.253 (20 Nov 2003 13:34:40 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 20 Nov 2003 13:34:40 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Thu Nov 20 14:34:38 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AMoxB-0007WZ-00 for ; Thu, 20 Nov 2003 14:34:37 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1AMoxB-0005Fn-00 for ; Thu, 20 Nov 2003 14:34:37 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AMpqg-0007sQ-8s for emacs-devel@quimby.gnus.org; Thu, 20 Nov 2003 09:31:58 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AMpp1-0007bo-1V for emacs-devel@gnu.org; Thu, 20 Nov 2003 09:30:15 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AMpoQ-0007TP-EU for emacs-devel@gnu.org; Thu, 20 Nov 2003 09:30:09 -0500 Original-Received: from [64.246.52.22] (helo=ns5.tangramltd.com) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.24) id 1AMpoQ-0007TD-6f for emacs-devel@gnu.org; Thu, 20 Nov 2003 09:29:38 -0500 Original-Received: from 80-235-33-10-dsl.mus.estpak.ee ([80.235.33.10] helo=mail.jurta.org) by ns5.tangramltd.com with esmtp (Exim 4.20) id 1AMoqs-00074A-P9; Thu, 20 Nov 2003 15:28:07 +0200 Original-To: Luc Teirlinck In-Reply-To: <200311200339.hAK3dGE07492@raven.dms.auburn.edu> (Luc Teirlinck's message of "Wed, 19 Nov 2003 21:39:16 -0600 (CST)") User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - ns5.tangramltd.com X-AntiAbuse: Original Domain - gnu.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jurta.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:17963 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:17963 Luc Teirlinck writes: > (number-sequence 1 3 -1) or (number-sequence 1 3 0) There is another case that makes sense: if INC is nil and TO is less than FROM, then INC could default to -1, i.e. (number-sequence 3 1) => (3 2 1) To do this you could replace in your version: - If INC is nil, it defaults to 1 (one). + If INC is nil, it defaults to 1 (one) if TO is larger than FROM, + or to -1 if TO is less than FROM. - (or inc (setq inc 1)) + (or inc (setq inc (if (< from to) 1 -1))) BTW, it couldn't hurt to add examples to the docstring: Examples: (number-sequence 1) => (1) (number-sequence 1 1) => (1) (number-sequence 1 3) => (1 2 3) (number-sequence 1 3 2) => (1 3) (number-sequence 3 1) => (3 2 1) (number-sequence 3 1 -2) => (3 1) -- http://www.jurta.org/emacs/