Mercurial > emacs

comparison lisp/calendar/diary-lib.el @ 13075:8a67628f4574

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark-sexp-diary-entries): Add \ for C-M-f's sake.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Sep 1995 14:55:02 +0000
parents 621d48117fde
children a9e81464a9ea
comparison
equal deleted inserted replaced
13074:c361ef50ec0f 13075:8a67628f4574
732 (setq last-date 732 (setq last-date
733 (calendar-absolute-from-gregorian 733 (calendar-absolute-from-gregorian
734 (list m (calendar-last-day-of-month m y) y))) 734 (list m (calendar-last-day-of-month m y) y)))
735 (goto-char (point-min)) 735 (goto-char (point-min))
736 (while (re-search-forward s-entry nil t) 736 (while (re-search-forward s-entry nil t)
737 (if (char-equal (preceding-char) ?() 737 (if (char-equal (preceding-char) ?\()
738 (setq marking-diary-entry t) 738 (setq marking-diary-entry t)
739 (setq marking-diary-entry nil)) 739 (setq marking-diary-entry nil))
740 (re-search-backward "(") 740 (re-search-backward "(")
741 (let ((sexp-start (point)) 741 (let ((sexp-start (point))
742 (sexp) 742 (sexp)