Mercurial > hg > xemacs-beta

comparison lisp/modes/xpm-mode.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
116 (setq co (1+ co)) 116 (setq co (1+ co))
117 (next-line 1) 117 (next-line 1)
118 (beginning-of-line))))) 118 (beginning-of-line)))))
119 (if (not (eq major-mode 'picture-mode)) 119 (if (not (eq major-mode 'picture-mode))
120 (picture-mode)) 120 (picture-mode))
121 (set-specifier left-toolbar-width (cons (selected-frame) 16)) 121 (if (featurep 'toolbar)
122 (set-specifier left-toolbar (cons (current-buffer) xpm-palette)) 122 (progn
123 (set-specifier left-toolbar-width (cons (selected-frame) 16))
124 (set-specifier left-toolbar (cons (current-buffer) xpm-palette))))
123 (message "Parsing body...") 125 (message "Parsing body...")
124 (xpm-color-data) 126 (xpm-color-data)
125 (message "Parsing body...done") 127 (message "Parsing body...done")
126 (xpm-show-image)) 128 (xpm-show-image))
127 129
192 (if (or (or (> (elt ccc 0) 32767) 194 (if (or (or (> (elt ccc 0) 32767)
193 (> (elt ccc 1) 32767)) 195 (> (elt ccc 1) 32767))
194 (> (elt ccc 2) 32767)) 196 (> (elt ccc 2) 32767))
195 (set-face-foreground new-face "black") 197 (set-face-foreground new-face "black")
196 (set-face-foreground new-face "white")))) 198 (set-face-foreground new-face "white"))))
197 (setq xpm-pixel-values (cons (cons str new-face) xpm-pixel-values) 199 (setq xpm-pixel-values (cons (cons str new-face) xpm-pixel-values))
198 xpm-palette 200 (if (featurep 'toolbar)
199 (cons (vector 201 (setq xpm-palette
200 (list (xpm-make-solid-pixmap color 12 12)) 202 (cons (vector
201 ;; Major cool things with quotes..... 203 (list (xpm-make-solid-pixmap color 12 12))
202 (` 204 ;; Major cool things with quotes.....
203 (lambda (event) 205 (`
204 (interactive "e") 206 (lambda (event)
205 (xpm-toolbar-select-colour event (, str)))) 207 (interactive "e")
206 t 208 (xpm-toolbar-select-colour event (, str))))
207 color) xpm-palette)) 209 t
210 color) xpm-palette)))
208 )) 211 ))
209 212
210 (defun xpm-parse-color () 213 (defun xpm-parse-color ()
211 "Parse xpm color string from current line and set the color" 214 "Parse xpm color string from current line and set the color"
212 (interactive) 215 (interactive)