Lines Matching +defs:button +defs:get
78 (defun eudc-bob-get-overlay-prop (prop)
86 (if (setq value (overlay-get overlay prop))
99 (defun eudc-bob-make-button (label keymap &optional menu plist)
100 "Create a button with LABEL.
123 display a button."
128 (eudc-bob-make-button "[JPEG Picture]"
143 (eudc-bob-make-button "[Picture]"
158 (not (setq glyph (overlay-get overlay 'glyph))))
162 (if (overlay-get overlay 'end-glyph)
175 (let ((prop (overlay-get (car overlays) 'eudc-image)))
184 (if (overlay-get overlay 'display)
188 "Display a button for audio DATA."
189 (eudc-bob-make-button "[Audio Sound]"
198 "Display a button for unidentified binary DATA."
199 (eudc-bob-make-button "[Binary Data]"
208 "Play the sound data contained in the button at point."
211 (if (null (setq sound (eudc-bob-get-overlay-prop 'object-data)))
218 "Play the sound data contained in the button where EVENT occurred."
225 "Save the object data of the button at point."
227 (let ((data (eudc-bob-get-overlay-prop 'object-data))
239 "Pipe the object data of the button at point to an external program."
241 (let ((data (eudc-bob-get-overlay-prop 'object-data))
262 (eudc-bob-get-overlay-prop 'menu))
339 "Display a button for unidentified binary DATA."
346 (eudc-bob-make-button url eudc-bob-url-keymap))
352 (eudc-bob-make-button mail eudc-bob-mail-keymap))
356 "Display a button to play the sound DATA."
365 (defun eudc-display-jpeg-as-button (data)
366 "Display a button for the JPEG DATA."