From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: appt.el fix: don't use prin1-to-string Date: Wed, 14 Aug 2002 17:13:22 -0600 (MDT) Sender: emacs-devel-admin@gnu.org Message-ID: <200208142313.g7ENDMG07604@wijiji.santafe.edu> References: <877kivsr8o.fsf@wesley.springies.com> <200208132246.g7DMkOC07166@wijiji.santafe.edu> <8765yewaik.fsf@wesley.springies.com> Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1029366861 1577 127.0.0.1 (14 Aug 2002 23:14:21 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 14 Aug 2002 23:14:21 +0000 (UTC) Cc: emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17f7LI-0000PK-00 for ; Thu, 15 Aug 2002 01:14:20 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17f7kW-0001m6-00 for ; Thu, 15 Aug 2002 01:40:24 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 17f7MF-0003pM-00; Wed, 14 Aug 2002 19:15:19 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 17f7KW-00036K-00 for emacs-devel@gnu.org; Wed, 14 Aug 2002 19:13:32 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 17f7KO-00031Z-00 for emacs-devel@gnu.org; Wed, 14 Aug 2002 19:13:28 -0400 Original-Received: from pele.santafe.edu ([192.12.12.119]) by monty-python.gnu.org with esmtp (Exim 4.10) id 17f7KO-000310-00; Wed, 14 Aug 2002 19:13:24 -0400 Original-Received: from wijiji.santafe.edu (wijiji [192.12.12.5]) by pele.santafe.edu (8.11.6+Sun/8.11.6) with ESMTP id g7ENDh506049; Wed, 14 Aug 2002 17:13:43 -0600 (MDT) Original-Received: (from rms@localhost) by wijiji.santafe.edu (8.11.6+Sun/8.9.3) id g7ENDMG07604; Wed, 14 Aug 2002 17:13:22 -0600 (MDT) X-Authentication-Warning: wijiji.santafe.edu: rms set sender to rms@wijiji using -f Original-To: ats@acm.org In-Reply-To: <8765yewaik.fsf@wesley.springies.com> (message from Alan Shutko on Tue, 13 Aug 2002 20:26:43 -0400) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:6547 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6547 Thanks. I'd already written a similar change: *** appt.el.~1.44.~ Mon Aug 12 13:24:33 2002 --- appt.el Tue Aug 13 12:21:14 2002 *************** *** 455,461 **** (while tmp-msg-list (let* ((element (car tmp-msg-list)) (prompt-string (concat "Delete " ! (prin1-to-string (car (cdr element))) " from list? ")) (test-input (y-or-n-p prompt-string))) (setq tmp-msg-list (cdr tmp-msg-list)) --- 455,463 ---- (while tmp-msg-list (let* ((element (car tmp-msg-list)) (prompt-string (concat "Delete " ! (prin1-to-string ! (substring-no-properties ! (car (cdr element)) 0)) " from list? ")) (test-input (y-or-n-p prompt-string))) (setq tmp-msg-list (cdr tmp-msg-list)) *************** *** 512,520 **** (while (and entry-list (calendar-date-equal (calendar-current-date) (car (car entry-list)))) ! (let ((time-string (substring (prin1-to-string ! (cadr (car entry-list))) 1 -1))) ! (while (string-match "\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*" time-string) --- 514,520 ---- (while (and entry-list (calendar-date-equal (calendar-current-date) (car (car entry-list)))) ! (let ((time-string (cadr (car entry-list)))) (while (string-match "\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*" time-string)