Lines Matching +defs:event +defs:seq
212 (defmacro mh-do-at-event-location (event &rest body)
215 modification flag of the buffer in the event window is
217 (let ((event-window (make-symbol "event-window"))
218 (event-position (make-symbol "event-position"))
223 (let* ((,event-window
224 (or (mh-funcall-if-exists posn-window (event-start ,event))
225 (mh-funcall-if-exists event-window ,event)))
226 (,event-position
227 (or (mh-funcall-if-exists posn-point (event-start ,event))
228 (mh-funcall-if-exists event-closest-point ,event)))
231 (set-buffer (window-buffer ,event-window))
236 (select-window ,event-window)
237 (goto-char ,event-position)
243 (put 'mh-do-at-event-location 'lisp-indent-hook 'defun)
251 (defmacro mh-seq-msgs (sequence)
292 (seq-hash-table (make-symbol "seq-hash-table")))
303 (mh-seq-to-msgs ,range))
308 (,seq-hash-table (make-hash-table)))
310 (setf (gethash msg ,seq-hash-table) t))
312 (when (gethash v ,seq-hash-table)