# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1245652199 0
# Node ID 9b52cad1866b5bb0ee6fc3bf5436d48803aa2cd7
# Parent  93c102cc8dd2e24c7b8cfa4e0c8888b4544bde8e
(appt-make-list): Fix off-by-one error caused by
differing behavior of \n and ^ in strings.  (Bug#3385)

diff -r 93c102cc8dd2 -r 9b52cad1866b lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jun 22 06:27:00 2009 +0000
+++ b/lisp/ChangeLog	Mon Jun 22 06:29:59 2009 +0000
@@ -1,5 +1,8 @@
 2009-06-22  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/appt.el (appt-make-list): Fix off-by-one error caused by
+	differing behavior of \n and ^ in strings.  (Bug#3385)
+
 	* emacs-lisp/cl-indent.el: Remove leading "*" from defcustom docs.
 
 	* emacs-lisp/lisp-mode.el (lisp-indent-offset): Fix safe-local-variable
diff -r 93c102cc8dd2 -r 9b52cad1866b lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Mon Jun 22 06:27:00 2009 +0000
+++ b/lisp/calendar/appt.el	Mon Jun 22 06:29:59 2009 +0000
@@ -568,7 +568,7 @@
                                  (match-end 0)))
                            ;; Get the whole string for this appointment.
                            (appt-time-string
-                            (substring time-string beg (if end (1- end))))
+                            (substring time-string beg end))
                            (appt-time (list (appt-convert-time only-time)))
                            (time-msg (list appt-time appt-time-string)))
                       ;; Add this appointment to appt-time-msg-list.