Mercurial > hg > xemacs-beta
comparison lisp/eos/sun-eos-common.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | 131b0175ea99 |
| children |
comparison
equal
deleted
inserted
replaced
| 97:498bf5da1c90 | 98:0d2f883870bc |
|---|---|
| 356 (error "No frame to select")) | 356 (error "No frame to select")) |
| 357 (let* ((device-type (device-type (selected-device))) | 357 (let* ((device-type (device-type (selected-device))) |
| 358 (graphics (eos::annotation-get-glyph type device-type)) | 358 (graphics (eos::annotation-get-glyph type device-type)) |
| 359 (face (eos::annotation-get-face type device-type)) | 359 (face (eos::annotation-get-face type device-type)) |
| 360 ) | 360 ) |
| 361 (setq anot (make-annotation graphics (point) 'whitespace)) | 361 (setq anot (make-annotation graphics (point) 'outside-margin)) |
| 362 (set-annotation-data anot uid) | 362 (set-annotation-data anot uid) |
| 363 (set-extent-face anot face) | 363 (set-extent-face anot face) |
| 364 (eos::add-to-annotation-list anot type) | 364 (eos::add-to-annotation-list anot type) |
| 365 )) | 365 )) |
| 366 (select-frame fr) | 366 (select-frame fr) |