Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
1358 (if (not (face-differs-from-default-p 'modeline-buffer-id device)) 1358 (if (not (face-differs-from-default-p 'modeline-buffer-id device))
1359 (let ((fg (face-foreground 'modeline-buffer-id 'global)) 1359 (let ((fg (face-foreground 'modeline-buffer-id 'global))
1360 (font (face-font 'modeline-buffer-id 'global))) 1360 (font (face-font 'modeline-buffer-id 'global)))
1361 (and (featurep 'x) 1361 (and (featurep 'x)
1362 (or fg 1362 (or fg
1363 (set-face-foreground 'modeline-buffer-id "blue" 'global 1363 (set-face-foreground 'modeline-buffer-id "blue4" 'global
1364 '(color x)))) 1364 '(color x))))
1365 (if font 1365 (if font
1366 nil 1366 nil
1367 (if (featurep 'x) 1367 (if (featurep 'x)
1368 (progn 1368 (progn
1377 (if (not (face-differs-from-default-p 'modeline-mousable device)) 1377 (if (not (face-differs-from-default-p 'modeline-mousable device))
1378 (let ((fg (face-foreground 'modeline-mousable 'global)) 1378 (let ((fg (face-foreground 'modeline-mousable 'global))
1379 (font (face-font 'modeline-mousable 'global))) 1379 (font (face-font 'modeline-mousable 'global)))
1380 (and (featurep 'x) 1380 (and (featurep 'x)
1381 (or fg 1381 (or fg
1382 (set-face-foreground 'modeline-mousable "red" 'global 1382 (set-face-foreground 'modeline-mousable "firebrick" 'global
1383 '(color x)))) 1383 '(color x))))
1384 (if font 1384 (if font
1385 nil 1385 nil
1386 (if (featurep 'x) 1386 (if (featurep 'x)
1387 (progn 1387 (progn
1395 (let ((fg (face-foreground 'modeline-mousable-minor-mode 'global))) 1395 (let ((fg (face-foreground 'modeline-mousable-minor-mode 'global)))
1396 (and (featurep 'x) 1396 (and (featurep 'x)
1397 (or fg 1397 (or fg
1398 (set-face-foreground 'modeline-mousable-minor-mode 1398 (set-face-foreground 'modeline-mousable-minor-mode
1399 '(((color x) . "green4") 1399 '(((color x) . "green4")
1400 ((color x) . "green")) 'global))))) 1400 ((color x) . "forestgreen"))
1401 'global)))))
1401 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable 1402 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable
1402 nil nil 'append) 1403 nil nil 'append)
1403 ) 1404 )
1404 1405
1405 1406