Re: emacs diary/calendar insert day (i-d)

[Edward M. Reingold]

>>>>> "EMR" == Edward M Reingold <reingold@emr.cs.iit.edu> writes:

     JS=> I hope the future versions of diary functions will take care of local
    JS=> variables blocks.

    EMR> Yes, that really is a bug.  I will try to see that it gets fixed
    EMR> soon.  --

Can somebody test this in Emacs 21 (which I don't use yet):

(defun make-diary-entry (string &optional nonmarking file)
  "Insert a diary entry STRING which may be NONMARKING in FILE.
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file."
  (find-file-other-window
   (substitute-in-file-name (if file file diary-file)))
  (widen)
  (goto-char (point-max))
  (if (let ((case-fold-search t))
        (search-backward "Local Variables:"
                         (max (- (point-max) 3000) (point-min))
                         t))
      (progn
        (beginning-of-line)
        (insert "\n")
        (previous-line 1)))
  (insert
   (if (bolp) "" "\n")
   (if nonmarking diary-nonmarking-symbol "")
   string " "))

-- 

Professor Edward M. Reingold                Email: reingold@iit.edu
Chairman, Department of Computer Science    Voice: (312) 567-3309
Illinois Institute of Technology            Assistant: (312) 567-5152
Stuart Building                             Fax:   (312) 567-5067
10 West 31st Street, Suite 236
Chicago, IL  60616-3729  U.S.A.