Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 523:cd662ad69f40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
522:19559cacc941 523:cd662ad69f40
31 ;;; Code: 31 ;;; Code:
32 32
33 (globally-declare-fboundp 33 (globally-declare-fboundp
34 '(x-list-fonts 34 '(x-list-fonts
35 mswindows-list-fonts ns-list-fonts internal-facep fontsetp get-font-info 35 mswindows-list-fonts ns-list-fonts internal-facep fontsetp get-font-info
36 get-fontset-info mswindows-define-rgb-color cancel-function-timers)) 36 get-fontset-info mswindows-define-rgb-color cancel-function-timers
37 ;; #### perhaps we should rewrite font-warn to avoid the warning
38 font-warn))
37 39
38 (globally-declare-boundp 40 (globally-declare-boundp
39 '(global-face-data 41 '(global-face-data
40 x-font-regexp x-font-regexp-foundry-and-family)) 42 x-font-regexp x-font-regexp-foundry-and-family))
41 43
220 (set-font-style fontobj (- (font-style fontobj) 222 (set-font-style fontobj (- (font-style fontobj)
221 ,(intern 223 ,(intern
222 (format "font-%s-mask" attr))))))) 224 (format "font-%s-mask" attr)))))))
223 ))) 225 )))
224 226
225 (let ((mask 0)) 227 (define-new-mask bold 1)
226 (define-new-mask bold (setq mask (1+ mask))) 228 (define-new-mask italic 2)
227 (define-new-mask italic (setq mask (1+ mask))) 229 (define-new-mask oblique 3)
228 (define-new-mask oblique (setq mask (1+ mask))) 230 (define-new-mask dim 4)
229 (define-new-mask dim (setq mask (1+ mask))) 231 (define-new-mask underline 5)
230 (define-new-mask underline (setq mask (1+ mask))) 232 (define-new-mask overline 6)
231 (define-new-mask overline (setq mask (1+ mask))) 233 (define-new-mask linethrough 7)
232 (define-new-mask linethrough (setq mask (1+ mask))) 234 (define-new-mask strikethru 8)
233 (define-new-mask strikethru (setq mask (1+ mask))) 235 (define-new-mask reverse 9)
234 (define-new-mask reverse (setq mask (1+ mask))) 236 (define-new-mask blink 10)
235 (define-new-mask blink (setq mask (1+ mask))) 237 (define-new-mask smallcaps 11)
236 (define-new-mask smallcaps (setq mask (1+ mask))) 238 (define-new-mask bigcaps 12)
237 (define-new-mask bigcaps (setq mask (1+ mask))) 239 (define-new-mask dropcaps 13)
238 (define-new-mask dropcaps (setq mask (1+ mask))))
239 240
240 (defvar font-caps-display-table 241 (defvar font-caps-display-table
241 (let ((table (make-display-table)) 242 (let ((table (make-display-table))
242 (i 0)) 243 (i 0))
243 ;; Standard ASCII characters 244 ;; Standard ASCII characters