mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
*** empty log message ***
This commit is contained in:
parent
2bb56fbfb0
commit
dd9959dab8
@ -1,4 +1,10 @@
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr>
|
||||
2006-02-21 Kim F. Storm <storm@cua.dk>
|
||||
|
||||
* fringe.el: Cleanup as file is now pre-loaded.
|
||||
(fringe-bitmaps): Initialize unconditionally.
|
||||
(fringe-mode, set-fringe-style): Remove autoload cookies.
|
||||
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr> (tiny change)
|
||||
|
||||
* fringe.el (fringe-bitmaps): Rename `horisontal-bar' to
|
||||
`horizontal-bar'.
|
||||
|
@ -1,4 +1,4 @@
|
||||
;;; fringe.el --- change fringes appearance in various ways
|
||||
;;; fringe.el --- fringe setup and control
|
||||
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
|
||||
|
||||
@ -25,8 +25,9 @@
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This file contains helpful functions for customizing the appearance
|
||||
;; of the fringe.
|
||||
;; This file contains code to initialize the built-in fringe bitmaps
|
||||
;; as well as helpful functions for customizing the appearance of the
|
||||
;; fringe.
|
||||
|
||||
;; The code is influenced by scroll-bar.el and avoid.el. The author
|
||||
;; gratefully acknowledge comments and suggestions made by Miles
|
||||
@ -40,33 +41,25 @@
|
||||
:version "22.1"
|
||||
:group 'frames)
|
||||
|
||||
;; Standard fringe bitmaps
|
||||
;; Define the built-in fringe bitmaps and setup default mappings
|
||||
|
||||
(defmacro fringe-bitmap-p (symbol)
|
||||
"Return non-nil if SYMBOL is a fringe bitmap."
|
||||
`(get ,symbol 'fringe))
|
||||
|
||||
(defvar fringe-bitmaps)
|
||||
|
||||
(unless (or (not (boundp 'fringe-bitmaps))
|
||||
(get 'left-truncation 'fringe))
|
||||
(let ((bitmaps '(question-mark
|
||||
left-arrow right-arrow up-arrow down-arrow
|
||||
left-curly-arrow right-curly-arrow
|
||||
left-triangle right-triangle
|
||||
top-left-angle top-right-angle
|
||||
bottom-left-angle bottom-right-angle
|
||||
left-bracket right-bracket
|
||||
filled-rectangle hollow-rectangle
|
||||
filled-square hollow-square
|
||||
vertical-bar horizontal-bar
|
||||
empty-line))
|
||||
(bn 1))
|
||||
(while bitmaps
|
||||
(push (car bitmaps) fringe-bitmaps)
|
||||
(put (car bitmaps) 'fringe bn)
|
||||
(setq bitmaps (cdr bitmaps)
|
||||
bn (1+ bn)))))
|
||||
(let ((bitmaps '(question-mark
|
||||
left-arrow right-arrow up-arrow down-arrow
|
||||
left-curly-arrow right-curly-arrow
|
||||
left-triangle right-triangle
|
||||
top-left-angle top-right-angle
|
||||
bottom-left-angle bottom-right-angle
|
||||
left-bracket right-bracket
|
||||
filled-rectangle hollow-rectangle
|
||||
filled-square hollow-square
|
||||
vertical-bar horizontal-bar
|
||||
empty-line))
|
||||
(bn 1))
|
||||
(while bitmaps
|
||||
(push (car bitmaps) fringe-bitmaps)
|
||||
(put (car bitmaps) 'fringe bn)
|
||||
(setq bitmaps (cdr bitmaps)
|
||||
bn (1+ bn))))
|
||||
|
||||
(setq-default fringe-indicator-alist
|
||||
'((truncation . (left-arrow right-arrow))
|
||||
@ -89,6 +82,12 @@
|
||||
(hbar . horizontal-bar)
|
||||
(hollow-small . hollow-square)))
|
||||
|
||||
|
||||
(defmacro fringe-bitmap-p (symbol)
|
||||
"Return non-nil if SYMBOL is a fringe bitmap."
|
||||
`(get ,symbol 'fringe))
|
||||
|
||||
|
||||
;; Control presence of fringes
|
||||
|
||||
(defvar fringe-mode)
|
||||
@ -158,7 +157,6 @@ See `fringe-mode' for possible values and their effect."
|
||||
;; Otherwise impose the user-specified value of fringe-mode.
|
||||
(custom-initialize-reset symbol value))))
|
||||
|
||||
;;;###autoload
|
||||
(defcustom fringe-mode nil
|
||||
"*Specify appearance of fringes on all frames.
|
||||
This variable can be nil (the default) meaning the fringes should have
|
||||
@ -216,7 +214,6 @@ frame parameter is used."
|
||||
nil
|
||||
0)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun fringe-mode (&optional mode)
|
||||
"Set the default appearance of fringes on all frames.
|
||||
|
||||
@ -242,7 +239,6 @@ frame only, see the command `set-fringe-style'."
|
||||
(interactive (list (fringe-query-style 'all-frames)))
|
||||
(set-fringe-mode mode))
|
||||
|
||||
;;;###autoload
|
||||
(defun set-fringe-style (&optional mode)
|
||||
"Set the default appearance of fringes on the selected frame.
|
||||
|
||||
|
@ -1,4 +1,4 @@
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr>
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr> (tiny change)
|
||||
|
||||
* display.texi (Fringe Indicators, Fringe Cursors): Fix typos.
|
||||
|
||||
|
@ -1,9 +1,13 @@
|
||||
2006-02-21 Kim F. Storm <storm@cua.dk>
|
||||
|
||||
* fringe.c (syms_of_fringe) <fringe-bitmaps>: Doc fix.
|
||||
|
||||
2006-02-21 Zhang Wei <brep@newsmth.org>
|
||||
|
||||
* xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
|
||||
returning it.
|
||||
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr>
|
||||
2006-02-21 Giorgos Keramidas <keramida@ceid.upatras.gr> (tiny change)
|
||||
|
||||
* fringe.c (horizontal_bar_bits): Rename from `horisontal_bar_bits'.
|
||||
(standard_bitmaps): Use it.
|
||||
|
Loading…
Reference in New Issue
Block a user