mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Always define 'define-fringe-bitmap'

Browse source 
* lisp/cus-start.el: Test 'fringe-bitmaps' to see if fringe.c was compiled.

* lisp/fringe.el: Use lexical-binding.
(define-fringe-bitmap): Provide a fallback implementation.

* lisp/progmodes/flymake.el (flymake-double-exclamation-mark):
Define unconditionally.

* lisp/progmodes/gdb-mi.el (define-fringe-bitmap): Don't declare any more.
(breakpoint, hollow-right-triangle): Define unconditionally.
This commit is contained in:
Stefan Monnier 2018-10-21 14:36:10 -04:00
parent 17252062b0
commit 08192e4009
5 changed files with 47 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/gdb-mi.el
View file

@ -1741,16 +1741,12 @@ static char *magick[] = {
(defvar breakpoint-disabled-icon nil
"Icon for disabled breakpoint in display margin.")
(declare-function define-fringe-bitmap "fringe.c"
(bitmap bits &optional height width align))
(and (display-images-p)
;; Bitmap for breakpoint in fringe
(define-fringe-bitmap 'breakpoint
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
;; Bitmap for gud-overlay-arrow in fringe
(define-fringe-bitmap 'hollow-right-triangle
"\xe0\x90\x88\x84\x84\x88\x90\xe0"))
;; Bitmap for breakpoint in fringe
(define-fringe-bitmap 'breakpoint
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")
;; Bitmap for gud-overlay-arrow in fringe
(define-fringe-bitmap 'hollow-right-triangle
"\xe0\x90\x88\x84\x84\x88\x90\xe0")
(defface breakpoint-enabled
'((t