mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Make the bookmark fringe icon look like a bookmark
* src/fringe.c (large_circle_bits): New variable. (standard_bitmaps): Add large_circle_bits. * lisp/fringe.el (fringe-bitmaps): Add 'large-circle'. (fringe-custom-set-bitmap): New function. * lisp/cus-edit.el (widget-fringe-bitmap-prompt-value-history): New variable. (fringe-bitmap): New widget. * lisp/bookmark.el (bookmark-set-fringe-mark): Obsolete in favor of... (bookmark-fringe-mark): ... this. (bookmark-fringe-mark): Rename this fringe bitmap to... (bookmark-mark): ... and change it to look like a bookmark. (bookmark-face): Don't set the ':background' of the face. Instead, set ':distant-foreground'. (bookmark--set-fringe-mark, bookmark--remove-fringe-mark) (bookmark-store, bookmark--jump-via): Consult the 'bookmark-fringe-mark' option. * doc/lispref/customize.texi (Simple Types): Document 'fringe-bitmap' type. * doc/lispref/display.texi (Fringe Bitmaps): Mention 'large-circle'. * etc/NEWS: Announce this change (bug#56896).
This commit is contained in:
parent
cf873c1a09
commit
b87400c78b
7 changed files with 84 additions and 14 deletions
|
|
@ -46,6 +46,7 @@
|
|||
(let ((bitmaps '(question-mark exclamation-mark
|
||||
left-arrow right-arrow up-arrow down-arrow
|
||||
left-curly-arrow right-curly-arrow
|
||||
large-circle
|
||||
left-triangle right-triangle
|
||||
top-left-angle top-right-angle
|
||||
bottom-left-angle bottom-right-angle
|
||||
|
|
@ -324,6 +325,17 @@ If BITMAP already exists, the existing definition is replaced."
|
|||
;; The real implementation is in src/fringe.c.
|
||||
))
|
||||
|
||||
(defun fringe-custom-set-bitmap (symbol value)
|
||||
"Set SYMBOL to a fringe bitmap VALUE.
|
||||
This sets the `fringe' property on SYMBOL to match that of VALUE,
|
||||
and then force all windows to be updated on the next redisplay.
|
||||
You should use this for the :set parameter for customization
|
||||
options to pick a fringe bitmap."
|
||||
(prog1
|
||||
(set symbol value)
|
||||
(put symbol 'fringe (get value 'fringe))
|
||||
(force-window-update)))
|
||||
|
||||
(provide 'fringe)
|
||||
|
||||
;;; fringe.el ends here
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue