Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-e19.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 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; w3-e19.el,v --- Emacs 19.xx specific functions for emacs-w3 1 ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/06/06 14:14:34 3 ;; Created: 1996/07/11 04:49:02
4 ;; Version: 1.157 4 ;; Version: 1.3
5 ;; Keywords: faces, help, mouse, hypermedia 5 ;; Keywords: faces, help, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993, 1994, 1995 by William M. Perry (wmperry@spry.com) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; 9 ;;;
10 ;;; This file is part of GNU Emacs. 10 ;;; This file is part of GNU Emacs.
11 ;;; 11 ;;;
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;;; it under the terms of the GNU General Public License as published by 13 ;;; it under the terms of the GNU General Public License as published by
167 167
168 (defun w3-color-values (color) 168 (defun w3-color-values (color)
169 (cond 169 (cond
170 ((eq window-system 'x) 170 ((eq window-system 'x)
171 (x-color-values color)) 171 (x-color-values color))
172 ((eq window-system 'pm)
173 (pm-color-values color))
172 ((eq window-system 'ns) 174 ((eq window-system 'ns)
173 (ns-color-values color)) 175 (ns-color-values color))
174 (t nil))) 176 (t nil)))
175 177
176 (defun w3-color-light-p (color-or-face) 178 (defun w3-color-light-p (color-or-face)