[AUCTeX-diffs] Changes to auctex/style/xspace.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    11/04/03 15:36:17

Index: xspace.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/xspace.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- xspace.el   3 Apr 2011 15:34:20 -0000       1.1
+++ xspace.el   3 Apr 2011 15:36:17 -0000       1.2
@@ -1,9 +1,28 @@
 ;;; xspace.el --- AUCTeX style for `xspace.sty'
 
+;; Copyright (C) 2011 Free Software Foundation, Inc.
+
 ;; Author: Mads Jensen <address@hidden>
 ;; Created: 2011-02-01
 ;; Keywords: tex
 
+;; This file is part of AUCTeX.
+
+;; AUCTeX 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 3, or (at your option)
+;; any later version.
+
+;; AUCTeX 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 AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
 ;;; Commentary:
 
 ;; This file adds support for `xspace.sty'.
@@ -14,28 +33,19 @@
  "xspace"
  (lambda ()
    (TeX-add-symbols 
-    '("xspace" TeX-insert-xspace)
+    '("xspace" 0)
     "xspaceaddexception"
     "xspaceremoveexception")
 
    ;; Fontification
    (when (and (featurep 'font-latex)
              (eq TeX-install-font-lock 'font-latex-setup))
-     (font-latex-add-keywords '("xspace") 'function)
-     (font-latex-add-keywords '("xspaceaddexception") 'function)
-     (font-latex-add-keywords '("xspaceremoveexception") 'function)
-
-     ;; For syntactic fontification, e.g. verbatim constructs.
-     (font-latex-set-syntactic-keywords)
-     ;; Tell font-lock about the update.
-     (setq font-lock-set-defaults nil)
-     (font-lock-set-defaults))))
+     (font-latex-add-keywords '(("xspace" "")
+                               ("xspaceaddexception" "{")
+                               ("xspaceremoveexception" "{"))
+                             'function))))
 
 (defvar LaTeX-xspace-package-options nil
-  "Package options for the alltt package.")
-
-(defun TeX-xspace-insert ()
-  "Insert \\xspace without brackets."
-  (insert "\\xspace"))
+  "Package options for the xspace package.")
 
 ;;; xspace.el ends here