Mercurial > emacs
comparison lisp/play/gamegrid.el @ 91041:bdb3fe0ba9fa
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2007 16:22:07 +0000 |
| parents | b83d0dadb2a7 17d7aed08b42 |
| children | 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 91040:14c4a6aac623 | 91041:bdb3fe0ba9fa |
|---|---|
| 324 (resy (/ (display-pixel-height) (/ (display-mm-height) 25.4))) | 324 (resy (/ (display-pixel-height) (/ (display-mm-height) 25.4))) |
| 325 point-size pixel-size) | 325 point-size pixel-size) |
| 326 (setq point-size (/ (* (float default-font-height) max-height) 10) | 326 (setq point-size (/ (* (float default-font-height) max-height) 10) |
| 327 pixel-size (floor (* resy (/ point-size 72.27))) | 327 pixel-size (floor (* resy (/ point-size 72.27))) |
| 328 point-size (* (/ pixel-size resy) 72.27)) | 328 point-size (* (/ pixel-size resy) 72.27)) |
| 329 (set-face-attribute gamegrid-face nil | 329 (face-spec-set gamegrid-face |
| 330 :height (floor (* point-size 10)))))))) | 330 `((t :height ,(floor (* point-size 10)))))))))) |
| 331 | 331 |
| 332 (defun gamegrid-initialize-display () | 332 (defun gamegrid-initialize-display () |
| 333 (setq gamegrid-display-mode (gamegrid-display-type)) | 333 (setq gamegrid-display-mode (gamegrid-display-type)) |
| 334 (setq gamegrid-display-table (make-display-table)) | 334 (setq gamegrid-display-table (make-display-table)) |
| 335 (setq gamegrid-face-table (make-vector 256 nil)) | 335 (setq gamegrid-face-table (make-vector 256 nil)) |