/[emacs]/emacs/lisp/calendar/appt.el
ViewVC logotype

Diff of /emacs/lisp/calendar/appt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by rms, Mon Aug 12 17:21:06 2002 UTC revision 1.45 by rms, Thu Aug 15 20:18:42 2002 UTC
# Line 455  The time should be in either 24 hour for Line 455  The time should be in either 24 hour for
455      (while tmp-msg-list      (while tmp-msg-list
456        (let* ((element (car tmp-msg-list))        (let* ((element (car tmp-msg-list))
457               (prompt-string (concat "Delete "               (prompt-string (concat "Delete "
458                                      (prin1-to-string (car (cdr element)))                                      ;; We want to quote any doublequotes
459                                        ;; in the string, as well as put
460                                        ;; doublequotes around it.
461                                        (prin1-to-string
462                                         (substring-no-properties
463                                          (car (cdr element)) 0))
464                                      " from list? "))                                      " from list? "))
465               (test-input (y-or-n-p prompt-string)))               (test-input (y-or-n-p prompt-string)))
466          (setq tmp-msg-list (cdr tmp-msg-list))          (setq tmp-msg-list (cdr tmp-msg-list))
# Line 512  They specify the range of dates that the Line 517  They specify the range of dates that the
517                (while (and entry-list                (while (and entry-list
518                            (calendar-date-equal                            (calendar-date-equal
519                             (calendar-current-date) (car (car entry-list))))                             (calendar-current-date) (car (car entry-list))))
520                  (let ((time-string (substring (prin1-to-string                  (let ((time-string (cadr (car entry-list))))
                                                (cadr (car entry-list))) 1 -1)))  
   
521                    (while (string-match                    (while (string-match
522                            "\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*"                            "\\([0-9]?[0-9]:[0-9][0-9]\\(am\\|pm\\)?\\).*"
523                            time-string)                            time-string)

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26