comparison lisp/fringe.el @ 58597:fa269b651143

(fringe): New defgroup. (fringe-mode): Move to fringe group. (fringe-indicators): New defcustom. (set-fringe-indicators-1): New defun.

58596:89f8e146b919

;; gratefully acknowledge comments and suggestions made by Miles
;; Bader, Eli Zaretski, Richard Stallman, Pavel Janík and others which
;; improved this package.

;;; Code:

;; Standard fringe bitmaps

(defmacro fringe-bitmap-p (symbol)
  "Return non-nil if SYMBOL is a fringe bitmap."

		 (const :tag "Minimal" (1 . 1))
		 (integer :tag "Specific width")
		 (cons :tag "Different left/right sizes"
		       (integer :tag "Left width")
		       (integer :tag "Right width")))
  :group 'frames
  :require 'fringe
  :initialize 'fringe-mode-initialize
  :set 'set-fringe-mode-1)

(defun fringe-query-style (&optional all-frames)

	   (or (funcall (if (eq side 'left) 'car 'cadr)
			(window-fringes))
	       0)
           (float (frame-char-width))))

(provide 'fringe)

;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d
;;; fringe.el ends here

58597:fa269b651143

;; gratefully acknowledge comments and suggestions made by Miles
;; Bader, Eli Zaretski, Richard Stallman, Pavel Janík and others which
;; improved this package.

;;; Code:

(defgroup fringe nil
  "Window fringes."
  :version "21.4"
  :group 'frames)

;; Standard fringe bitmaps

(defmacro fringe-bitmap-p (symbol)
  "Return non-nil if SYMBOL is a fringe bitmap."

		 (const :tag "Minimal" (1 . 1))
		 (integer :tag "Specific width")
		 (cons :tag "Different left/right sizes"
		       (integer :tag "Left width")
		       (integer :tag "Right width")))
  :group 'fringe
  :require 'fringe
  :initialize 'fringe-mode-initialize
  :set 'set-fringe-mode-1)

(defun fringe-query-style (&optional all-frames)

	   (or (funcall (if (eq side 'left) 'car 'cadr)
			(window-fringes))
	       0)
           (float (frame-char-width))))


;;;###autoload
(defcustom fringe-indicators nil
  "Visually indicate buffer boundaries and scrolling.
Setting this variable, changes `default-indicate-buffer-boundaries'."
  :type '(choice (const :tag "No indicators" nil)
		 (const :tag "On left" left)
		 (const :tag "On right" right)
		 (const :tag "Opposite, no arrows" box)
		 (const :tag "Opposite, arrows right" mixed)
		 (const :tag "Empty lines" empty))
  :group 'fringe
  :require 'fringe
  :set 'set-fringe-indicators-1)

(defun set-fringe-indicators-1 (ignore value)
  "Set fringe indicators according to VALUE.
This is usually invoked when setting `fringe-indicators' via customize."
  (setq fringe-indicators value)
  (setq default-indicate-empty-lines nil)
  (setq default-indicate-buffer-boundaries
	(cond
	 ((memq value '(left right t))
	  value)
	 ((eq value 'box)
	  '((top . left) (bottom . right)))
	 ((eq value 'mixed)
	  '((top . left) (t . right)))
	 ((eq value 'empty)
	  (setq default-indicate-empty-lines t)
	  nil)
	 (t nil))))

(provide 'fringe)

;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d
;;; fringe.el ends here