Function: fringe-query-style

fringe-query-style is a byte-compiled function defined in fringe.el.gz.

Signature

(fringe-query-style &optional ALL-FRAMES)

Documentation

Query user for fringe style.

Returns values suitable for left-fringe and right-fringe frame parameters. If ALL-FRAMES, the negation of the fringe values in default-frame-alist is used when user enters the empty string. Otherwise the negation of the fringe value in the currently selected frame parameter is used.

Source Code

;; Defined in /usr/src/emacs/lisp/fringe.el.gz
(defun fringe-query-style (&optional all-frames)
  "Query user for fringe style.
Returns values suitable for left-fringe and right-fringe frame parameters.
If ALL-FRAMES, the negation of the fringe values in
`default-frame-alist' is used when user enters the empty string.
Otherwise the negation of the fringe value in the currently selected
frame parameter is used."
  (let* ((mode (completing-read
                (concat
                 "Select fringe mode for "
                 (if all-frames "all frames" "selected frame")
                 ": ")
                fringe-styles nil t))
         (style (assoc (downcase mode) fringe-styles)))
    (cond
     (style
      (cdr style))
     ((not (eq 0 (cdr (assq 'left-fringe
			    (if all-frames
				default-frame-alist
			      (frame-parameters))))))
      0))))