Mercurial > hg > xemacs-beta

comparison lisp/eos/sun-eos-common.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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)