Function: eudc-bob-toggle-inline-display

eudc-bob-toggle-inline-display is an interactive and byte-compiled function defined in eudc-bob.el.gz.

Signature

(eudc-bob-toggle-inline-display)

Documentation

Toggle inline display of an image.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/eudc-bob.el.gz
(defun eudc-bob-toggle-inline-display ()
  "Toggle inline display of an image."
  (interactive)
  (when (display-graphic-p)
    (let* ((overlays (append (overlays-at (1- (point)))
			     (overlays-at (point))))
	   image)
      ;; Search overlay with an image.
      (while (and overlays (null image))
	(let ((prop (overlay-get (car overlays) 'eudc-image)))
	  (if (eq 'image (car-safe prop))
	      (setq image prop)
	    (setq overlays (cdr overlays)))))
      ;; Toggle that overlay's image display.
      (when overlays
	(let ((overlay (car overlays)))
	  (overlay-put overlay 'display
		       (if (overlay-get overlay 'display)
			   nil image)))))))