Mercurial > hg > xemacs-beta
diff lisp/w3/w3-keyword.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:45:50 +0200 |
parents | |
children | ac2d302a0011 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/w3/w3-keyword.el Mon Aug 13 08:45:50 2007 +0200 @@ -0,0 +1,96 @@ +;;; w3-keyword.el,v --- Emacs-W3 binding style sheet mechanism +;; Author: wmperry +;; Created: 1996/05/30 14:37:30 +;; Version: 1.4 +;; Keywords: hypermedia + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Copyright (c) 1996 by William M. Perry (wmperry@spry.com) +;;; +;;; This file is not part of GNU Emacs, but the same permissions apply. +;;; +;;; GNU Emacs is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 2, or (at your option) +;;; any later version. +;;; +;;; GNU Emacs is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Emacs; see the file COPYING. If not, write to +;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Lots of generic keywords for use by Emacs-W3 +;;; +;;; This is in a separate file just for sanity's sake - I cannot rely on +;;; keywords being automatically recognized (ala XEmacs), and doing a +;;; defconst doesn't work either, because the byte-compiler gets too +;;; smart for us, and the .elc files are no longer portable. Joy oh joy! +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(let ((keywords '( + :align + :link-title + :background + :center + :depth + :figalt + :figdata + :fillcol + :form + :formnum + :header-start + :help-echo + :href + :link-args + :image + :lists + :map + :mpeg + :name + :needspace + :next-break + :nofill + :nowrap + :optarg + :options + :pre-start + :select + :secret + :table + :text-mangler + :title + :w3-graphic + :zone + :label-text + :seen-this-url + + ;; These are duplicated from the font.el code + ;; so that we can share .elc files... + + :family + :weight + :extra-light + :light + :demi-light + :medium + :normal + :demi-bold + :bold + :extra-bold + :style + :size + :registry + :encoding + ))) + (while keywords + (or (boundp (car keywords)) + (set (car keywords) (car keywords))) + (setq keywords (cdr keywords)))) + +(provide 'w3-keyword)