Mercurial > hg > xemacs-beta
diff lisp/font.el @ 523:cd662ad69f40
[xemacs-hg @ 2001-05-09 13:43:49 by ben]
regex.c: fix error compiling regexps with back-references in them.
xemacs.mak: do not warn about gtk when we're not trying to compile with it.
font.el, gtk-widget-accessors.el, widgets-gtk.el, x-font-menu.el: fix byte-compilation warnings.
etags.c: temporary fix to avoid crashes with new regex code.
PROBLEMS: i swear i already committed this.
| author | ben |
|---|---|
| date | Wed, 09 May 2001 13:43:58 +0000 |
| parents | 7039e6323819 |
| children | 4d7fdf497470 |
line wrap: on
line diff
--- a/lisp/font.el Wed May 09 11:48:28 2001 +0000 +++ b/lisp/font.el Wed May 09 13:43:58 2001 +0000 @@ -33,7 +33,9 @@ (globally-declare-fboundp '(x-list-fonts mswindows-list-fonts ns-list-fonts internal-facep fontsetp get-font-info - get-fontset-info mswindows-define-rgb-color cancel-function-timers)) + get-fontset-info mswindows-define-rgb-color cancel-function-timers + ;; #### perhaps we should rewrite font-warn to avoid the warning + font-warn)) (globally-declare-boundp '(global-face-data @@ -222,20 +224,19 @@ (format "font-%s-mask" attr))))))) ))) -(let ((mask 0)) - (define-new-mask bold (setq mask (1+ mask))) - (define-new-mask italic (setq mask (1+ mask))) - (define-new-mask oblique (setq mask (1+ mask))) - (define-new-mask dim (setq mask (1+ mask))) - (define-new-mask underline (setq mask (1+ mask))) - (define-new-mask overline (setq mask (1+ mask))) - (define-new-mask linethrough (setq mask (1+ mask))) - (define-new-mask strikethru (setq mask (1+ mask))) - (define-new-mask reverse (setq mask (1+ mask))) - (define-new-mask blink (setq mask (1+ mask))) - (define-new-mask smallcaps (setq mask (1+ mask))) - (define-new-mask bigcaps (setq mask (1+ mask))) - (define-new-mask dropcaps (setq mask (1+ mask)))) +(define-new-mask bold 1) +(define-new-mask italic 2) +(define-new-mask oblique 3) +(define-new-mask dim 4) +(define-new-mask underline 5) +(define-new-mask overline 6) +(define-new-mask linethrough 7) +(define-new-mask strikethru 8) +(define-new-mask reverse 9) +(define-new-mask blink 10) +(define-new-mask smallcaps 11) +(define-new-mask bigcaps 12) +(define-new-mask dropcaps 13) (defvar font-caps-display-table (let ((table (make-display-table))