Lines Matching +refs:earcon +refs:buffer
0 ;;; earcon.el --- Sound effects for messages
35 (defgroup earcon nil
39 (defcustom earcon-prefix "**"
40 "*String denoting the start of an earcon."
42 :group 'earcon)
44 (defcustom earcon-suffix "**"
45 "String denoting the end of an earcon."
47 :group 'earcon)
49 (defcustom earcon-regexp-alist
70 :group 'earcon)
71 (defvar earcon-button-marker-list nil)
72 (make-variable-buffer-local 'earcon-button-marker-list)
75 (defun earcon-article-push-button (event)
77 If the text under the mouse pointer has a `earcon-callback' property,
78 call it with the value of the `earcon-data' text property."
80 (set-buffer (window-buffer (posn-window (event-start event))))
82 (data (get-text-property pos 'earcon-data))
83 (fun (get-text-property pos 'earcon-callback)))
86 (defun earcon-article-press-button ()
88 If the text at point has a `earcon-callback' property,
89 call it with the value of the `earcon-data' text property."
91 (let* ((data (get-text-property (point) 'earcon-data))
92 (fun (get-text-property (point) 'earcon-callback)))
95 (defun earcon-article-prev-button (n)
99 (earcon-article-next-button (- n)))
101 (defun earcon-article-next-button (n)
114 (when (get-text-property (point) 'earcon-callback)
115 (goto-char (funcall function (point) 'earcon-callback nil limit)))
117 (gnus-goto-char (funcall function (point) 'earcon-callback nil limit))
119 (when (and backward (not (get-text-property (point) 'earcon-callback)))
120 (goto-char (funcall function (point) 'earcon-callback nil limit)))
129 (defun earcon-article-add-button (from to fun &optional data)
142 (defun earcon-button-entry ()
144 (let ((alist earcon-regexp-alist)
154 (defun earcon-button-push (marker)
157 (set-buffer gnus-article-buffer)
159 (let* ((entry (earcon-button-entry))
176 (defun earcon-region (beg end)
179 (earcon-buffer (current-buffer) beg end))
182 (defun earcon-buffer (&optional buffer st nd)
186 (if (boundp 'earcon-button-marker-list)
187 (while earcon-button-marker-list
188 (set-marker (pop earcon-button-marker-list) nil))
189 (setq earcon-button-marker-list nil))
190 (and buffer (set-buffer buffer))
191 (let ((buffer-read-only nil)
194 (alist earcon-regexp-alist)
199 (setq regexp (concat (regexp-quote earcon-prefix)
203 (regexp-quote earcon-suffix)))
209 (earcon-article-add-button
210 start end 'earcon-button-push
212 earcon-button-marker-list)))
216 (defun gnus-earcon-display ()
220 (set-buffer gnus-article-buffer)
226 (earcon-buffer (current-buffer) (point))))
230 (provide 'earcon)
232 (run-hooks 'earcon-load-hook)
235 ;;; earcon.el ends here