Function: appt-delete

appt-delete is an interactive and byte-compiled function defined in appt.el.gz.

Signature

(appt-delete)

Documentation

Delete an appointment from the list of appointments.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/appt.el.gz
(defun appt-delete ()
  "Delete an appointment from the list of appointments."
  (interactive)
  (let ((tmp-msg-list appt-time-msg-list))
    (dolist (element tmp-msg-list)
      (if (y-or-n-p (concat "Delete "
                            ;; We want to quote any doublequotes in the
                            ;; string, as well as put doublequotes around it.
                            (prin1-to-string
                             (substring-no-properties (cadr element) 0))
                            " from list? "))
          (setq appt-time-msg-list (delq element appt-time-msg-list)))))
  (appt-check)
  (message ""))