Mercurial > hg > xemacs-beta

comparison lisp/font.el @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 64752935473d
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
1 ;;; font.el --- New font model 1 ;;; font.el --- New font model
2 2
3 ;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu) 3 ;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu)
4 ;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 4 ;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
5 ;; Copyright (C) 2002, 2004 Ben Wing. 5 ;; Copyright (C) 2002, 2004, 2005 Ben Wing.
6 6
7 ;; Author: wmperry 7 ;; Author: wmperry
8 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
9 ;; Created: 1997/09/05 15:44:37 9 ;; Created: 1997/09/05 15:44:37
10 ;; Keywords: faces 10 ;; Keywords: faces
243 (defvar font-caps-display-table 243 (defvar font-caps-display-table
244 (let ((table (make-display-table)) 244 (let ((table (make-display-table))
245 (i 0)) 245 (i 0))
246 ;; Standard ASCII characters 246 ;; Standard ASCII characters
247 (while (< i 26) 247 (while (< i 26)
248 (aset table (+ i ?a) (+ i ?A)) 248 (put-display-table (+ i ?a) (+ i ?A) table)
249 (setq i (1+ i))) 249 (setq i (1+ i)))
250 ;; Now ISO translations 250 ;; Now ISO translations
251 (setq i 224) 251 (setq i 224)
252 (while (< i 247) ;; Agrave - Ouml 252 (while (< i 247) ;; Agrave - Ouml
253 (aset table i (- i 32)) 253 (put-display-table i (- i 32) table)
254 (setq i (1+ i))) 254 (setq i (1+ i)))
255 (setq i 248) 255 (setq i 248)
256 (while (< i 255) ;; Oslash - Thorn 256 (while (< i 255) ;; Oslash - Thorn
257 (aset table i (- i 32)) 257 (put-display-table i (- i 32) table)
258 (setq i (1+ i))) 258 (setq i (1+ i)))
259 table)) 259 table))
260 260
261 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 261 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
262 ;;; Utility functions 262 ;;; Utility functions