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)