Function: sieve-insert-scripts

sieve-insert-scripts is a byte-compiled function defined in sieve.el.gz.

Signature

(sieve-insert-scripts SCRIPTS)

Documentation

Format and insert LANGUAGE-LIST strings into current buffer at point.

Source Code

;; Defined in /usr/src/emacs/lisp/net/sieve.el.gz
(defun sieve-insert-scripts (scripts)
  "Format and insert LANGUAGE-LIST strings into current buffer at point."
  (while scripts
    (let ((p (point))
	  (ext nil)
	  (script (pop scripts)))
      (if (consp script)
	  (insert (format " ACTIVE %s" (cdr script)))
	(insert (format "        %s" script)))
      (setq ext (make-overlay p (point)))
      (overlay-put ext 'mouse-face 'highlight)
      (overlay-put ext 'script-name (if (consp script)
					(cdr script)
				      script))
      (insert "\n"))))