Function: icalendar-find-unfolded-buffer-visiting

icalendar-find-unfolded-buffer-visiting is a byte-compiled function defined in icalendar-parser.el.gz.

Signature

(icalendar-find-unfolded-buffer-visiting FILENAME)

Documentation

Find an existing unfolded buffer visiting FILENAME.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/icalendar-parser.el.gz
(defun ical:find-unfolded-buffer-visiting (filename)
  "Find an existing unfolded buffer visiting FILENAME."
  ;; FIXME: I was previously using
  ;;   (find-buffer-visiting filename #'ical:unfolded-p)
  ;; for this, but found that it would sometimes return nil even when an
  ;; unfolded buffer already existed for FILENAME, leading to buffers
  ;; getting unfolded and parsed multiple times.  Hence this kludge.
  (catch 'unfolded
    (let ((exp-name (expand-file-name filename)))
      (dolist (buf (match-buffers "UNFOLDED"))
        (when (and (equal exp-name (buffer-file-name buf))
                   (ical:unfolded-p buf))
          (throw 'unfolded buf))))))