/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

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

revision 1.50 by sds, Fri Oct 5 15:53:02 2001 UTC revision 1.51 by pj, Mon Nov 26 16:19:34 2001 UTC
# Line 261  These hooks have the following distinct Line 261  These hooks have the following distinct
261                (if (not (looking-at "\^M\\|\n"))                (if (not (looking-at "\^M\\|\n"))
262                    (progn                    (progn
263                      (goto-char (point-max))                      (goto-char (point-max))
264                      (insert-string "\^M")))                      (insert "\^M")))
265                (goto-char (point-min))                (goto-char (point-min))
266                (if (not (looking-at "\^M\\|\n"))                (if (not (looking-at "\^M\\|\n"))
267                    (insert-string "\^M"))                    (insert "\^M"))
268                (subst-char-in-region (point-min) (point-max) ?\n ?\^M t)                (subst-char-in-region (point-min) (point-max) ?\n ?\^M t)
269                (calendar-for-loop i from 1 to number do                (calendar-for-loop i from 1 to number do
270                   (let ((d diary-date-forms)                   (let ((d diary-date-forms)

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

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