From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Lennart Borgman (gmail)" Newsgroups: gmane.emacs.help Subject: Re: Checking parameters Date: Sun, 17 Jun 2007 13:18:07 +0200 Message-ID: <4675186F.1070500@gmail.com> References: <46750a24$0$338$e4fe514c@news.xs4all.nl> <46751315.1070607@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1182079122 10777 80.91.229.12 (17 Jun 2007 11:18:42 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 17 Jun 2007 11:18:42 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Jun 17 13:18:41 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HzsmB-0006er-UR for geh-help-gnu-emacs@m.gmane.org; Sun, 17 Jun 2007 13:18:36 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HzsmB-00072B-4P for geh-help-gnu-emacs@m.gmane.org; Sun, 17 Jun 2007 07:18:35 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Hzslu-0006zb-98 for help-gnu-emacs@gnu.org; Sun, 17 Jun 2007 07:18:18 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Hzsls-0006y7-Qo for help-gnu-emacs@gnu.org; Sun, 17 Jun 2007 07:18:17 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hzsls-0006xz-Ml for help-gnu-emacs@gnu.org; Sun, 17 Jun 2007 07:18:16 -0400 Original-Received: from ch-smtp02.sth.basefarm.net ([80.76.149.213]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Hzsls-0007Id-BT for help-gnu-emacs@gnu.org; Sun, 17 Jun 2007 07:18:16 -0400 Original-Received: from c83-254-133-189.bredband.comhem.se ([83.254.133.189]:59737 helo=[127.0.0.1]) by ch-smtp02.sth.basefarm.net with esmtp (Exim 4.66) (envelope-from ) id 1Hzslq-00043F-7k for help-gnu-emacs@gnu.org; Sun, 17 Jun 2007 13:18:15 +0200 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070604 Thunderbird/2.0.0.4 Mnenhy/0.7.5.666 In-Reply-To: <46751315.1070607@gmail.com> X-Antivirus: avast! (VPS 000749-2, 2007-06-16), Outbound message X-Antivirus-Status: Clean X-Originating-IP: 83.254.133.189 X-Scan-Result: No virus found in message 1Hzslq-00043F-7k. X-Scan-Signature: ch-smtp02.sth.basefarm.net 1Hzslq-00043F-7k 70cadb213a056f738fac34c342380998 X-detected-kernel: Linux 2.6? (barebone, rare!) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:45130 Archived-At: Lennart Borgman (gmail) wrote: > You probably want to use the most simple way, something like > > (defun get-hours(time) > (interactive "sHH:MM: ") > (let ((timelist (split-string time ":")) > (errmsg "Time format error")) > (unless (= (length (nth 1 timelist)) 2) > (error errmsg)) > (+ > (string-to-number (nth 0 timelist)) > (/ > (string-to-number (nth 1 timelist)) > 60.0)))) And this is better: (defun get-hours(time) (interactive "sHH:MM: ") (let ((timelist (split-string time ":")) (errmsg "Time format error")) (save-match-data (unless (string-match "\\`[0-9]+:[0-9]\\{2\\}\\'" time) (error errmsg))) (+ (string-to-number (nth 0 timelist)) (/ (string-to-number (nth 1 timelist)) 60.0))))